Excel中快速合併多個工作薄的首個工作表內容，簡單高效不加班！

Excel軟體中快速合併多個工作薄的首個工作表內容， 簡單高效不加班！

廢話少說， 先看演示：

快速合併多個工作薄的首個工作表內容

需要將多個工作薄的內容複製粘貼到一個工作薄的其中一個工作表中；

需要合併的工作薄都是按範本填寫的， 具有相同的表頭結構， 且需為.xlsx格式；

需要合併的資料都在每個工作薄的第一個工作表（sheet1）上面；

具體資料結構見下方演示：

多表具有相同的表頭結構

1、開發工具--Visual Basic - -插入模組-寫入代碼

Sub 合併多工作簿的首個工作表()

Dim 路徑 As String, 待匯總文件 As String

Dim Wb As Workbook

Application.ScreenUpdating = False

路徑 = ThisWorkbook.Path

待匯總檔 = Dir(路徑 & "*.xlsx")

Do Until 待匯總文件 = ""

If 待匯總文件 <> ThisWorkbook.Name Then

Set Wb = Workbooks.Open(路徑 & "" & 待匯總文件)

With Sheets(1)

.UsedRange.Rows("1:1").Copy ThisWorkbook.Sheets(1).Range("a1")

.UsedRange.Rows("2:" & .UsedRange.Rows.Count).Copy _

ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)

End With

Wb.Close

End If

待匯總文件 = Dir

Loop

Application.ScreenUpdating = True

End Sub

寫入代碼

2、將檔保存為xlsm格式的檔（檔案名：匯總.xlsm），

3、運行方法見圖1的演示。

速度非常快， 即使有上百張工作薄， 也能很快合併完成。

保留原表格式， 與手工複製粘貼的效果一致。

只保留一個表頭， 避免後續再整理；