如何把几个xls表格文本汇总一个表格里

我想把几个格式相同表格会总成一个表格

确保格式”真的“相同。得用宏。打开其中一个，同时按Alt和F11进入宏界面，点菜单的宏，插入，模块，粘贴如下代码：Sub test()Dim MyDir, xStr As StringApplication.ScreenUpdating = FalseMyDir = ThisWorkbook.Path & "\"ChDrive Left(MyDir, 1)ChDir MyDirxStr = Dir$("*.xls")DoIf LCase(xStr) <> LCase(ThisWorkbook.Name) ThenWorkbooks.Open xStr, 0, 1Range("A1:M100").CopyThisWorkbook.ActivateRange("A1:M100").PasteSpecial Operation:=xlAddWorkbooks(xStr).Close 0End IfxStr = Dir$Loop Until Len(xStr) = 0Application.ScreenUpdating = TrueEnd Sub在此界面下直接按F5运行此宏，等一会，就完成了。