엑셀 VBA 매크로 생성기

' ==========================================
' 모든 시트 데이터를 '통합_데이터' 시트로 일괄 병합
' ==========================================
Sub MergeAllSheets()
    Dim ws As Worksheet
    Dim combinedWs As Worksheet
    Dim lastRow As Long
    Dim nextRow As Long
    Dim isFirstSheet As Boolean
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 기존 통합 시트가 있으면 삭제 후 재생성
    On Error Resume Next
    Worksheets("통합_데이터").Delete
    On Error GoTo 0
    
    Set combinedWs = Worksheets.Add(Before:=Worksheets(1))
    combinedWs.Name = "통합_데이터"
    
    isFirstSheet = True
    nextRow = 1
    
    For Each ws In Worksheets
        If ws.Name <> "통합_데이터" Then
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            If lastRow > 0 Then
                If isFirstSheet Then
                    ' 첫 시트는 제목 행 포함 전체 복사
                    ws.Rows("1:" & lastRow).Copy combinedWs.Rows(1)
                    nextRow = lastRow + 1
                    isFirstSheet = False
                ElseIf lastRow > 1 Then
                    ' 이후 시트는 데이터 행(2행부터)만 복사
                    ws.Rows("2:" & lastRow).Copy combinedWs.Rows(nextRow)
                    nextRow = combinedWs.Cells(combinedWs.Rows.Count, "A").End(xlUp).Row + 1
                End If
            End If
        End If
    Next ws
    
    combinedWs.Columns.AutoFit
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "모든 시트 데이터 병합이 완료되었습니다!", vbInformation, "salaryhacks"
End Sub