前言：

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的演示。

該方法的優點：

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

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

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

結語：今天的小技巧非常簡單，但在工作中卻非常實用，可以節省你大量的寶貴時間！原創教程不易，如果你覺得本文對你有幫助或啟發，請點贊並分享給更多小夥伴吧！