엑셀 VBA - 다른 시트 데이터 복사하기/범위 복사/정리하기

1. 엑셀 파일 만들기

   - 모두라고 시트명만 데이터를 SUMMARY 시트에 가져와보자. 

2. 코드작성

Sub find_all_sheetname()
    
    Dim ws As Worksheet
    Dim i As Integer
    
    i = 1
    
    For Each ws In Worksheets
        If InStr(ws.Name, "모두") > 0 Then
            
            
            i = i + 3
            ActiveSheet.Cells(2, i) = ws.Name
            Sheets(ws.Name).Range(Sheets(ws.Name).Cells(2, 2), Sheets(ws.Name).Cells(6, 4)).Copy Sheets("summary").Cells(3, i)
                
        End If
            
    Next ws
    
End Sub

 

 

3. 결과

  1) 모두1, 모두2의 데이터가 서머리 시트에 정리되었다.