多sheet的表里1、新建一個工作薄，將其命名為你合并后的名字。2、打開此工作薄。3、在其下任一個工作表標(biāo)簽上點(diǎn)擊右鍵，選擇“查看代碼”。（wps的該按鈕在開發(fā)工具下）4、在打開的VBA編輯窗口中粘貼

多sheet的表里1、新建一個工作薄，將其命名為你合并后的名字。2、打開此工作薄。3、在其下任一個工作表標(biāo)簽上點(diǎn)擊右鍵，選擇“查看代碼”。（wps的該按鈕在開發(fā)工具下）4、在打開的VBA編輯窗口中粘貼以下代碼：

Sub 工作薄間工作表合并()Dim FileOpenDim X As FalseFileOpen (FileFilter:Microsoft Excel文件(*.xls),*.xls, MultiSelect:True, Title:合并工作薄)X 1While X UBound(FileOpen) Filename:FileOpen(X)Sheets().Move After:()X X TrueExit Suberrhadler:MsgBox Sub

5、關(guān)閉VBA編輯窗口。6、在excel中，工具---宏---宏,選“工作薄間工作表合并”,然后“執(zhí)行”。7、在打開的對話窗口中，選擇你需要合并的工作表，如果多的話，可以放在一個文件夾，然后全選。8、等待。。。。ok！

二 將一個表里的很多sheet合并到一個sheet

1、在包含多個sheet的工作簿中（如多個工作簿合并后含n個sheet的工作簿），新建一個sheet2、在新建的sheet標(biāo)簽上點(diǎn)擊右鍵，選擇“查看代碼”（wps的該按鈕在開發(fā)工具下）3、在打開的VBA編輯窗口中粘貼以下代碼：

Sub 合并當(dāng)前工作簿下的所有工作表()

False

For j 1 To

If Sheets(j).Name Then

X Range(A65536).End(xlUp).Row 1

Sheets(j) Cells(X, 1)

End If

Next

Range(B1).Select

True

MsgBox 當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！, vbInformation, 提示

End Sub

運(yùn)行，等待……合并好了后會彈出提示。

以上為眾多知友知識集中后本人整理而來，取之于知友，還之于知友。如有侵權(quán)妨礙，請聯(lián)系我，并第一時間處理。