卢子以前分享过很多实用的模板，一键搞定工作确实很爽，可惜一到你手上就出现各种问题。

案例：将格式相同的多表中的内容合并在第一个工作表。

鼠标点一下二维码，瞬间将所有工作表的数据合并过来。

读者在使用过程中，各种问题都有，现在针对这些问题逐一解答。

1.直接复制二维码到自己的工作簿，点击二维码发现完全没反应。

二维码图片只是一个过程媒介而已，最核心部分是已编写完整的过程代码。有了附加的过程代码，才能真正的合并数据。

2.下载了卢子提供的模板，点击二维码，弹出无法运行的警告对话框。

01 使用WPS表格打开

默认情况下，WPS表格是不支持使用VBA，需要装VBA插件才能使用，收费版支持VBA。

02 使用Excel打开

在开发工具选项卡，单击宏安全性，宏设置，启用所有宏，设置完以后，重新打开工作簿。

有部分读者没有开发工具这个功能，可以在Excel选项，自定义功能区，勾选开发工具。

前面的准备工作做好了，下面进入正题。

数据源需要满足的下面3个条件：

01 没有合并单元格

02 所有表格格式一样

03 除了要合并的表格，没有其他多余的表格

Step 01 按Alt+F11组合键，插入模块。

Step 02 在模块中将下面的VBA代码，复制粘贴上去即可。

Sub 合并()

Dim sht As Worksheet, arr

For Each sht In Worksheets

   If sht.Name <> "汇总" Then

     i = sht.Range("b65536").End(xlUp).Row

     j = Sheets("汇总").Range("b65536").End(3).Row + 1

        arr = sht.Range("a2:f" & i)

        Sheets("汇总").Range("a" & j).Resize(UBound(arr), 6) = arr

   End If

Next

End Sub

Step 03 关闭窗口回到工作表中，并插入一张照片，调整照片大小。

Step 04 右键图片，点击指定宏。

Step 05 选择刚刚的宏名，点击确定。

Step 06 确认工作表的格式统一，并且没有合并单元格。一切准备工作完成以后，就可以见证神奇的一刻。

Step 07 将工作簿另存为启用宏的工作簿，到这里就大功告成了。

源文件：

推荐：你要的一键合并所有Excel工作簿，来了！

上文：WPS表格这4个新函数实在太贴心了

七项减税措施，你最期待什么能降税？

作者：卢子，清华畅销书作者；个人公众号：Excel不加班（ID：Excelbujiaban）