통합 문서의 마스터 시트에서 다른 시트를 업데이트하는 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 : 다행히 문제를 해결했습니다. Btw, Stackoverflow에 오신 것을 환영합니다. 자신의 질문에 답변 할 수 있음을 유의하십시오 (권장 사항 [권장 사항] (http://meta.stackexchange.com/questions/17463/can-i-answer-my-own-questions-even-those-where-i). -knew-the-answer-before-asking))를 받아 들여 그것을 받아 들인다. 이런 식으로 커뮤니티와 당신의 지식을 공유 할 수 있습니다. – JMax

나는이 문제를 해결할 수 있었다고 생각합니다. 실제로 매우 어리 석다. 선은

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

이 'Sheet' 대신 'Sheets'입니다. 정말 어리석은 오류가 있습니다.

출처

2012-05-31 06:10:17 user1425241

통합 문서의 마스터 시트에서 다른 시트를 업데이트하는 Excel 매크로

답변

관련 문제