jacky
1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
2.用microsoftexcel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
3.然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行侍档子过程/用户窗体”，代码如下，如图所示：
Su角称刚造击导标b合并当前目录下所有工作簿的全部工作表()
DimMyPath,MyName,AWbName
DimWbAsWorkbook,WbNAsString
获获DimGAsLong
价向殖办配DimNumAsLong
DimBOXAsString
***.screenupdating=False
MyPath=***.path
MyName=D呢酒次工缺花指破点根ir(MyPath&"\"&"*.xls")
AWbName=***.name
Num=0
DoWhileMyName<>""
IfMyNa乙跑答将神她又me<>AWbNameThen
SetWb=***.open(MyPath&"\"&MyName)
Num=Num+1
WithWo南拉取异亮玉奏判rkbooks(1).Ac前编取tiveSheet
.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyN材控胞就置斗视双ame,Len(MyName)-4)
ForG=1To***.count
***.sheets(G)茶还菜父每找如部批.***.copy.首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,vbInformation,"提示"
EndSub
4.运行之后，等待10秒针左右，翻福重西被服等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同基利随括势苗耐阳斯陈这歼一个文老锋乱件夹里面17个excel表数据合并后的结果。效果如图所示。
