excel2007合并工作薄的方法
excel2007合并工作薄的方法
Excel中經(jīng)常需要使用到合并工作簿的功能,工作簿具體該如何合并呢?下面是由學習啦小編分享的excel2007合并工作薄的方法,以供大家閱讀和學習。
excel2007合并工作薄的方法:
合并工作簿步驟1:首先把需要合并的excel工作薄整理到一個文件夾中,如圖,用來合并到一起的工作薄的名字要注意,這里取名叫“合并工作薄”。
合并工作簿步驟2:打開這個excel表,直接按鍵ALT+F11,進入下圖界面。雙擊如圖所示位置的sheet1。
合并工作簿步驟3:如圖,打開準備好的VBA代碼,復制到這個空白的代碼編譯處,代碼如下:
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年的高考錄取分數(shù)線的內(nèi)容,效果不錯,而且合并工作薄本身的工作表是不會被占用的,是新建的工作表。