你好，我想请问下，下面这个有问题吗？运行的时候总是提示程序有错误，请大侠帮忙！tempwb.Worksheets(1).Range(Cells(1, 4).Address, Cells(85, 4).Address).Copy before:=newwb.Worksheets(1).Range(Cells(1, i).Address, Cells(85, 1).Address)