快速把多個excel表合并成一個excel表

1、如何快速把多個excel表合并成一個excel表有這么一種情況，就是我們有很多張excel，而且excel表里面的公式基本一樣，我們就想快速的把這些excel合并在一起，意思在合并在一個excel頁面，這樣可以方便我們分析和統(tǒng)計(jì)，其實(shí)利用excel表的宏計(jì)算就可以實(shí)現(xiàn)。具體步驟如下：1、需要把多個excel表都放在同一個文件夾里面，并在這個文件夾里面新建一個excel。如下圖：2、用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進(jìn)去。進(jìn)去之后就看到了宏計(jì)算界面。如下圖：3、然后把下面這些宏計(jì)算的代碼復(fù)制進(jìn)去，然后找到工具欄上面的“運(yùn)行”下的

2、“運(yùn)行子過程/用戶窗體”，代碼如下：sub 合并當(dāng)前目錄下所有工作簿的全部工作表()dim mypath, myname, awbnamedim wb as workbook, wbn as stringdim g as longdim num as longdim box as stringapplication.screenupdating = falsemypath = activeworkbook.pathmyname = dir(mypath & & *.xls)awbname = activeworkbook.namenum = 0do while myname if myname

3、 awbname thenset wb = workbooks.open(mypath & & myname)num = num + 1with workbooks(1).activesheet.cells(.range(b65536).end(xlup).row + 2, 1) = left(myname, len(myname) - 4)for g = 1 to sheets.countwb.sheets(g).usedrange.copy .cells(.range(b65536).end(xlup).row + 1, 1)nextwbn = wbn & chr(13) & wb.namewb.close falseend withend ifmyname = dirlooprange(b1).selectapplication.screenupdating = truemsgbox 共合并了 & num & 個工作薄下的全部工作表。如下： & chr(13) & wbn, vbinformation, 提示end sub如下圖：4、運(yùn)行之后，等待10秒針左右，等運(yùn)行完畢，就是合并完