0

我目前有一本大约有 100 多张工作簿。所以我有一个从目录宏创建的主表。主表有一个从单元格 E4 到 E116 的序列号列表。

现在我要做的是将我拥有的序列号输入到主表中，其他 100 多张表也将使用单元格 F4 中的序列号进行更新。基本上所有 100+ 张的页面格式都相同，因此序列号将更新到 Cell F4 到 100+ 张的每张中。

我有下面的代码可以做到这一点。但它总是弹出一条消息

运行时错误 9：下标超出范围

我不确定哪里出了问题。感谢有人为我纠正这个！谢谢一群人！

Sub test9()
   Dim j As Integer
   j = 1

   Sheets("TOC").Select 'TOC is the sheet name of the master sheet
   FinalRow = Range("E119").End(xlUp).Row 

   For i = 4 To FinalRow

       Range("E" & i).Copy Destination:=Sheets("Sheets" & j).Range("F4")
       j = j + 1

   Next i

End Sub
4

1 回答 1

0

我想我设法解决了这个问题。实际上，这非常愚蠢。线

Range("E" & i).Copy Destination:=Sheets("Sheet" & j).Range("F4")

它'Sheet'不是'Sheets'. 那里真的是一个愚蠢的错误。

于 2012-05-31T06:10:17.800 回答