超碰人人人人人,亚洲AV午夜福利精品一区二区,亚洲欧美综合区丁香五月1区,日韩欧美亚洲系列

：Excel如何快速將工作簿中多個工作表拆分成獨立文件

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

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

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

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

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

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

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

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