[VBA]EXCEL同工作簿中多工作表合并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