如何将若干多个EXCEL表格合并到一张EXCEl中的不同sheet页上？请大师指教

GAP

新建一个表格，起个名字然后保存到那100个要合并的文件同一个文件夹里。按一下 Alt + F11，然后在左边工程管理器里找到 Sheet1 (Sheet1)，双击它。然后在右边的代码区域粘贴下面这段代码：vbSub 合并当前目录下所有工作簿的全部工作表()Dim mypath, myname, awbnameDim wb As Workbook, wbn As StringDim g As LongDim num As LongDim box As StrinGAPplication.ScreenUpdating = Falsemypath = ActiveWorkbook.Pathmyname = Dir(mypath & *.xls)awbname = ThisWorkbook.Namenum = 0Do While myname If myname awbname ThenSet wb = Workbooks.Open(mypath & & myname)num = num + 1With Workbooks(1).ActiveSheet.Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(myname, Len(myname) - 4)For g = 1 To Sheets.Countwb.Sheets(g).UsedRange.Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1)Nextwbn = wbn & Chr(13) & wb.Namewb.Close FalseEnd WithEnd Ifmyname = DirLoopRange(A1).SelectApplication.ScreenUpdating = TrueMsgBox 共合并了 & num & 个工作薄下的全部工作表。如下： & Chr(13) & wbn, vbInformation, 提示End Sub

然后运行一下这个宏，等一会儿就搞定了。