把分散的excel表，合並匯總到一張excel

把分散的excel表，合並匯總到一張excel

 

如何把多張Excel文件匯總成一個Excel文件? - 知乎 (zhihu.com)

 

步驟：

1、新建匯總excel

2、用excel打開工作表匯總

3、鼠標放在匯總sheet頁，右鍵，單擊查看代碼

4、將以下代碼復制到彈出窗口（如果excel文件是.xls,則只需要修改代碼中的文件后綴即可）

 

Sub 工作薄間工作表合並()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", 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、