WPS表格批量拆分独立工作表文件，3种高效方法详解（附图文教程）

WPS_Office wps文章 2026-07-09 2

📚 目录导读

为什么需要批量拆分工作表？
方法一：WPS自带的“拆分表”功能（适合新手，免费）
方法二：VBA宏代码批量拆分（适合进阶用户，灵活高效）
方法三：WPS会员工具与第三方插件（一键处理，省时省力）
常见问题问答（FAQ）：解决拆分后的格式、命名、合并难题
根据场景选择最佳方案

引言：为什么需要批量拆分工作表？

在日常办公中,我们经常遇到这样的场景：一张Excel或WPS表格工作簿里包含几十个分表（如每月销售数据、每个部门的人员名单、不同门店的库存表），老板要求把每个工作表单独保存成一个独立的.xlsx文件，以便分发给不同负责人，手动复制、粘贴、另存为？一个工作簿如果有50个工作表，重复操作50次，不仅耗时，还极易出错。

WPS表格批量拆分独立工作表文件，3种高效方法详解（附图文教程）-第1张图片-WPS-WPS下载【官方网站】

WPS Office作为国内最主流的办公套件之一，提供了多种方法实现“批量拆分独立工作表文件”，本文将结合WPS自带的拆分功能、VBA宏以及第三方工具，为你提供三种从易到难的完整解决方案，所有步骤均经过实测，确保你读完就能上手。

关键提醒：拆分前请务必备份原文件，以免操作失误导致数据丢失。

WPS自带的“拆分表”功能（免费+零代码）

✅ 适用场景

WPS 2019及以上版本（含个人免费版）内置了“拆分表”功能，不需要任何代码，鼠标点几下即可完成。

📝 操作步骤

打开工作簿：用WPS表格打开包含多个工作表的文件。
点击「数据」选项卡：在顶部菜单栏找到“数据”标签。
选择「拆分表」：在“数据工具”区域，点击“拆分表”按钮（图标是一个表格被拆成两半）。
注意：若找不到该按钮，可点击「数据」→「拆分合并」→「拆分表」。
设置拆分规则：
- 拆分依据：选择“按工作表拆分”，即每个工作表生成一个独立文件。
- 保存位置：点击“浏览”选择一个文件夹（建议新建一个空文件夹）。
- 文件命名：默认使用原工作表名称命名，也可勾选“自定义命名”添加前缀或后缀。
点击「开始拆分」：几秒钟后，指定文件夹内就会出现以每个工作表名称命名的独立文件。

⚠️ 注意事项

该功能会保留所有工作表内的公式、格式、数据验证等，但拆分后不会保留宏（VBA代码将被删除）。
若工作表数量超过几百个,拆分速度会明显变慢，建议分批处理。
拆分后生成的文件默认与原工作簿同一格式（.xlsx或.xls）。

VBA宏代码批量拆分（灵活+自动化）

✅ 适用场景

需要自定义拆分逻辑（如按特定列的值拆分）。
希望保留宏代码或特定格式。
喜欢通过代码一次性完成复杂操作。

💻 详细代码与使用步骤

以下VBA代码可以将当前工作簿中的所有工作表拆分为独立文件,并以工作表名称保存。

Sub SplitEachWorksheet()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim savePath As String
    Dim fileName As String
    ' 设置保存路径（可修改为你的文件夹路径）
    savePath = "C:\拆分结果\"  ' 请确保该文件夹已存在
    ' 如果文件夹末尾没有反斜杠，自动添加
    If Right(savePath, 1) <> "\" Then savePath = savePath & "\"
    ' 遍历每一个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 新建一个工作簿
        Set wb = Workbooks.Add
        ' 将当前工作表复制到新工作簿的第一张表
        ws.Copy Before:=wb.Sheets(1)
        ' 删除新建工作簿中自带的空白表（默认有3张表，我们只保留刚才复制的那张）
        Application.DisplayAlerts = False
        Do While wb.Sheets.Count > 1
            wb.Sheets(wb.Sheets.Count).Delete
        Loop
        Application.DisplayAlerts = True
        ' 设置文件名（去除工作表名中的非法字符）
        fileName = Replace(ws.Name, "/", "-")
        fileName = Replace(fileName, "\", "-")
        fileName = Replace(fileName, ":", "-")
        fileName = Replace(fileName, "*", "-")
        fileName = Replace(fileName, "?", "-")
        fileName = Replace(fileName, Chr(34), "-")
        fileName = Replace(fileName, "<", "-")
        fileName = Replace(fileName, ">", "-")
        fileName = Replace(fileName, "|", "-")
        ' 保存新工作簿
        wb.SaveAs savePath & fileName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        wb.Close SaveChanges:=False
    Next ws
    MsgBox "拆分完成！文件保存在：" & savePath
End Sub

如何运行宏？

按下 Alt + F11 打开VBA编辑器（WPS需要在“开发工具”选项卡下点击“Visual Basic”，若没有“开发工具”则需先启用：文件→选项→自定义功能区→勾选“开发工具”）。
在左侧工程资源管理器中,右键点击当前工作簿→插入→模块。
将上述代码粘贴到模块中,并修改 savePath 为你实际的文件夹路径（如 D:\拆分结果\）。
按 F5 或点击运行按钮，等待提示框出现即可。

📌 进阶技巧

按指定列拆分：若想按某一列（如“部门”）的值拆分，可将每个部门的数据复制到新工作簿，然后保存，代码需结合Range.AutoFilter或循环判断单元格值。
同时保留原格式与公式：上述代码使用Copy方式，格式、公式、批注等均会保留。

WPS会员工具与第三方插件（一键处理）

✅ 适用场景

不想写代码,也不想手动点点点。
需要处理大量文件（如合并后再拆分）。
企业级用户已有WPS会员或购买了方方格子、慧办公等插件。

🛠️ 推荐工具

WPS会员专享「批量拆分」
打开WPS表格 → 「会员专享」→ 「文档助手」→ 「拆分表格」，会员版提供更直观的界面，支持按行数、工作表、指定列等多种拆分方式，且对大文件优化更好。
方方格子（Excel插件，兼容WPS）
方方格子是著名的Excel增强工具，拥有“拆分工作表”功能，安装后，在WPS的“方方格子”选项卡下点击「工作表拆分」→ 选择拆分方式，支持保存为独立文件。
慧办公（小而美的插件）
提供“工作表拆分”功能，支持一键拆分，免费版即可使用基本功能。