엑셀 매크로(vba) - 엑셀 시트 내용 합치기

엑셀 시트 내용 합치기

시트에서 마우스 오른쪽 코드보기

아래 코드 입력후 f5 실행

--엑셀 전체를 그대로...
Sub SheetUnit()
    Dim i As Integer
    Dim ShtA As Worksheet
    Dim rngB As Range
    
    'Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    'Sheets(2).Activate

    Set ShtA = Sheets(1)
    For i = 2 To Sheets.Count
        Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Sheets(i).UsedRange.Copy rngB
    Next i
End Sub

-- 영역 끊기면 복사 안함
Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
        Sheets(J).Activate
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
End Sub