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的演示。
該方法的優點:速度非常快,即使有上百張工作薄,也能很快合併完成。
保留原表格式,與手工複製粘貼的效果一致。
只保留一個表頭,避免後續再整理;
結語:今天的小技巧非常簡單,但在工作中卻非常實用,可以節省你大量的寶貴時間!原創教程不易,