如何把多個文件合并成一個文件夾？這個可以按照可以修改excel代碼來胸壁痛多個文件。詳細點步驟：1、剛建一個文件夾。2、即將合并的表格弄到里面。3、新建任務一個表格。4、用excel再打開。5、右擊S

如何把多個文件合并成一個文件夾？

這個可以按照可以修改excel代碼來胸壁痛多個文件。詳細點步驟：

1、剛建一個文件夾。

2、即將合并的表格弄到里面。

3、新建任務一個表格。

4、用excel再打開。

5、右擊Sheet1。

6、中,選擇欄里點代碼。

7、將下列代碼圖片文件夾到文本框中：Sub單獨設置當前目錄下所有工作簿的全部工作表()Dim MyPath,MyName,AWbName Dim Wb As workbook,WbNlikeString Dim GAs LongDimNumAs LongDimBOXlikeString False MyPath MyName Dir(MyPath*.xls)AWbNameNum0DoWhileMyNameIfMyNameAWbNameThenSetWb(MyPath MyName)Num Num 1 With Workbooks(1).ActiveSheet.Cells(.Range(B65536).End(xlUp).Row2,1)Left(MyName, Len(MyName)-4)ForG1did(G).Cells(.Range(B65536).End(xlUp).Row1,1)Next WbN WbN Chr(13)False End With End If MyName Dir Loop Range(B1).SelectTrueMsgBox共不合并了Num個工作薄下的全部工作表。追加：Chr(13)WbN,vbInformation,提示EndSub

8、再點運行，即可順利擴展。：-Microsoft OfficeExcel

wps如何將多個表格數(shù)據(jù)合并到一個表格中？

1、新建項一個文件夾、將要合并的表格弄到里面、空白文檔一個表格、用excel然后打開、右擊Sheet1

2、中,選擇欄里點代碼(PS：excel有著一項，WPS沒有)

3、將c選項代碼不能復制到文本框中：

Sub不合并當前目錄下所有工作簿的全部工作表()

DimMyPath,MyName,AWbName

DimWbsuchworkbook,WbNsuchString

DimGAs Long

DimNumAs Long

DimBOXlikeString

False

MyPath

MyNameDir(MyPathampamp*.xls)

AWbName

Num0

DoWhileMyNameltgt

IfMyNameltgtAWbNameThen

SetWb(MyPathampampMyName)

NumNum1

WithWorkbooks(1).ActiveSheet

.Cells(.Range(B65536).End(xlUp).Row2,1)Left(MyName, Len(MyName)-4)

ForG1can

(G).Cells(.Range(B65536).End(xlUp).Row1,1)

Next

WbNWbNampChr(13)amp

False

EndWith

EndIf

MyNameDir

Loop

Range(B1).Select

True

MsgBox共胸壁痛了ampNumamp個工作薄下的全部工作表。萬分感謝：ampChr(13)ampWbN,vbInformation,提示

EndSub

4、直接點擊運行、段時間(它取決于表格的大小和多少)后，擴展能夠完成了。