平時工作，可能會因不同的檔案建立多個excel工作簿，有些工作簿只包含一個單獨的工作表，有些工作簿有多個工作表。時間久了，就想將有用的工作簿合併到一起，不至於每次都來來回回的開啟多個工作表。如何實現合併多個工作簿呢，對excel感興趣的朋友可加excel學習***：284029260
it部落窩
小編能想到的有兩種方法。第一，使用命令實現合併多個工作簿。第二，使用巨集**實現合併多個工作簿。
使用命令合併工作簿的方法是這樣的：
開啟全部工作簿，右鍵點選工作名，出現"移動或複製工作表"對話方塊，在“工作簿”下拉選單選擇目標工作簿，在“下列選定工作表之前”選擇相應的工作表，可以對工作簿進行移動或者複製，如果是複製，可以勾選“建立副本”。
使用巨集**實現合併多個工作簿的方法：
將下面**複製到**頁面，然後執行巨集就可以了。
sub 合併工作薄()
dim filestoopen
dim x as integer
on error goto errhandler
(filefilter:="microsoft excel檔案(*.xls), *.xls", _
multiselect:=true, title:="要合併的檔案")
if typename(filestoopen) = "boolean" then
msgbox "沒有選中檔案"
goto exithandler
end if
x = 1
while x <= ubound(filestoopen)
workbooks.open filename:=filestoopen(x)
sheets().move after:=thisworkbook.sheets(thisworkbook.sheets.count)
x = x + 1
wend
exithandler:
exit sub
errhandler:
msgbox err.description
resume exithandler
end sub
將同一工作簿中的所有工作表合併到一個新建的工作表中
將同一工作簿中的所有工作表合併到一個新建的工作表中 2010 10 02 12 09 在工作中有時會遇到資料合併的問題，需要將當前工作簿中的全部工作表合併在一起。通常的做法是先新建一個空白的工作表，然後依次將有資料的工作表中的內容複製後，按順序貼上到這個空白的工作表中。如果工作表的數量較多，手工操作...