国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

：Excel如何快速將工作簿中多個(gè)工作表拆分成獨(dú)立文件

在Excel一個(gè)工作簿中有多個(gè)工作表，想把里面的每個(gè)工作表拆分出來，生成單獨(dú)的文件保存起來，要怎么要操作呢？如果只有幾個(gè)工作表還好，一個(gè)個(gè)保存，但是有幾十個(gè)甚至上百個(gè)，一個(gè)個(gè)的保存可就太費(fèi)勁了。今天給你介紹用VBA的方法，秒將多個(gè)工作表變成獨(dú)立文件。

操作步驟如下：
1、打開文件，按下快捷鍵“Alt”+“F11”，打開VBA編輯器。

2、在VBA編輯器中，點(diǎn)擊“插入”菜單，選擇“模塊”。

3、在新建的模塊中，添加下面的宏代碼：

Sub SaveAllSheetsAsWorkbooks()

Dim i

Dim sht As Worksheet

Application.DisplayAlerts = False

For Each sht In Sheets

sht.Copy

i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"

ActiveWorkbook.SaveAs i

ActiveWorkbook.Close

Next

Application.DisplayAlerts = True

MsgBox "工作表拆分文件完成！", vbOKOnly, "提示"

End Sub

以上代碼會(huì)遍歷當(dāng)前工作簿中的所有工作表，并逐個(gè)復(fù)制為新工作簿并進(jìn)行保存。

注意：如果未開啟宏，需要點(diǎn)擊“文件”菜單，選擇“選項(xiàng)”，進(jìn)入Excel選項(xiàng)窗口，選擇“信任中心”-“宏設(shè)置”，將“宏的安全性”選項(xiàng)設(shè)置為“啟用所有宏”，才能執(zhí)行以上代碼。

4、在宏代碼編輯窗口中，點(diǎn)擊運(yùn)行按鈕（綠色小三角），即可執(zhí)行宏代碼，并依次保存所有工作表為單獨(dú)的Excel文件。

以上就是今天的全部?jī)?nèi)容，操作簡(jiǎn)單快捷，你學(xué)會(huì)了嗎？趕緊去動(dòng)手試試吧（不試怎么知道會(huì)沒會(huì)呢）。如果文章對(duì)你有幫助，身邊正好也有需要的朋友，推薦你將本文分享給他。