如何把多个excel表合并到一个工作簿的多个连固继试衣宣映手联工作表

如何把多个excel表合并到一个工作簿的多个连固继试衣宣映手联工作表

1、新建一个文伤践件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1

2、选择查看代码（PS：excel有着一项，WPS没有）

3、将下列代码复制到文本框中：

Sub合并当前目录下所有工作簿的身写即教岁挥短全部工作表()

DimM来自yPath,MyName,AWbName

DimWbAsworkbook,WbNAsString

DimGAsLong

360问答DimNumAsLong

DimBOXAsString

Application.ScreenUpdating=False

MyPath=ActiveWorkbook.Path

MyN神境脚千述轴ame=Dir(MyPath&"\"&"*.xls")

损代那测黑停AWbName=***.Name

Num=0

DoWh重优东北ileMyName<>""

IfMyName<>AWbNameThen

SetWb=***.Open(MyPath&"\"&MyName)

Nu象可井买m=Num+1

WithWorkbooks(1).ActiveSheet

案宣雷织.Cells(.Ra记苦nge("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)

农尽带甚叶电ForG=1ToSheets.Count

Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,哥儿职极肉它深牛丰防缺1)

Next

WbN=WbN&Chr(13)&***.Name

Wb.CloseFalse

EndWi点划th

EndIf

MyName=Dir

Loop

Range("B1").Select

Application.ScreenUpdating=True

MsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"

EndSub

4、点击丰南核初运行、一段时间（取决于表格的大小和多少）后，合并完成了。