利文物語記錄生活

天氣預報說：

今冬是一個寒冬。

那就讓北方干洌的冷來得痛快些吧！

昨天從知乎上學會EXCEL批量把一個表格中的不同數據復制到多個格式相同表格中的同一位置，非常實用方便，今天又在想，怎樣把這些工作表合并到一個工作表中？又從知乎上得到了答案，感謝知乎的老師，現在收藏如下：

(作者：運營菌

鏈接：https://www.zhihu.com/question/20366713/answer/1514642143

來源：知乎

著作權歸作者所有。商業轉載請聯系作者獲得授權，非商業轉載請注明出處。)

首先明確工作簿和工作表的區別：

下圖我們是工作簿：

下圖是工作表：

工作開始：

用VBA合并工作表

01.打開VBA的編輯器，【開發工具】【Visual Basic】

02.進入VB編輯器，雙擊選擇This workbook 對象下，復制以下代碼進去：

以下為代碼：

Sub 合并當前工作簿下的所有工作表()
Dim ws As Worksheet
Dim sh As Worksheet, i%
On Error Resume Next '如遇錯誤繼續運行
Application.ScreenUpdating = False '關閉屏幕刷新
Application.DisplayAlerts = False '禁用警告提示
Worksheets("匯總").Delete '刪除原匯總表
Set ws = Worksheets.Add(before:=Sheets(1)) '新建工作表
ws.Name = "匯總" '新建工作表命名為匯總
For Each sh In Sheets: '遍歷所有工作表
If sh.Name <> "匯總" Then '判斷工作表是否為匯總表
i = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 '獲取匯總表中A列數據區域最后一行的行號+1
sh.UsedRange.Copy '復制分表中的數據
ws.Cells(i, 1).PasteSpecial Paste:=xlPasteAll '粘貼數據
ws.Cells(i, 1).PasteSpecial Paste:=xlPasteColumnWidths '粘貼列寬
End If
Next
Application.DisplayAlerts = True '恢復警告提示
Application.ScreenUpdating = True '開啟屏幕刷新
MsgBox "工作表合并完畢"
End Sub

03.粘貼完成后，按F5運行，即可合并該工作簿下的所有工作表。

是不是特簡單？

這是我合并的表格：

總結

以上是生活随笔為你收集整理的vb excel遍历列_EXCEL如何把多个表格合并成一个表格的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。