엑셀 VBA 코드 모든 시트 내용 한번에 모으기(펌)

모든 시트 내용 한번에 모으기(펌)

출처 : 네이버지식인

 

Sub Macro1()
    Dim ws As Worksheet, e As Range, v
    For Each ws In Worksheets
        If ws.Name <> ActiveSheet.Name Then
            Set e = Cells(Rows.Count, 1).End(xlUp)(2)
            v = ws.Range("A1").CurrentRegion.Offset(1)
            e.Resize(UBound(v, 1), UBound(v, 2)) = v
        End If
    Next ws
End Sub