GPT & AI 활용 실무교육

K2: =H2/G2          → 셀 서식을 백분율로 변경
L2: =J2/I2          → 셀 서식을 백분율로 변경
M2: =IF(K2<0.7,"관리필요","")

Sub MergeExcelFiles()
    Dim fd As FileDialog
    Dim fileCount As Long, totalRows As Long
    Dim srcWb As Workbook, srcWs As Worksheet
    Dim destWs As Worksheet
    Dim destRow As Long, lastRow As Long, lastCol As Long
    Dim isFirst As Boolean
    Dim i As Long
    Dim fileName As String

    ' 파일 선택 대화상자
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.Title = "취합할 엑셀 파일을 선택하세요 (Ctrl+클릭으로 여러 개 선택)"
    fd.Filters.Clear
    fd.Filters.Add "Excel Files", "*.xlsx; *.xls; *.xlsm"
    fd.AllowMultiSelect = True

    If fd.Show <> -1 Then
        MsgBox "파일을 선택하지 않았습니다.", vbExclamation
        Exit Sub
    End If

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' 통합결과 시트 생성
    On Error Resume Next
    ThisWorkbook.Sheets("통합결과").Delete
    On Error GoTo 0
    Set destWs = ThisWorkbook.Sheets.Add
    destWs.Name = "통합결과"

    isFirst = True
    destRow = 1
    fileCount = 0
    totalRows = 0

    For i = 1 To fd.SelectedItems.Count
        On Error Resume Next
        Set srcWb = Workbooks.Open(fd.SelectedItems(i), ReadOnly:=True)
        If Err.Number <> 0 Then
            Err.Clear
            On Error GoTo 0
            GoTo NextFile
        End If
        On Error GoTo 0

        Set srcWs = srcWb.Sheets(1)
        lastRow = srcWs.Cells(srcWs.Rows.Count, 1).End(xlUp).Row
        lastCol = srcWs.Cells(1, srcWs.Columns.Count).End(xlToLeft).Column

        fileName = Dir(fd.SelectedItems(i))

        If isFirst Then
            ' 첫 번째 파일: 헤더 + 데이터 복사
            srcWs.Range(srcWs.Cells(1, 1), srcWs.Cells(1, lastCol)).Copy _
                destWs.Cells(destRow, 1)
            destWs.Cells(destRow, lastCol + 1).Value = "출처파일"
            destRow = destRow + 1
            isFirst = False
        End If

        ' 데이터 복사 (2행부터)
        If lastRow >= 2 Then
            srcWs.Range(srcWs.Cells(2, 1), srcWs.Cells(lastRow, lastCol)).Copy _
                destWs.Cells(destRow, 1)
            ' 출처 파일명 추가
            Dim r As Long
            For r = destRow To destRow + (lastRow - 2)
                destWs.Cells(r, lastCol + 1).Value = fileName
            Next r
            totalRows = totalRows + (lastRow - 1)
            destRow = destRow + (lastRow - 1)
        End If

        fileCount = fileCount + 1
        srcWb.Close SaveChanges:=False

NextFile:
    Next i

    ' 서식 정리
    destWs.Columns.AutoFit
    destWs.Rows(1).Font.Bold = True

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "취합 완료!" & vbCrLf & vbCrLf & _
           "취합 파일 수: " & fileCount & "개" & vbCrLf & _
           "총 데이터 행: " & totalRows & "행" & vbCrLf & _
           "결과 시트: 통합결과", vbInformation, "파일 취합 완료"
End Sub