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

我目前有一个包含约100多张工作表的工作簿。所以我有一张从宏目录创建的主表。主工作表中有来自单元格E4至E116的序列号列表。从工作簿中的主工作表更新其他工作表的Excel宏

现在我想要做的是输入我已经进入主表单的序列号，其他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

来源

2012-05-30 user1425241

指示您的代码中断的行将是有用的！ –

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

@ user1425241：很高兴你解决了你的问题。顺便说一句，欢迎来到Stackoverflow。请注意，你可以回答你自己的问题（它甚至是[极力推荐]（http://meta.stackexchange.com/questions/17463/can-i-answer-my-own-questions-even-those-where-i -knew-the-answer-before-ask））并接受它。这样，您可以与社区分享您的知识，并*关闭*问题。 – JMax

我想我设法解决了这个问题。实际上这很愚蠢。该生产线

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

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

来源

2012-05-31 06:10:17 user1425241

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

回答

相关问题