Excel表格中用VBA一键批量汇总所有表格内容，你会么？

工作中，会遇到多个表格内容汇总到一张总表中，很多人都是一张一张表格的复制粘贴，当然这个方法对于数据量大的工作来说，无疑是烦心到了极致，今天教大家如何使用VBA代码一键操作完成批量表格的汇总的工作；

第一步当然就是打开文件，确定自己需要合并几个单元格的内容，例如今天示例表格是sheet1-sheet3 ，三个表格；新建一个【合并】表格用来存放汇总的数据；然后对准【合并】表格点击 鼠标右键；

在弹出的表格中点击sheet合并，点击鼠标右键，选择【插入】→【模块】，然后复制代码粘贴在代码栏目中；

代码如下：（图中有对代码的解释）

Sub 合并()

Dim x As Integer, K As Integer

Sheets("合并").Cells.Clear

For x = 1 To 3

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

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

Next x

End Sub

然后记得保存，然后关闭代码界面；

返回表格界面，点击【插入】→【形状】，插入任意形状即可，只要符合表格设计就好；然后对准画出的形状点击鼠标右键，选择指定宏，选中刚刚写好宏命令代码；

最后一步就可以检验了，单击形状后，就会自动运行宏代码了。你会发现表格内容被合并了；

还有一步不要忘记，在形状上填写上文字，至少让别人知道这个形状在这里的意义；

我是作者安志斌，如果感觉不错的话就点击【关注】吧。谢谢支持!