来源：微信公众号表妹的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吧！
网友评论