在同一个Excel文件中汇总多个工作表并不复杂，但需要一些编程知识。首先，创建一个文件夹并把需要合并的表格放入其中。然后，创建一个新的Excel文件，并用Excel打开它。接下来，右击第一个工作表Sheet1，选择“查看代码”。请注意，Excel具有此功能，但WPS可能没有。将以下代码复制到文本框中：Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsworkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&"\"&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName""IfMyNameAWbNameThenSetWb=Workbooks.Open(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub点击“运行”，根据表格大小和数量的不同，合并过程可能需要一些时间。完成后，你将看到所有合并后的表格。