팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

여러 통합 문서를 Excel에서 하나의 마스터 통합 문서로 결합하는 방법?

Excel에서 여러 통합 문서를 마스터 통합 문서로 결합해야 할 때 어려움을 겪었습니까? 가장 어려운 점은 결합해야하는 통합 문서에 여러 워크 시트가 포함되어 있다는 것입니다. 그리고 여러 통합 문서의 지정된 워크 시트 만 하나의 통합 문서로 결합하는 방법은 무엇입니까? 이 자습서에서는 문제 단계를 단계별로 해결하는 데 도움이되는 몇 가지 유용한 방법을 보여줍니다.


여러 통합 문서를 Excel에서 쉽게 통합 할 수 있습니다.

결합 통합 문서 유틸리티 Excel 용 Kutools 쉽게 여러 개의 Excel 파일을 하나의 파일로 결합 할 수 있습니다. 게다가 특정 Excel 파일의 지정된 워크 시트 만 마스터 통합 문서에 쉽게 결합 할 수 있습니다. 지금 60-day 무료 트레일 전체 기능을 다운로드하십시오!

이동 또는 복사 기능을 사용하여 여러 통합 문서를 하나의 통합 문서로 결합

몇 개의 통합 문서를 결합해야하는 경우 이동 또는 복사 명령을 사용하여 수동으로 원본 통합 문서의 워크 시트를 마스터 통합 문서로 이동하거나 복사 할 수 있습니다.

1. 마스터 통합 문서로 병합 할 통합 문서를 엽니 다.

2. 마스터 통합 문서로 이동하거나 복사 할 원본 통합 문서의 워크 시트를 선택하십시오.

노트:

1). 여러 인접하지 않은 워크 시트를 선택하여 Ctrl 키 키를 누르고 시트 탭을 하나씩 클릭하십시오.

2). 인접한 워크 시트를 여러 개 선택하려면 첫 번째 시트 탭을 클릭하고 변화 키를 누른 다음 마지막 시트 탭을 눌러 모두 선택하십시오.

3). 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 모든 시트 선택 컨텍스트 메뉴에서 통합 문서의 모든 워크 시트를 동시에 선택합니다.

3. 필요한 워크 시트를 선택한 후 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 이동 또는 복사 컨텍스트 메뉴에서. 스크린 샷보기 :

4. 그런 다음 이동 또는 복사 대화 상자가 열립니다. 예약하기 드롭 다운 목록에서 워크 시트를 이동하거나 복사 할 마스터 통합 문서를 선택하십시오. 이동을 선택하여 시트 전 상자에 복사본 만들기 상자를 클릭하고 OK 버튼을 클릭합니다.

그런 다음 두 통합 문서의 워크 시트가 하나로 통합 된 것을 볼 수 있습니다. 위의 단계를 반복하여 다른 통합 문서의 워크 시트를 마스터 통합 문서로 이동하십시오.

Office 탭 - 실시간 저장 기능 추가 기능!

열려있는 모든 문서를 단일 창에 표시하여 필요한 문서를 빠르게 찾을 수 있습니다.

전체 기능 무료 평가판 45 일. Excel, Word 및 PowerPoint의 모든 버전과 호환됩니다.

ADD-IN에 대해 더 알고 싶습니다>

여러 통합 문서 또는 지정된 통합 문서를 VBA를 사용하여 마스터 통합 문서에 결합

여러 통합 문서를 하나로 병합해야하는 경우 다음 VBA 코드를 적용하여 신속하게 달성 할 수 있습니다. 다음과 같이하십시오.

1. 결합 할 모든 통합 문서를 동일한 디렉토리에 하나 넣습니다.

2. Excel 파일을 실행하십시오 (이 통합 문서는 마스터 통합 문서 일 것입니다).

3. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창문. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈그런 다음 VBA 코드 아래의 모듈 창으로 복사하십시오.

VBA 코드 1 : 여러 Excel 통합 문서를 하나로 병합

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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
	

노트:

1. 위의 VBA 코드는 병합 후 원본 통합 문서의 시트 이름을 유지합니다.

2. 병합 후 어디에서 왔는지 마스터 통합 문서의 워크 시트를 구별하려면 아래 VBA 코드 2을 적용하십시오.

3. 통합 문서의 지정된 워크 시트를 마스터 통합 문서에 결합하려는 경우 아래 VBA 코드 인 3을 사용하면 도움이됩니다.

VBA 코드에서 "C : \ Users \ DT168 \ Desktop \ KTE \"는 폴더 경로입니다. VBA 코드 3에서 "Sheet1, Sheet3"는 마스터 통합 문서에 결합 할 통합 문서의 지정된 워크 시트이며 필요에 따라 변경할 수 있습니다.

VBA 코드 2 : 통합 문서를 하나에 병합합니다 (각 워크 시트의 이름은 원래 파일 이름의 접두어로 지정됩니다).

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

VBA 코드 3 : 통합 문서의 지정된 워크 시트를 마스터 통합 문서로 병합 :

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 키를 눌러 코드를 실행하십시오. 그런 다음 모든 워크 시트 또는 특정 폴더에있는 통합 문서의 지정된 워크 시트가 한 번에 마스터 통합 문서로 결합됩니다.

여러 통합 문서 또는 지정된 통합 문서를 하나의 통합 문서로 쉽게 결합

Excel 용 Kutools

Excel 작업에서 작업을 단순화하기 위해 300 이상의 고급 기능을 모으는 편리한 Excel 추가 기능입니다. 이를 통해 다음과 같은 작업을 쉽게 수행 할 수 있습니다.

  • 다중 통합 문서 통합;
  • 셀을 색상으로 계산 / 합계합니다.
  • 셀 분할;
  • 일괄 삭제 공간;
  • 더 많은 기능 ...

무료 다운로드!

다행히도 결합 통합 문서 유틸리티 Excel 용 Kutools 여러 통합 문서를 하나로 쉽게 병합 할 수 있습니다. 이 기능을 여러 통합 문서를 결합하는 방법을 살펴 보겠습니다.

1. 새 통합 문서를 만들고을 클릭하십시오. Kutools 기타 > 결합. 그런 다음 통합 된 모든 통합 문서를 저장해야하며 보호 된 통합 문서에 기능을 적용 할 수 없다는 대화 상자가 나타납니다. OK 버튼을 클릭합니다.

2. 에서 워크 시트 결합 마법사, 선택 통합 문서의 여러 워크 시트를 하나의 통합 문서로 결합 옵션을 클릭 한 다음 다음 것 단추. 스크린 샷보기 :

3. 에서 워크 시트 결합 - 2의 3 단계 대화 상자에서 추가 > 필렛 or 폴더 병합 할 Excel 파일을 하나에 추가하십시오. Excel 파일을 추가 한 후 버튼을 클릭하고 마스터 통합 문서를 저장할 폴더를 선택하십시오. 스크린 샷보기 :

이제 모든 통합 문서가 하나로 병합됩니다.

위의 두 가지 방법과 비교하여, Excel 용 Kutools 다음과 같은 이점이 있습니다.

  • 1) 모든 워크 북과 워크 시트가 대화 상자에 나열됩니다.
  • 2) 병합에서 제외 할 워크 시트의 경우 선택을 취소하십시오.
  • 3) 빈 워크 시트는 자동으로 제외됩니다.
  • 4) 원본 파일 이름은 병합 후에 시트 이름에 접두사로 추가됩니다.
  • 이 기능의 더 많은 기능을 보려면, 여기를 방문하십시오..

이거해야합니까? 통합 문서 통합 유틸리티 도움? 60 일 무료 평가판을 다운로드하여 사용해 보겠습니다.!

Microsoft Office 용 권장 생산성 도구

Office 탭 - Excel / Word / PowerPoint의 탭 브라우징, 편집 및 관리 :

사무실 탭 구글 크롬, 인터넷 익스플로러 새 버전 및 파이어 폭스와 같은 웹 브라우저에서 볼 수있는 탭 인터페이스를 Microsoft Excel / Word / PowerPoint로 가져온다. 그것은 시간 절약 도구 일 것이고 당신의 일에서 바꿀 수 없을 것입니다. 아래 데모보기 :

ot1

Excel 용 Kutools - 300 이상의 고급 기능과 Microsoft Excel 용 도구 결합 :

Excel 용 Kutools Excel의 몇 번의 클릭으로 다양한 종류의 복잡한 작업을 단순화하는 300 고급 기능이 포함 된 편리한 Excel 추가 기능입니다. 예 :

  • 여러 워크 시트 또는 통합 문서를 하나의 통합 문서로 결합
  • 배경 / 글꼴 색을 기준으로 셀 수를 계산하고 합치십시오.
  • 셀 내용을 공백 / 쉼표 / ​​구분 기호로 여러 행 / 열로 나눕니다.
  • 일괄 처리 셀의 선행 공백 제거
kte

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    cindy · 2 years ago
    thanks for the macro guided for 'Combine multiple workbooks to one workbook with VBA'.

    However, i do have an additional cirtumtances.
    Let's take your example.
    In the folder 'dt kte', there are 4 workbook (book1, book2, book3 & book4)
    The macro will merge all worksheet in every single workbook into my excel file.
    However, the circumtances i need is:-
    in every workbook, there is mutual sheet named "HIJ".

    what would be the macro if i only want to merge the HIJ worksheet in book1 to book4, into one workbook i want?
  • To post as a guest, your comment is unpublished.
    MUHAMMAD MURTAZA · 2 years ago
    ASSALAM O ALIKUM,,

    LOT OF THANKS FOR COMBINE WORK SHEET IN MASTER SHEET
  • To post as a guest, your comment is unpublished.
    Gnanesh · 2 years ago
    Thank you very much for the script for combining workbooks!
  • To post as a guest, your comment is unpublished.
    Hoang · 2 years ago
    The above code works well, but it seems that it doesn't follow any certain order, in my folder, each excel file ( before merging ) has 1 sheet with same name,for exp: book1 contains sheet named A, book2 also contains sheet named A ,....then after merging by VBA, the combined workbook contains sheets named A, A(1), A(2), A(3),...in random order, A(1) actually doesn't belongs to initial book1. So it's hard for me to identify, I can't know each sheet originally belongs to which file. The result I expect is that all sheets will be combine in name order of original separated file

    Perhaps i can't explain my point well, if someone has same situation or can understand me, then pls kindly upgrade vba code that can combine sheets in order of alphabet name or ascending number ?
  • To post as a guest, your comment is unpublished.
    wooly · 2 years ago
    I'm new to Excel and am struggling to identify what I need to personalise in this code to make it work. Obviously "path" but is that it? as I'm getting errors on the two "set copyrng" and "set dest" row.

    None of these worked for me

    I finally got this one to work. FYI I am using 2010

    'Description: Combines all files in a folder to a master file.
    Sub MergeFiles()
    Dim path As String, ThisWB As String, lngFilecounter As Long
    Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
    Dim Filename As String, Wkb As Workbook
    Dim CopyRng As Range, Dest As Range
    Dim RowofCopySheet As Integer

    RowofCopySheet = 2 ' Row to start on in the sheets you are copying from

    ThisWB = ActiveWorkbook. Name

    path = "mypath....." ' Dont't forget to change this

    Application.Ena bleEvents = False
    Application.Scr eenUpdating = False

    Set shtDest = ActiveWorkbook. Sheets(1)
    Filename = Dir(path & "\*.xls", vbNormal)
    If Len(Filename) = 0 Then Exit Sub
    Do Until Filename = vbNullString
    If Not Filename = ThisWB Then
    Set Wkb = Workbooks.Open( Filename:=path & "\" & Filename)
    Set CopyRng = Wkb.Sheets(1).R ange(Cells(Rowo fCopySheet, 1), Cells(ActiveShe et.UsedRange.Ro ws.Count, ActiveSheet.Use dRange.Columns. Count))
    Set Dest = shtDest.Range(" A" & shtDest.UsedRan ge.SpecialCells (xlCellTypeLast Cell).Row + 1)
    CopyRng.Copy Dest
    Wkb.Close False
    End If

    Filename = Dir()
    Loop

    Range("A1").Sel ect

    Application.Ena bleEvents = True
    Application.Scr eenUpdating = True

    MsgBox "Done!"
    End Sub