여러 통합 문서에서 요약 시트 만들기

Question

나는 당면한 과제를 가지고 있습니다. 폴더의 여러 통합 문서에서 데이터를 추출하여 요약 시트를 만들고 싶습니다. 이 파일들은 형식이 동일합니다. 내가해야 할 일은 다섯 번째 워크 시트에서 각 통합 문서의 데이터를 추출하는 것입니다. 세포는 G4, H4, G8, H8, G10, H10, G17, H17입니다. microsoft.com에 코드가 있습니다.

G4 또는 G4와 H4와 같은 셀 하나만 제공하면 코드가 제대로 작동합니다. 순간 나는

코드 무례한 행동 .Range ("G4", "H4", "G8", "H8", "G10", "H10", "G17", "H17")

로 sourcerange을 제공합니다. 단일 항목 등 등등에 대한 여러 행을 가져옵니다.이 sourcerange를 제공하는 방법을 이해할 수 없으므로 G4, H4, G8, H8, G10, H10, G17, H17을 모두 단일 행 여관에서 sourcerange 변수로 가져옵니다. . 어떤 제안?

Answer 1

이 시도 : 내가 그 일을 시도

Sub myLoop() 
    Dim r As Range, cel As Range 
    Set r = Sheet1.Range("G4,H4,G8,H8,G10,H10,G17,H17") 
    For Each cel In r 
     Debug.Print cel.Value 
    Next cel 
End Sub