엑셀 여러 시트를 하나로 병합하는 방법

이후 스크리닝, 데이터 추출, 분석 등을 용이하게 하기 위해 동일한 데이터 형식의 수많은 Excel 테이블 파일을 하나의 Excel 통합 문서로 병합합니다.

두 단계로 완료해야 합니다.

1단계: 모든 Excel을 하나의 Excel로 병합합니다. 방금 여러 테이블의 내용이 하나의 테이블과 아래의 여러 시트로 변환됩니다.

2단계: 이 Excel의 여러 시트를 하나의 시트로 병합합니다.

기본 소프트웨어 필요: VBA가 포함된 Excel 소프트웨어, VBA가 포함된 Microsoft 사무실을 사용하거나 국내 wps의 전문가 버전을 사용할 수 있습니다.

구체적인 단계는 아래에 설명되어 있습니다.

1. 여러 테이블을 여러 시트가 포함된 하나의 테이블로 병합합니다.

1. 새 통합 문서를 만들고 병합된 이름을 따서 이름을 지정합니다.

2. 이 워크북을 엽니다.

3. 그 아래에 있는 워크시트 레이블을 마우스 오른쪽 버튼으로 클릭하고 "코드 보기"를 선택하세요. (wps의 이 버튼은 개발 도구 아래에 있습니다.)

4. 열려 있는 VBA 편집 창에 다음 코드를 붙여넣습니다.

Sub Worksheet Merge ()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub

5.

6. Excel에서 도구---매크로---매크로로 이동하여 "통합 문서 간 워크시트 병합"을 선택한 다음 "실행"을 선택합니다.

7. 열린 대화창에서 병합하려는 워크시트가 더 있으면 폴더에 넣은 다음 모두 선택할 수 있습니다.

8. 잠깐. . . . 좋아요!

2. 한 시트에 있는 여러 시트를 하나의 시트로 병합

1. 여러 시트가 포함된 통합 문서(예: 여러 통합 문서를 병합한 후 n개의 시트가 포함된 통합 문서)에서 새 시트를 만듭니다

2. 새로 생성된 시트 레이블을 클릭하고 "코드 보기"를 선택합니다(wps 버튼은 개발 도구 아래에 있음)

3. 열려 있는 VBA 편집 창에 다음 코드를 붙여넣습니다.

Sub 현재 통합 문서 병합 모든 워크시트 실행 ()

Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

아래에서 기다리세요... 병합이 완료되면 프롬프트가 나타납니다.

위 내용은 엑셀 여러 시트를 하나로 병합하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!