EXCEL多个相同的表格合成一个表格.docxVIP

. EXCEL 多个相同的表格合成一个表格 先将 30 多个表合并到一个工作薄中，再将工作薄中的 30 多个表合并到一个工作表中，具体如下： 1.新建一个 excel 文件并打开，按 ALT+F11-- 插入 -- 模块，将下面的代码复制到模块中： Sub merge() Dim FileSet Dim i As Integer Dim filename On Error GoTo 0 Application.ScreenUpdating = False FileSet = Application.GetOpenFilename(FileFilter:=Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xls x),*.xlsx, MultiSelect:=True, Title:= 选择需要合并的文件 ) If TypeName(FileSet) = Boolean Then GoTo ExitSub End If For Each filename In FileSet Workbooks.Open filename Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next ExitSub: Application.ScreenUpdati