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

Posted 2023-05-07

【中文标题】Excel 宏，用于从工作簿中的主工作表更新其他工作表

【英文标题】：Excel macro that updates other sheets from a master sheet in a workbook

【发布时间】：2012-05-30 05:59:03

【问题描述】：

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

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

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

运行时错误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

【问题讨论】：

指出你的代码中断的行会有用！

@marc_s 感谢编辑，我还在学习中！

@user1425241：很高兴您解决了您的问题。顺便说一句，欢迎来到 ***。请注意，您可以回答自己的问题（甚至是highly recommended）并接受它。通过这种方式，您可以与社区分享您的知识并关闭问题。

【参考方案1】：

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

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

它是 'Sheet' 而不是 'Sheets'。那里确实是一个愚蠢的错误。