1、第一步当然就是打开文件，确定自己需要合并几个单元格的内容，例如今天示例速离表格是sheet1-sheet3 ，三个表格；新建一个【合并】表格用来存放汇总的数据；然后对准【合并】表格点击 鼠怕言标右键；
2、在弹出的表格中点击sheet合并，点击鼠标右键，选择【插入】→【模块】，然后复制代码粘贴在代码栏目中；
代码如下：（图中有对代码的解释）
Sub 合并()Dim x As Integer, K As IntegerSheets("合并").Cells.ClearFor x = 1 To 3 K = Application.CountA(Sheets("合并").[a:a]) + 1 Sheets(x).UsedRange.Copy Sheets("合并").Cells(K, 1)Next xEnd Sub
然后记得保存，然后关闭代码界面；
3、返回表格界面，点击【插入】→【形状】，插入任意形状即可，只要符合表格设计就好；然后对准画出的形状点击鼠标右键，选择 指定宏，选中刚刚写好宏命令代码；
4、最后一步就可以检验了，单击形状后，就会自动运行宏代码了。你会发现表格内容被合并了；
5、还有一步不要忘记，吩物篇在形状上填写上文字，至少让别人知道这个形状在这里的意义；
