前言:
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的演示。
該方法的優點:
速度非常快,即使有上百張工作薄,也能很快合併完成。
保留原表格式,與手工複製粘貼的效果一致。
只保留一個表頭,避免後續再整理;