excel教程中合併工作簿的兩種方法

2023-01-25 12:10:58 字數 1046 閱讀 4367

平時工作,可能會因不同的檔案建立多個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 在工作中有時會遇到資料合併的問題,需要將當前工作簿中的全部工作表合併在一起。通常的做法是先新建一個空白的工作表,然後依次將有資料的工作表中的內容複製後,按順序貼上到這個空白的工作表中。如果工作表的數量較多,手工操作...