excel多表如何合并到一張表格

excel多表如何合并到一張表格

快速把excel合并在一起,方便分析和統計可以利用excel表的宏計算就可以實現。方法如下:

1、我們需要把多個excel表都放在同一個文件夾里面,并在這個文件夾里面新建一個excel。如圖所示:

excel多表如何合并到一張表格

2、用microsoft excel打開新建的excel表,并右鍵單擊sheet1,找到“查看代碼”,單擊進去。進去之后就看到了宏計算界面。如圖所示:

excel多表如何合并到一張表格

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

excel多表如何合并到一張表格

4、運行之后,等待10秒針左右,等運行完畢,就是合并完成之后,會有提示,點確定就可以了。

excel多表如何合并到一張表格

5、查看合并后的數據,有5000多行,就是同一個文件夾里面17個excel表數據合并后的結果。效果如圖所示。

excel多表如何合并到一張表格

相關文章推薦: ? ? ? ? ?? 1.excel中如何將多個sheet合并成一個 2.表格內容如何合并?

更多Excel相關技術文章,請訪問Excel教程欄目進行學習!

? 版權聲明
THE END
喜歡就支持一下吧
點贊14 分享