我目前有一张大约有100张的工作簿 . 所以我有一个主表,从目录宏创建 . 主表有一个序列号列表,从单元格E4到E116 .
现在我想要做的是输入我在主表中的序列号,其他100张表也将使用单元格F4中的序列号进行更新 . 基本上所有100张纸具有相同的页面格式,因此序列号将更新为单元格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
1 回答
我想我设法解决了这个问题 . 实际上,这非常愚蠢 . 这条线
Range("E" & i).Copy Destination:=Sheets("Sheet" & j).Range("F4")
这是
'Sheet'
而不是'Sheets'
. 那里真的是一个愚蠢的错误 .