특정 폴더의 워크북을 반복 처리하고 데이터를 마스터 시트로 복사하는 방법은 무엇입니까?

여러 Excel 워크북이 폴더에 있고, 이러한 모든 파일에서 특정 범위(예: Sheet1)의 데이터를 마스터 시트로 복사해야 한다고 가정해 보겠습니다. 이 가이드에서는 Excel에서 이 과정을 간소화하기 위한 상세한 VBA 솔루션을 제공합니다.

VBA 코드를 사용하여 디렉토리의 워크북을 반복 처리하고 데이터를 마스터 시트로 복사하기

VBA 코드를 사용하여 디렉토리의 파일을 반복 처리하고 데이터를 마스터 시트로 복사하기

특정 폴더에 있는 모든 워크북의 Sheet1에서 범위 A1:D4의 데이터를 복사하여 마스터 시트로 붙여넣으려면 다음과 같이 하세요.

1. 마스터 워크시트를 생성할 워크북에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 VBA 코드를 코드 창에 복사합니다.

VBA 코드: 폴더의 파일을 반복 처리하고 데이터를 마스터 시트로 복사하기

Sub Merge2MultiSheets()
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook, xWorkBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    xSheetName = "Sheet1"
    xRgStr = "A1:D4"
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            Set xWorkBook = ThisWorkbook
            Set xSheet = xWorkBook.Sheets("New Sheet")
            If xSheet Is Nothing Then
                xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
                Set xSheet = xWorkBook.Sheets("New Sheet")
            End If
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            Do Until xFileName = ""
               Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
                Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
                xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

참고:

3. 코드를 실행하려면 F5 키를 누릅니다.

4. 열리는 찾아보기 창에서 반복 처리할 파일이 포함된 폴더를 선택한 후 확인 버튼을 클릭하세요. 스크린샷 보기:

“New Sheet”라는 이름의 마스터 워크시트가 현재 워크북의 끝에 생성됩니다. 또한 선택한 폴더의 모든 Sheet1에서 범위 A1:D4의 데이터가 해당 워크시트에 나열됩니다.

관련 기사:

• Excel에서 행 높이와 열 너비를 유지하면서 셀 데이터를 복사하는 방법은 무엇입니까?