EXCEL多个相同的表格合成一个表格先将30多个表合并到一个工作薄中，再将工作薄中的30多个表合并到一个工作表中，具体如下：1.新建一个excel文件并打开，按ALT+F11-插入-模块，将下面的代码复制到模块中：Sub merge()Dim FileSetDim i As IntegerDim filenameOn Error GoTo 0Application.ScreenUpdating = FalseFileSet = Application.GetOpenFilename(FileFilter:=Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xlsx),*.xlsx, MultiSelect:=True, Title:=选择需要合并的文件)If TypeName(FileSet) = Boolean ThenGoTo ExitSubEnd IfFor Each filename In FileSetWorkbooks.Open filenameSheets().Move after
