小编May*_*a.R的帖子

当我想将6个工作簿中的单元格值从一张纸复制到另一张纸时(在我的情况下从"Sheet1"单元格(B9:E111)复制到"Sheet2")我站在错误的前面:'运行时错误9:下标超出范围'这是我写的代码:

Sub sbCopyRangeToAnotherSheet()

  For i = 1 To 6

     Workbooks(i).Worksheets("Sheet2").Range("A1").Value = Workbooks(i).Worksheets("Sheet1").Range("B9:E111").Value  

  Next i

End Sub

愿有人可以帮助我吗？谢谢