工作簿合并
-
新建一個excel工作薄，將其命名為合并后的名字
Snipaste_2019-06-13_14-52-03.png 打開此工作薄
-
在任意Sheet工作表標簽上點擊右鍵，選擇“查看代碼”
excel 查看代碼.png 在打開的VBA編輯窗口中粘貼以下代碼：
VBA窗口.png
Sub 工作薄間工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx;*.xls),*.xlsx;*.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
-
點擊運行或按F5鍵竖哩，會自動彈出打開文件對話框览绿，選中需要合并的文件窿祥，點擊【打開】只冻，即可完成合并
Snipaste_2019-06-13_14-55-05.png
- 關閉VBA編輯窗口即可
工作表合并
- 新建一個工作表庇麦，在新建工作表標簽上點擊右鍵，選擇“查看代碼”
- 在打開的VBA編輯窗口中粘貼以下代碼：
Sub 合并當前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "當前工作簿下的全部工作表已經(jīng)合并完畢喜德！", vbInformation, "提示"
End Sub
- 點擊運行或按F5鍵
- 關閉VBA編輯窗口
