1秒合并100个Sheet，Excel多表合并插件自已做！

一个Excel工作簿中有N张sheet表，现需要把它们合并到一张表中。

如果逐个表复制粘贴太慢了。

公式法会因为有太多公式而拖慢表格速度，而被很多Excel高手视为法宝的Power query，昨晚兰色测试合并8个表时直接卡死。速度真的很慢很慢.....

而如果是下面的形式呢：

在合并表中点一下按钮，瞬间完成多张sheet表的合并。

上面的操作是不是你最想要的？

操作步骤：

1、在工作表右键 - 查看代码

2、在弹出的窗口执行插入 - 模块，然后把下面的代码粘贴到右面的窗口中，然后关闭该窗口

Sub 合并()

Dim x As Integer, K As Integer

Sheets(\"合并\").Cells.Clear

For x = 1 To 16

K = Application.CountA(Sheets(\"合并\").[a:a]) + 1

Sheets(x).UsedRange.Copy Sheets(\"合并\").Cells(K, 1)

Next x

End Sub

代码的含义：

看不懂？没关系，你只需要复制粘贴代码即可，有两个地方你可以自定义修改：

For x =1 to 16 这里1和16是表格前后序号，你可以设置合并的范围。Sheets(\"合并\"） 这里的合并是总表的名称，你的Excel文件中需要有这个一个表，你也可以自定义一个名称。

3、开发工具 - 拖画出一个按钮 - 弹出的指定宏窗口中选取合并 - 确定 - 修改按钮标题。

4、文件另存为“Excel 启用宏的工作簿”格式

完成！如果小伙伴们觉得有用，记得点赞转发哦！

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格十大函数(Excel表格函数公式出现错误怎么办?)
• 对不起！忘了告诉你如何激活win10LTSC版，比windows7流畅干净
• Mac新手使用技巧——Mac音量调节
• 新入手的iPhone 13，记得提前打开这5个功能，让手机更好用
• iPhone状态栏中怎么显示图标 状态栏爱心等图标设置方法
• iphone应用图标大小要怎么调整？(iPhone应用图标大小)
• 有办法了！批量删除多个Word页眉页脚
• Excel常用函数知识：使用RANK.EQ或RANK.AVG函数进行排名计算
• RANKIF？Excel中有这个函数吗？
• 手机与和U盘的连接及文件操作(手机直接连接u盘为什么不能互传文件)