代碼分為三部分：
第一部分是新建一個匯總的工作表，并重新自定義命名；
第二部分是逐一將各個工作表復制粘貼到匯總工作表中；
第三部分為提示，即當合并工作完成后彈出提示。

代碼如下：

Sub Comb()Dim i%On Error Resume NextSheets(1).SelectWorksheets.Add '新建一個工作表Sheets(1).Name = "匯總工作表" '對新建工作表重命名For i = 2 To Sheets.Count 'For循環，遍歷所有工作表Sheets(i).Activate '激活工作表Range("a1").SelectSelection.CurrentRegion.Select '選擇活動工作表數據區域Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘貼到匯總工作中NextMsgBox ("工作表已全部合并到指定工作表中！") '彈窗提示合并完成End Sub

總結

以上是生活随笔為你收集整理的[VBA]EXCEL同工作簿中多工作表合并VBA代码的全部內容，希望文章能夠幫你解決所遇到的問題。

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