Excel 工作表合并不是一个困难的问题，但是在应用的时候可能会不知所措，因为有大量的数据表要合并到一个表里 ， 通常会选择一个一个表复制，似乎这样做就显得十分低效，而且真得没有必要这样工作 。
本示例制作了一个任意选择工作表，并工作表合并到一个表里的方法，如下图所示：
可以通过一个按钮来选择想要合并的表，然后，输入一下合并后新的工作表名 ， 接着就等程序自动完成合并，右侧列表框中会显示出合并后的工作表名称 。
可以双击打开合并后的工作表，进行查看 。这都不是重点 。、
流程就是这样，重点来看一下代码：
Private Sub 合并工作表()On Error Resume NextApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim xExcel As String, xi As Integer, xArrWith Application.FileDialog(msoFileDialogFilePicker)If .Show = -1 Then.Filters.Clear.Filters.Add "Excel文件", "*.xls;*.xlsx;*.xlsm".AllowMultiSelect = TrueReDim xArr(1 To .SelectedItems.Count)For xi = 1 To UBound(xArr)xArr(xi) = .SelectedItems(xi)Next xiEnd IfEnd WithDim xE As VariantDim w As Workbook, wX As Workbook, wCaption As StringwCaption = VBA.InputBox("输入文件名", "保存文件", VBA.Format(VBA.Date, "yyyymmdd"))If VBA.Len(VBA.Trim(wCaption)) = 0 Then Exit SubSet wX = Workbooks.AddwX.SaveAs ThisWorkbook.Path & "" & wCaption & ".xlsx"Me.ListBox2.AddItem wX.FullNameFor Each xE In xArrWorkbooks.Open xESet w = ActiveWorkbookw.Worksheets(1).Copy wX.Worksheets(1)wX.Savew.CloseWith Me.ListBox1.AddItem xEEnd WithNext xEwX.SavewX.CloseErase xArrSet w = NothingSet wX = NothingApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub这样一个操作，可大大减少合并工作表操作的难度，显而易见是一个很有用的东西 。
欢迎关注、收藏
【Excel 自动合并工作表的方法，VBA源代码免费放送】---END---