打开工作簿,在工作表标签中会显示包含的工作表名称,教程以下图中三个工作表为例,分别是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