合并表格的终极方法，你值得拥有！

来源：微信公众号表妹的EXCEL

自从表妹开始提供EXCEL咨询服务后，接收最多的一类问题就是“多个工作表合并“的问题。这个问题可谓是“会者不难，难者不会”，基础较好的小伙伴可以通过各种花式函数和辅助功能实现最终效果，而基础一般的小伙伴就只能天天给表妹留言提问了。为了守护EXCEL界的公平与正义，传播爱与知识的力量，表妹励精图治，终于找到了解决这一亘古难题的终极办法——宏与VBA，勤奋好学的小伙伴们赶快收藏起来吧~~

~~~~~~表格合并的分割线~~~~~~

【问题描述】

把”销售一部"、”销售二部"和”销售三部"，3张工作表中的数据合并到“汇总”工作表中。

PS：各个工作表中的标题字段内容相同且顺序相同

-------------------------------------

【终极方法】

1.新建宏，命名为：合并

-------------------------------------

2.在新建的宏中添加VBA代码（粗体标注为可替换参数）：

——————————————————

Dim i As Integer

Dim p As Integer

Dim q As Integer

For i = 1 To3

p = Sheets(i).[a65536].End(xlUp).Row

q = Sheets(4).[a65536].End(xlUp).Row

Sheets(i).Select

Range("A2", "D" & p).Select

Range("A" & p).Activate

Selection.Copy

Sheets(4).Select

Range("A" & q + 1).Select

ActiveSheet.Paste

Next

——————————————————

代码参数解释:

For i = 1 To3：要合并的工作表有3张；

Sheets(4)：合并后的“汇总”工作表位于第4页；

Range("A2", "D" & p).Select：被合并工作表从A2单元格开始合并，合并到D列。

-------------------------------------

3.保存并运行宏代码

-------------------------------------

怎么样，掌握了这个终极办法，以后合并工作表的问题可就再也难不倒你啦~~好学奋进的同学们赶快自己动手试试吧！

~~~~~~表格合并的分割线~~~~~~

如果你觉得表妹的分享内容很实用，欢迎分享给其他小伙伴呦，独乐乐不如众乐乐嘛！

关注微信公众号“表妹的EXCEL”，每周一、三、五获取原创分享教程。加入“表妹的EXCELQQ群（345387282）”，和勤奋好学的小伙伴们一起快乐地学习EXCEL吧！