如何把exc古增许他但直el表格几个单独的合并到一个表格中-天和问

合并方法如下：

把需要合并的excel表格文档城掌力你放到同一个文件夹里如何把exc古增许他但直el表格几个单独的合并到一个表格中

新建一个“数据合并.xlsx“文档如何把exc古增许他但直el表格几个单独的合并到一个表格中

打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到MicrosoftVisualBasicforApplications窗口如何把exc古增许他但直el表格几个单独的合并到一个表格中

双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：

Su来自b合并当前目录下所有工作簿的全部工作表()

DimMyPath,MyName,AWbName

DimWbAsWorkbook,WbNAsString

DimGAsLong

DimNumAsLong

DimBOXAsString

Applicat360问答ion.ScreenUpdating=False

MyPath=ActiveWorkbook.Path

MyName=Dir(MyPath&"\"&"*.xls")

AWbName=*罪尼指好流句考现矿**.Name

Num=0

DoWhileMyNam春香发看派委万却航e<>""

IfMyName<>AWbNameThe扩害会言精电文路止情独n

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

Num=Num+1

WithWorkbooks(1).ActiveSheet

.Cells(.Range("A65536").End(xlUp照构).Row+2,1)=Left(MyName,Len(MyName)-4)

ForG=1ToShe友纸犯的ets.Count

Wb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)

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

Wb.CloseFalse

EndWith

EndIf

MyName=Dir

Loo识谈班延织现p

Range("A1").Select

Applicat语套应磁日立ion.ScreenUpdating=True

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

EndSub 如何把exc古增许他但直el表格几个单独的合并到一个表格中

运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面如何把exc古增许他但直el表格几个单独的合并到一个表格中

完成Excel表格的合并。如何把exc古增许他但直el表格几个单独的合并到一个表格中