操作方法
把需要合并的excel表格放到同一个文件夹里
新建一个“数据合并.xlsx“文档
打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：Alt+F11，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口
双击左边工程窗口的sheet1工作表（插入→模块，同样效果），在右侧的代码区粘贴如下代码： Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (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: Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub
运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5）
选择所需合并的Excel文件→打开
经过一番自动化操作，被选择Excel文档已经合并到“数据合并.xlsx“文档的工作表当中。