快速把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