來源：微信公眾號表妹的EXCEL
自從表妹開始提供EXCEL咨詢服務(wù)后，接收最多的一類問題就是“多個(gè)工作表合并“的問題。這個(gè)問題可謂是“會者不難，難者不會”，基礎(chǔ)較好的小伙伴可以通過各種花式函數(shù)和輔助功能實(shí)現(xiàn)最終效果，而基礎(chǔ)一般的小伙伴就只能天天給表妹留言提問了。為了守護(hù)EXCEL界的公平與正義，傳播愛與知識的力量，表妹勵(lì)精圖治，終于找到了解決這一亙古難題的終極辦法——宏與VBA，勤奮好學(xué)的小伙伴們趕快收藏起來吧~~
~~~~~~表格合并的分割線~~~~~~
【問題描述】
把”銷售一部"、”銷售二部"和”銷售三部"，3張工作表中的數(shù)據(jù)合并到“匯總”工作表中。
PS：各個(gè)工作表中的標(biāo)題字段內(nèi)容相同且順序相同
-------------------------------------
【終極方法】
1.新建宏，命名為：合并
-------------------------------------
2.在新建的宏中添加VBA代碼（粗體標(biāo)注為可替換參數(shù)）：
——————————————————
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
——————————————————
代碼參數(shù)解釋:
For i = 1 To3：要合并的工作表有3張；
Sheets(4)：合并后的“匯總”工作表位于第4頁；
Range("A2", "D" & p).Select：被合并工作表從A2單元格開始合并，合并到D列。
-------------------------------------
3.保存并運(yùn)行宏代碼
-------------------------------------
怎么樣，掌握了這個(gè)終極辦法，以后合并工作表的問題可就再也難不倒你啦~~好學(xué)奮進(jìn)的同學(xué)們趕快自己動手試試吧！
~~~~~~表格合并的分割線~~~~~~
如果你覺得表妹的分享內(nèi)容很實(shí)用，歡迎分享給其他小伙伴呦，獨(dú)樂樂不如眾樂樂嘛！
關(guān)注微信公眾號“表妹的EXCEL”，每周一、三、五獲取原創(chuàng)分享教程。加入“表妹的EXCELQQ群（345387282）”，和勤奮好學(xué)的小伙伴們一起快樂地學(xué)習(xí)EXCEL吧！
