excel2007合并工作薄的方法

　　Excel中經(jīng)常需要使用到合并工作簿的功能，工作簿具體該如何合并呢?下面是由學(xué)習(xí)啦小編分享的excel2007合并工作薄的方法，以供大家閱讀和學(xué)習(xí)。

　　excel2007合并工作薄的方法：

　　合并工作簿步驟1：首先把需要合并的excel工作薄整理到一個文件夾中，如圖，用來合并到一起的工作薄的名字要注意，這里取名叫“合并工作薄”。

　　合并工作簿步驟2：打開這個excel表，直接按鍵ALT+F11，進(jìn)入下圖界面。雙擊如圖所示位置的sheet1。

　　合并工作簿步驟3：如圖，打開準(zhǔn)備好的VBA代碼，復(fù)制到這個空白的代碼編譯處，代碼如下：

　　Sub 工作薄間工作表合并()

　　Dim FileOpen

　　Dim X As Integer

　　Application.ScreenUpdating = False

　　FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")

　　X = 1

　　While X <= UBound(FileOpen)

　　Workbooks.Open Filename:=FileOpen(X)

　　Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

　　X = X + 1

　　Wend

　　ExitHandler:

　　Application.ScreenUpdating = True

　　Exit Sub

　　errhadler:

　　MsgBox Err.Description

　　End Sub

　　合并工作簿步驟4：小說一下注意事項，如圖，注意工作薄的名字，同時，注意代碼中設(shè)定的excel版本，再一個就是為了防止上一步驟中經(jīng)驗發(fā)布后代碼出錯。

　　合并工作簿步驟5：回到“合并工作薄”的excel表格中，如圖，點擊工具(沒有的到excel的選項中添加)，選擇宏。

　　合并工作簿步驟6：選擇宏以后會出現(xiàn)下圖界面，直接雙擊圖中選項。

　　合并工作簿步驟7：雙擊后彈出選擇待合并的文件夾中工作薄，直接全選要合并的工作薄即可。

　　合并工作簿步驟8：如圖，這就是合并后的效果，這兩個工作薄是小編下載的2014年的高考錄取分?jǐn)?shù)線的內(nèi)容，效果不錯，而且合并工作薄本身的工作表是不會被占用的，是新建的工作表。