Joy는 꽤 많은 통합 문서를 병합하는 데 문제가 발생했습니다. 대부분의 통합 문서 (약 200 개, 모두 단일 폴더에 있음)는 각각 단일 워크 시트를 포함하지만 일부는 더 많은 워크 시트를 포함합니다. 이러한 각 통합 문서의 워크 시트는 단일 통합 문서에 추가되어야합니다.

이 정도 크기의 병합을 수행하는 가장 쉬운 방법은 특히 자주 수행해야하는 경우 매크로를 사용하는 것입니다. 다음 매크로는 병합 할 파일을 선택하라는 대화 상자를 표시합니다. (각 항목을 클릭 할 때 Ctrl 키를 누른 상태에서 여러 통합 문서를 선택할 수 있습니다.) 선택한 목록을 반복하면서 각 통합 문서를 열고 모든 워크 시트를 코드가있는 통합 문서의 끝으로 이동합니다.

Sub CombineWorkbooks()

Dim FilesToOpen     Dim x As Integer     Dim Outwbk As Workbook

Set Outwbk = ActiveWorkbook

On Error GoTo ErrHandler     Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (.xls), .xls", _       MultiSelect:=True, Title:="Files to Merge")



If TypeName(FilesToOpen) = "Boolean" Then         MsgBox "No Files were selected"

GoTo ExitHandler     End If

x = 1     While x <= UBound(FilesToOpen)

Workbooks.Open Filename:=FilesToOpen(x)

Sheets().Move After:=Outwbk.Sheets(Outwbk.Sheets.Count)

x = x + 1     Wend

ExitHandler:

Application.ScreenUpdating = True     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

워크 북 끝에 워크 시트를 추가하는 과정에서 중복 워크 시트 이름이 감지되면 Excel은 자동으로 (2), (3) 등을 추가합니다. 다른 시트를 참조하는 책의 모든 공식도 새 이름을 반영하도록 업데이트됩니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2409)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Merging_Many_Workbooks [Merging Many Workbooks].