51福利网
各种薅羊毛福利分享福利网

1秒合并100个Sheet,Excel多表合并插件自已做!

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

如果逐个表复制粘贴太慢了。以前兰色也介绍过3种方法:公式链接、Microsoft Query和Power Query。

51福利网

其中公式法会因为有太多公式而拖慢表格速度,而被很多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技巧、函数的用法,觉得自已是大神的时候,学会了VBA,你会发现原来你以前学的只是小儿科而已,就如本文的几行VBA代码就可以秒杀power query。一个不会VBA的Excel用户,只能是初级水平而已。

赞(0) 打赏
51福利网薅羊毛福利具有时效性,如有失效,请留言
文章名称:《1秒合并100个Sheet,Excel多表合并插件自已做!》-51福利网
文章链接:https://www.51wuditu.com/2233
分享到: 更多 (0)

评论 抢沙发

评论前必须登录!

Hi, 请登录     我要注册

亚青文化·51福利网最新最全薅羊毛,现金红包线报网

51联盟线报群赚钱·合作·帮助

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏