從工作簿中的主工作表更新其他工作表的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宏

回答

相關問題