快速把excel合并在一起，方便分析和統計可以利用excel表的宏計算就可以實現。方法如下：
1、我們需要把多個excel表都放在同一個文件夾里面，并在這個文件夾里面新建一個excel。如圖所示：
2、用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進去。進去之后就看到了宏計算界面。如圖所示：
3、然后我們把下面這些宏計算的代碼復制進去，然后找到工具欄上面的“運行”下的“運行子過程/用戶窗體”，代碼如下，如圖所示：
Dim?MyPath,?MyName,?AWbName Dim?Wb?As?Workbook,?WbN?As?String Dim?G?As?Long Dim?Num?As?Long Dim?BOX?As?String Application.ScreenUpdating?=?False MyPath?=?ActiveWorkbook.Path MyName?=?Dir(MyPath?&?""?&?"*.xls") AWbName?=?ActiveWorkbook.Name Num?=?0 Do?While?MyName??"" If?MyName??AWbName?Then Set?Wb?=?Workbooks.Open(MyPath?&?""?&?MyName) Num?=?Num?+?1 With?Workbooks(1).ActiveSheet .Cells(.Range("B65536").End(xlUp).Row?+?2,?1)?=?Left(MyName,?Len(MyName)?-?4) For?G?=?1?To?Sheets.Count Wb.Sheets(G).UsedRange.Copy?.Cells(.Range("B65536").End(xlUp).Row?+?1,?1) Next WbN?=?WbN?&?Chr(13)?&?Wb.Name Wb.Close?False End?With End?If MyName?=?Dir Loop Range("B1").Select Application.ScreenUpdating?=?True MsgBox?"共合并了"?&?Num?&?"個工作薄下的全部工作表。如下："?&?Chr(13)?&?WbN,?vbInformation,?"提示" End?Sub
4、運行之后，等待10秒針左右，等運行完畢，就是合并完成之后，會有提示，點確定就可以了。
5、查看合并后的數據，有5000多行，就是同一個文件夾里面17個excel表數據合并后的結果。效果如圖所示。
相關文章推薦： ? ? ? ? ?? 1.excel中如何將多個sheet合并成一個 2.表格內容如何合并？
更多Excel相關技術文章，請訪問Excel教程欄目進行學習！
? 版權聲明
文章版權歸作者所有，未經允許請勿轉載。
THE END
