今天我们分享一下，表格合并的问题。
常规上复制粘贴就能得到结果，
我们今天需要分享的方法，比如10000个工作表如何合并的问题。
因为需求的不同，需要的方法也不同，简单的分为两步，①多个Excel表合并到一个EXCEL表的多个sheet；②一个Excel表的多个sheet合并到同一个sheet里面。今天我们先分享VBA把多个Excel表合并到同一个Excel表的多个sheet。
执行代码为:
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls),*.xlsx", _
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:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
其中需要注意的是(FileFilter:="MicroSoft Excel文件(*.xls),*.xlsx", _
括号里面要含文件拓展名，可以直接更改匹配的拓展名。否则是无法找到文件的。
