Excel에서 여러 워크북을 하나의 마스터 워크북으로 결합하는 방법은 무엇입니까?

Excel에서 여러 워크북을 마스터 워크북으로 결합해야 할 때 막혔던 적이 있습니까? 가장 끔찍한 것은 결합해야 하는 워크북에 여러 워크시트가 포함되어 있다는 것입니다. 그리고 여러 워크북의 지정된 워크시트만 하나의 워크북으로 결합하려면 어떻게 해야 합니까? 이 튜토리얼에서는 문제를 단계별로 해결하는 데 도움이 되는 몇 가지 유용한 방법을 시연합니다.

Move 또는 Copy 기능을 사용하여 여러 워크북을 하나의 워크북으로 결합하기

결합해야 할 워크북이 몇 개뿐이라면 Move 또는 Copy 명령을 사용하여 원본 워크북에서 마스터 워크북으로 워크시트를 수동으로 이동하거나 복사할 수 있습니다.

1. 마스터 워크북으로 병합할 워크북을 엽니다.

2. 원본 워크북에서 마스터 워크북으로 이동하거나 복사할 워크시트를 선택합니다.

3. 필요한 워크시트를 선택한 후, 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 상황에 맞는 메뉴에서 이동 또는 복사를 클릭합니다. 스크린샷 보기:

4. 그런 다음 이동 또는 복사 대화상자가 나타납니다. To book 드롭다운에서 워크시트를 이동하거나 복사할 마스터 워크북을 선택합니다. Before sheet 상자에서 맨 아래로 이동을 선택하고, 복사본 생성 상자를 체크한 다음, 확인 버튼을 클릭합니다.

그러면 두 워크북의 워크시트가 하나로 결합된 것을 볼 수 있습니다. 위의 단계를 반복하여 다른 워크북에서 마스터 워크북으로 워크시트를 이동하세요.

VBA를 사용하여 여러 워크북 또는 워크북의 지정된 시트를 마스터 워크북으로 결합하기

여러 워크북을 하나로 병합해야 하는 경우, 다음 VBA 코드를 적용하여 신속하게 이를 수행할 수 있습니다. 다음과 같이 진행하세요.

1. 결합하려는 모든 워크북을 동일한 디렉토리에 배치합니다.

2. Excel 파일(이 워크북이 마스터 워크북이 됨)을 실행합니다.

3. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭한 다음, 아래 VBA 코드를 모듈 창에 복사합니다.

VBA 코드 1: 여러 Excel 워크북을 하나로 병합하기

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. F5 키를 눌러 코드를 실행합니다. 그러면 특정 폴더의 모든 워크북 또는 지정된 워크북의 워크시트가 즉시 하나의 마스터 워크북으로 결합됩니다.

여러 워크북 또는 워크북의 지정된 시트를 쉽게 하나의 워크북으로 결합하기

다행히도 Kutools for Excel의 워크북 결합 유틸리티를 사용하면 여러 워크북을 하나로 병합하는 것이 훨씬 쉬워집니다. 여러 워크북을 결합하는 데 이 기능이 어떻게 작동하는지 살펴보겠습니다.

1. 새 워크북을 만들고 Kutools Plus > 결합을 클릭합니다. 그런 다음 결합된 모든 워크북은 저장되어야 하며, 이 기능은 보호된 워크북에는 적용되지 않는다는 내용의 대화상자가 나타납니다. 확인 버튼을 클릭하세요.

2. 결합 워크시트 마법사에서 여러 워크북의 워크시트를 하나의 워크북으로 결합 옵션을 선택하고 다음 버튼을 클릭합니다. 스크린샷 보기:

3. 결합 워크시트 - 3단계 중 2단계 대화상자에서 추가 > 파일 또는 폴더를 클릭하여 하나로 병합할 Excel 파일을 추가합니다. Excel 파일을 추가한 후, 완료 버튼을 클릭하고 마스터 워크북을 저장할 폴더를 선택합니다. 스크린샷 보기:

이제 모든 워크북이 하나로 병합되었습니다.

위의 두 가지 방법과 비교했을 때, Kutools for Excel은 다음과 같은 장점이 있습니다:

• 1) 모든 워크북과 워크시트는 대화상자에 나열됩니다;
• 2) 병합에서 제외하려는 워크시트는 간단히 선택을 해제하면 됩니다;
• 3) 빈 워크시트는 자동으로 제외됩니다;
• 4) 원래 파일 이름은 병합 후 시트 이름의 접두사로 추가됩니다;
• 이 기능의 더 많은 기능을 보려면 여기를 방문하세요.