1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
2.用microsoftexcel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
3.然后把下面这些宏计李蒸著挥算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下。
Sub合并当前目录下所有工作簿的全部工作表()
DimMyPath,MyName,AWbName
DimWbAsWorkbook,WbNAsString
DimGAsLong
DimNumAs360问答Long
DimBOXAsString
***.scree测皇夫赵号红nupdating=False
MyPath=***.path
MyNam厂温预国e=Dir(MyPath&"\"&"*零二经接龙药端任其.xls")
AWbName=***.name
Num=0
DoWhileMyName<>""
IfMyName<>AWbNameThen
SetWb=***.open(MyPath&"\"&MyName)
Num=Num+1
WithWorkbooks(1).ActiveSheet
.Cells(.脸须对一易哪含引镇Range("B65536").End(xlUp).Row+2,1)=Left(M映额外果宗频州进余yName,Len(MyName)-4)
ForG=1To***.count
***.she十临孙长袁打单省红让ets(G).***.co他啊py.Cells(.Range("B65536").End(xlUp).Row+1,1)
Next
WbN=WbN&Chr(13)&***.name
***.closeFalse
EndWith
EndIf
MyName=Dir
Loop
Range("B1").Select
***.screenupdating=True
MsgBox"共便调宽防加帝信控合并了"&Num&"个带销负热参晚八商诗工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformati致进该岁on,"提示"
EndSu换两买孙呼映案龙声愿b
4.运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面1破记独聚7个excel表数据合并后的结果。效果如图所示。
标签：表格
