打開工作簿，在工作表標簽中會顯示包含的工作表名稱，教程以下圖中三個工作表為例，分別是Sheet1，Sheet2，Sheet3.按下組合鍵Alt+F11即可從Excel工作界面切換到VBA界面，在VBA窗口單擊菜單欄中的插入，找到模塊命令，單擊該命令即可創建一個新的模塊窗口，在模塊窗口復制粘貼以下代碼：
Sub Comb()
Dim i%
On Error Resume Next
Sheets(1).Select
Worksheets.Add '新建一個工作表
Sheets(1).Name = "匯總工作表" '對新建工作表重命名
For i = 2 To Sheets.Count 'For循環，遍歷所有工作表
Sheets(i).Activate '激活工作表
Range("a1").Select
Selection.CurrentRegion.Select '選擇活動工作表數據區域
Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘貼到匯總工作中
Next
MsgBox ("工作表已全部合並到指定工作表中！") '彈窗提示合並完成
End Sub