首页 文章

Excel宏,用于更新工作簿中主工作表的其他工作表

提问于
浏览
0

我目前有一张大约有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 回答

  • 0

    我想我设法解决了这个问题 . 实际上,这非常愚蠢 . 这条线

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

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

相关问题