excel shell合成_1分钟拆解：「如何将10多个工作表sheet，合并成一张？」

大家好，我是有讲课堂的认证达人：解题宝宝。

今天到了VBA教学时间！

因为今天阿，解题宝宝无聊闲逛，惊奇发现了两份VBA代码，特意分享给大家。

是解决如何合并大量不同的工作表哒。

多少张都没问题！亲测有效！

分为以下两种情况☟

01 合并同一工作簿的不同工作表。

效果长这样：

本来，同一工作簿下，一个排班表是一张sheet；

接下里，就变成：所有排班表汇总成一张sheet，格式还自动排好！

◎ 效果演示

代码立即备上，宝宝们直接复制粘贴就好，操作无敌容易！

Step 1

新建一个Sheet，鼠标右键选择 查看代码 。这时你打开了VBA界面。

◎ 操作演示

Step 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</