工作中，会遇到多个表格内容汇总到一张总表中，很多人都是一张一张表格的复制粘贴，当然这个方法对于数据量大的工作来说，无疑是烦心到了极致，今天教大家如何使用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
然后记得保存，然后关闭代码界面；
返回表格界面，点击【插入】→【形状】，插入任意形状即可，只要符合表格设计就好；然后对准画出的形状点击鼠标右键，选择指定宏，选中刚刚写好宏命令代码；
最后一步就可以检验了，单击形状后，就会自动运行宏代码了。你会发现表格内容被合并了；还有一步不要忘记，在形状上填写上文字，至少让别人知道这个形状在这里的意义；
当然也别忘记分享给身边的朋友，分享是一种快乐；
哈哈，有心的朋友也可以打赏小编一下，给点儿动力，谢谢！安排！