方法/步骤
我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。
用microsoftexcel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。
然后我们把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,
Sub合并当前目录下所有工作簿的全部来自工作表()
DimMyPath,MyName,AWbName
DimWbAsWorkbook,WbNAsString
DimGAsLong
DimNumAsLong
DimBOXAsString
Application.ScreenUpdating=False
MyPath=ActiveWorkbook.Path
MyName除=Dir(MyPath&"\"&"*.xls")
AWbName=**影编回皮*.Name
Nu360问答m=0
DoWhi交声外当难劳预身文黄村leMyName<>""
IfMyName<>AWbNameThen
SetWb=***.Open(MyPath&"\"&MyName)
Num=Num+1
WithWorkbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(M时yName,Len(MyNa千和喜露宣顺企少养于获me)-4)
ForG=1ToSheets.Count
Wb.Sheet微象s(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)
Next
WbN=WbN&Chr(13)&***.Name
Wb.Close结议层行False
End迅角With
EndIf
否修黑MyName=Dir
物数Loop
Range("沿个众B1").Select
Application.ScreenUpdating=True
MsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"
EndSub
4
运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果
标签:excel,表格,合并