合并单个excel表中的多个sheet

1、数据准备

如图，以6个sheet为例，每个表中都是同样结构的数据，行数不确定。现在需要将各月数据汇总到汇总表中。

2、复制代码

在汇总表的标签点“右键”，找到“查看代码”，然后看到宏计算界面。如图所示：

会看到代码输入的界面：

复制下面这段代码到空白区域：

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range(“A65536”).End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range(“B1”).Select

Application.ScreenUpdating = True

MsgBox “当前工作簿下的全部工作表已经合并完毕！”, vbInformation, “提示”

End Sub

效果如图：

3、执行代码完成合并

做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了：

合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示：

点击确定，关闭代码窗口：

可以看到数据已经完成了合并，如果不需要标题的话，筛选删除即可。

END

微信扫一扫加关注，Office自学网官方微信公众号，

专注分享软件安装和视频教程，让你一号在手，办公无忧！