Note: The other languages of the website are Google-translated. Back to English

如何在Excel中拆分工作簿以分隔Excel文件?

您可能需要將一個大型工作簿拆分為單獨的Excel文件,然後將工作簿的每個工作表另存為單獨的Excel文件。 例如,您可以將工作簿拆分為多個單獨的Excel文件,然後將每個文件交付給不同的人來處理。 這樣,您可以讓某些人處理特定數據,並確保您的數據安全。 本文將介紹根據每個工作表將大型工作簿拆分為單獨的Excel文件的方法。

  1. 拆分工作簿以復制和粘貼分隔Excel文件
  2. 拆分工作簿以使用移動或複制功能分隔Excel文件
  3. 拆分工作簿以使用VBA代碼分隔Excel文件
  4. 使用Kutools for Excel輕鬆拆分工作簿以分離Excel / PDF / CSV / TXT文件

拆分工作簿以復制和粘貼分隔Excel文件

通常,使用 複製 指揮 命令可以手動將工作簿另存為單獨的Excel文件。 首先,選擇要保存為單獨文件的整個工作表,創建一個新工作簿,然後將其粘貼到新工作簿中,最後將其保存。

如果只需要將幾個工作表拆分為單獨的文件,則這是一種易於使用的方法。 但是,通過手動複製和粘貼來拆分許多工作表必須非常耗時且乏味。


拆分工作簿以使用移動或複制功能分隔Excel文件

此方法將引入“移動或複制”功能,以將選定的圖紙移動或複製到新工作簿並另存為單獨的工作簿。 請執行以下操作:

1。 在“工作表”選項卡欄中選擇工作表,右鍵單擊並選擇 移動或複制 從上下文菜單中。 看截圖:

備註:控股 按Ctrl 鍵,您可以選擇多個不相鄰的工作表,方法是在“工作表”標籤欄中逐一單擊它們; 保持 轉移 鍵,您可以通過單擊“工作表”選項卡欄中的第一個和最後一個來選擇多個相鄰的工作表。

2。 在“移動或複制”對話框中,選擇 (新書) 來自 預訂 下拉列表,請檢查 建立副本 選項,然後單擊 OK 按鈕。 看截圖:

3。 現在,所有選定的工作表都被複製到新的工作簿中。 請點擊 文件 > 節省 保存新的工作簿。

快速拆分工作簿以在Excel中分離Excel / PDF / TXT / CSV文件

通常,我們可以使用 移動或複制 Excel中的功能。 但是Kutools for Excel的 拆分工作簿 實用程序可以幫助您輕鬆拆分工作簿並將每個工作表另存為單獨的PDF / TEXT / CSV文件或Excel中的工作簿。


廣告拆分工作簿excel

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

拆分工作簿以使用VBA代碼分隔Excel文件

以下VBA代碼可以幫助您快速將當前工作簿的多個工作表拆分為單獨的Excel文件,請執行以下操作:

1。 為要拆分的工作簿創建一個新文件夾,因為拆分的Excel文件將與該主工作簿保留在同一文件夾中。

2。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下代碼粘貼到“模塊窗口”中。

VBA:將工作簿拆分為多個工作簿並保存在同一文件夾中

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4。 按 F5 運行此代碼的關鍵。 然後將工作簿拆分為與原始工作簿在同一文件夾中的單獨Excel文件。 看截圖:

備註:如果其中一張圖紙與工作簿名稱相同,則該VBA無法使用。

使用Kutools for Excel輕鬆拆分工作簿以分離Excel / PDF / CSV / TXT文件

如果你有 Excel的Kutools 安裝,其 拆分工作簿 該工具只需單擊幾下,即可方便快捷地將多個工作表拆分為單獨的Excel文件。

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

1。 安裝後 Excel的Kutools點擊此處成為Trail Hunter Kutools 加 > 拆分工作簿 ,請參見屏幕截圖:

2。 在 拆分工作簿 對話框中,進行以下操作:
(1)默認情況下檢查所有工作表名稱。 如果您不想拆分某些工作表,則可以取消選中它們;
(2)檢查 保存類型 選項;
(3)從 保存類型 下拉菜單中,選擇一種您想要拆分和保存的文件類型。
(4)然後點擊 分裂 按鈕。

備註:如果要避免拆分隱藏的工作表或空白工作表,可以檢查 跳過隱藏的工作表 or 跳過空白工作表 框。

3。 在“瀏覽文件夾”對話框中,請指定目標文件夾以保存拆分的單獨文件,然後單擊 OK 按鈕。

現在,選中的工作表將另存為新的單獨的工作簿。 每個新工作簿均以原始工作表名稱命名。 看截圖:

Excel的Kutools's 拆分工作簿 該工具使您可以輕鬆地根據需要將活動工作簿拆分為單獨的Excel文件(一個文件包含一個工作表),CSV文件,TXT文件或PDF文件。 您可以設置為跳過所有空白和隱藏的工作表。 免費試用!


演示:將一個工作簿的每個工作表拆分或保存為單獨的excel / txt / csv / pdf文件


Excel的Kutools 包含 300 多種 Excel 便捷工具,30 天內免費試用,無限制。 立即下載並免費試用!

相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (113)
2.5中的5評分 · 1評級
網站主持人對此評論進行了最小化
我在 4 個不同的工作表中有數據。 Sheet1 命名為“A”,Sheet2 命名為“B”,Sheet3 命名為“C”,Sheet4 命名為“D”。 需要將數據拆分到不同的工作簿中,每個工作表必須只有 25 行。 如果從Sheet A複製數據,則文件名應命名為Sheet1 A.xls,Sheet2 A.xls。一旦Sheet A變為空,它必須從Sheet B複製數據,並且必須從最後一個Sheet編號繼續,例如Sheet3 B.xls。
網站主持人對此評論進行了最小化
當我“拆分工作簿以使用 VBA 代碼分隔 Excel 文件”時,它可以實現夢想,但不會保留新電子表格中的合併單元格和單元格對齊等格式。 有什麼我可以添加的,以便格式與原件保持一致嗎?
網站主持人對此評論進行了最小化
代碼就像一個魅力! 是的,並非所有格式都被保留。 不過沒問題。 對我來說,表格中所有合併的單元格都未合併。 選擇原始表格,格式畫家,突出顯示複製的表格是一件簡單的事情,瞧,就像新的一樣。 謝謝!
網站主持人對此評論進行了最小化
A 列 IP 地址 B 列 IP 名稱 C 列 IP Pinging Rate True(即命令 Ping 狀態) D 列 IP Pinging 率 False(即命令 Ping 狀態) 此 ip 和 ip 名稱列表為 excel 格式和狀態是相同的 excel 格式(即為真或假狀態)
網站主持人對此評論進行了最小化
很棒的代碼 - 為我節省了一天。 感謝您的發表。
網站主持人對此評論進行了最小化
我在添加代碼以將拆分文件另存為只讀時遇到問題。 為什麼這不起作用或我該怎麼做? Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.SaveAs _ Filename:=MyPath & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Next sht End Sub
網站主持人對此評論進行了最小化
真的很棒的設施......,令人驚嘆......哇......
網站主持人對此評論進行了最小化
很棒的腳本。它像任何東西一樣對我有用。 謝謝。
網站主持人對此評論進行了最小化
有用的腳本,但我正在尋找進一步的步驟,從 excel 中自行選擇一個標準並自動填充到多個文件中
網站主持人對此評論進行了最小化
謝謝方法1非常有用
網站主持人對此評論進行了最小化
謝謝! 省了我很多人工!
網站主持人對此評論進行了最小化
VBA 指令是“準確的”! ...即使是新手! 工作得很好!
網站主持人對此評論進行了最小化
很有用! 感謝分享
網站主持人對此評論進行了最小化
大幫助!!! 非常簡單和有用:-)
網站主持人對此評論進行了最小化
用了這個,它奏效了。 正是我需要的。 謝謝
網站主持人對此評論進行了最小化
效果很好,謝謝。 我已將其創建為加載項並安裝了它。 我現在如何隨時運行它(無需每次都複製和粘貼)? 是否有我按下的按鈕或我使用的功能名稱?
網站主持人對此評論進行了最小化
它在第 8 行顯示錯誤.... xws cpy 是錯誤的
網站主持人對此評論進行了最小化
在我刪除 Option Explicit 後它對我有用,因此需要定義變量。 但是,我想知道這個變量應該定義為什麼,因為我很欣賞 Option Explicit 選項:)
網站主持人對此評論進行了最小化
此代碼和 KUtools 在轉換 222 個文件和 222 個文件都停止工作後都顯示錯誤。
網站主持人對此評論進行了最小化
尊敬的先生,您能否向我發送詳細信息如何編碼拆分 s
網站主持人對此評論進行了最小化
您可以按照以下編碼進行操作。 拆分工作表的 VBA 編碼 Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
網站主持人對此評論進行了最小化
工作表是數據透視表報告的產物,由代碼創建的新文件仍然保留與數據源的連接並且可以更改。 是否可以編寫代碼來中斷數據透視表連接,或者添加所有工作表和過去的副本作為值以消除連接?
網站主持人對此評論進行了最小化
親愛的 Sanjay 先生,我嘗試使用僅適用於幾張紙的代碼,但我嘗試拆分的文件有近 466 張紙。 我可以知道它的代碼嗎? 謝謝你。
網站主持人對此評論進行了最小化
我可以將您的模塊腳本保存到個人宏工​​作簿以供將來使用嗎?
網站主持人對此評論進行了最小化
你能告訴我如何在Outlook中發送帶有個性化附件的大量電子郵件.. Regrads,Yasir
網站主持人對此評論進行了最小化
嗨 Yasir,您不能在與 Outlook 合併的郵件中發送個性化附件。 是的,那裡很少有外部工具,但這些工具非常昂貴,也不可靠。 您可以使用 Mozilla Thunderbird 做到這一點。 只需要下載郵件合併插件就可以了。
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護