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

版权声明：本文为tony-qian原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/tony-qian/p/10935169.html