很快將excel合并在一起，利用excel表格的宏計(jì)算，輕松實(shí)現(xiàn)分析和統(tǒng)計(jì)。方法如下:1 .我們需要將多個(gè)excel表放在同一個(gè)文件夾中，并在這個(gè)文件夾中創(chuàng)建一個(gè)新的excel。如圖:2。用micro

很快將excel合并在一起，利用excel表格的宏計(jì)算，輕松實(shí)現(xiàn)分析和統(tǒng)計(jì)。方法如下:1 .我們需要將多個(gè)excel表放在同一個(gè)文件夾中，并在這個(gè)文件夾中創(chuàng)建一個(gè)新的excel。如圖:2。用microsoft excel打開新創(chuàng)建的excel表格，右鍵單擊sheet1，find "查看代碼和，然后單擊。進(jìn)入后會(huì)看到宏計(jì)算界面。如圖:3。然后我們復(fù)制下面宏計(jì)算的代碼，然后找到 "運(yùn)行子流程/用戶表單 "欠 "跑步和跑步在工具欄上。代碼如下，如圖:dim my path，my name，awbnamedimwbas workbook，WbN As string dim G As long dim Num As long dim BOX As false my path Dir(my path amp amp *。xls)awb name 0 do While my name ltgt If my name ltgt awb name then set Wb(my path amp my name)Num Num 1 with Workbooks(1). active sheet . cells(。范圍(B65536)。結(jié)束(xlUp)。行2，1)左(我的名字，Len(我的名字)- 4)為G 1到(G)。單元格(。范圍(B65536)。結(jié)束(xlUp)。Row 1，1)nextwbn WBN amp chr(13)amp false end without end if myname dirlooprange(B1)true msgbox已合并amp Num amp workbooks下的所有工作表。如下:amp Chr(13) amp WbN，vbInformation，提示End Sub4。跑步后，等待10秒左右。運(yùn)行后會(huì)有提示，點(diǎn)擊確定即可。5.檢查合并的數(shù)據(jù)。有5000多行，是把17個(gè)將兩個(gè)表格的內(nèi)容整合成一個(gè)表格。選擇需要打印不同項(xiàng)目的列，點(diǎn)擊數(shù)據(jù)并刪除重復(fù)項(xiàng)目。