大體歸納一下，韓老師講過如下幾種多工作表合并的方法：
Excel | 多工作表合并一文中，講了利用SQL語句進行多工作表合并；
在在Excel | 零基礎也會合并多工作表，只需鼠標按序點下去一文中 ，講了利用數據查詢進行工作表合并；
Excel | 利用數據透視表向導實現(xiàn)多工作表合并計算一文中，講述了利用數據透視表進行工作表合并計算；
今天增加一種新的，最快速的合并工作表的方法——VBA。
不要怕VBA，你可以從模仿開始寫起的，寫多了，見識多了，你也會了。當然，如果有編輯的基礎的，學的快一些，如果沒有編輯基礎的朋友，那要先去了解變量、語句、算法、對象的概念了。
Application.ScreenUpdating = False '關閉屏幕更新，避免合并時屏幕閃爍Dim sht As Worksheet '定義工作表變量Sheet1.UsedRange.ClearContents '清除sheet1現(xiàn)有數據For Each sht In Worksheets If sht.Name <> Sheet1.Name Then irow = .Cells(.Rows.Count, 1).End(xlUp).Row '當前工作表數據行數 icol = .Cells(1, .Columns.Count).End(xlToLeft).Column '當前工作表數據列數 If Sheet1.Range("a1") = "" Then .Range("a1").Resize(irow, icol).Copy Sheet1.Range("a1") '當前工作表第一行復制到匯總工作表 .Range("a2").Resize(irow - 1, icol).Copy Sheet1.Range("a" & Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row + 1) '當前工作表除第一行以外的數據復制到匯總工作表Application.ScreenUpdating = True '打開屏幕更新如下圖（請橫屏觀看）：
如有幫助，請點亮“在看”
本站僅提供存儲服務，所有內容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權內容，請
點擊舉報。
