WPS表格技巧，如何批量拆分多个独立工作表？超详细教程

WPS_Office wps文章 2026-07-03 1

📑 目录导读

🎯 为什么要批量拆分工作表？——痛点与场景分析
🛠️ 方法一：利用WPS内置「拆分工作表」功能（傻瓜式操作）
💻 方法二：VBA宏一键批量拆分（适合高频重复需求）
🔧 方法三：借助第三方插件（简单但需安装）
❓ 常见问题与问答（Q&A）
💡 总结与最佳实践建议

1️⃣ 为什么要批量拆分工作表？——痛点与场景分析

在日常办公中,我们经常会遇到一个工作簿里包含几十甚至上百个Sheet（工作表）的情况，销售部门按月份做的12个月报表、人事部门按部门整理的员工花名册、财务按科目归类的明细账……这些工作表虽在同一文件里，但最终可能需要发给不同的人或按类别存档，手动一个一个复制粘贴？效率极低且容易出错。

WPS表格技巧，如何批量拆分多个独立工作表？超详细教程-第1张图片-WPS-WPS下载【官方网站】

WPS批量拆分多个独立工作表的需求因此而生：将一个大工作簿里的每一个Sheet拆分成单独的Excel文件，每个文件以工作表名称命名，从而快速分发或归档。
网上已有大量教程，但不少存在版本过时、步骤省略等问题，本文综合百度、必应、谷歌上的高赞方法，去伪存真，整理出一套从入门到进阶的详细指南，确保你一次看懂、一次做对。

2️⃣ 方法一：利用WPS内置「拆分工作表」功能（傻瓜式操作）

适用人群：WPS 2019及以上版本用户，无需任何代码基础。
优点：完全免费，无需安装插件，WPS自带。
缺点：只能拆分当前工作簿，且对特殊格式（如合并单元格）可能兼容性稍差。

操作步骤

打开工作簿：启动WPS表格，打开包含多个工作表的文件。
点击「数据」选项卡：在顶部菜单栏找到【数据】。
选择「拆分表格」：在「数据工具」区域点击【拆分表格】右侧小三角，选择【拆分工作表】。
注意：如果找不到，说明你的WPS版本较旧，可升级至最新版（免费）。
设置拆分规则：
- 弹出窗口后,选择「工作簿中的每个工作表单独保存为一个文件」。
- 可勾选「保留原工作簿」防止误删。
- 设置保存路径（建议新建一个空文件夹）。
开始拆分：点击【确定】，WPS会自动生成多个.xlsx文件，命名规则为“原文件名+工作表名”。

常见问题：

如果工作表很多（如超过100个），拆分时可能会卡顿，建议分批操作。
拆分后打开每个文件检查,是否有格式丢失？极少数情况下，使用WPS内置功能可能丢失条件格式，此时请用下面的VBA方案。

3️⃣ 方法二：VBA宏一键批量拆分（适合高频重复需求）

适用人群：需要频繁拆分、或对格式有高要求的用户。
优点：速度快、可定制（如按指定工作表名称拆分、拆分后调整格式）。
缺点：需了解一点点代码，但直接复制就能用。

操作步骤

开启开发者工具：
- 在WPS中,点击【文件】→【选项】→【自定义功能区】，勾选【开发工具】。
- 或者按快捷键 Alt+F11 直接打开VBA编辑器。
插入模块：在VBA编辑器中，右键【VBAProject】→【插入】→【模块】。
粘贴以下代码（已针对WPS优化）：

Sub SplitEachWorksheet()
    Dim xPath As String
    Dim xSht As Worksheet
    Dim xFile As String
    ' 选择保存路径
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择保存拆分文件的文件夹"
        If .Show = -1 Then
            xPath = .SelectedItems(1) & "\"
        Else
            MsgBox "未选择文件夹，程序退出"
            Exit Sub
        End If
    End With
    ' 逐表拆分
    Application.ScreenUpdating = False
    For Each xSht In ThisWorkbook.Worksheets
        xSht.Copy
        xFile = xPath & xSht.Name & ".xlsx"
        ActiveWorkbook.SaveAs xFile, FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close False
    Next
    Application.ScreenUpdating = True
    MsgBox "拆分完成！共生成 " & ThisWorkbook.Worksheets.Count & " 个文件。"
End Sub

运行宏：关闭VBA编辑器，按 Alt+F8 选择【SplitEachWorksheet】→【运行】。
选择文件夹：弹出窗口后，选好目标文件夹→确定，等待几秒，所有工作表就被存为单独文件。

注意事项：

若工作表名称包含非法字符（如、、），保存时会报错，建议先清理表名。
拆分后的文件会自动保存在你选择的文件夹中,不会影响原文件。

4️⃣ 方法三：借助第三方插件（简单但需安装）

适用人群：不喜欢代码，且WPS内置功能无法满足需求（比如需要筛选拆分、按条件拆分等）。
推荐插件：Excel易用宝（支持WPS）、方方格子、Kutools for Excel（需付费）。
以方方格子为例：

下载安装方方格子官方版（支持WPS）。
在WPS中打开文件,点击【方方格子】选项卡。
找到【工作表】→【拆分工作表】。
设置拆分方式（按工作表名、按行数、按关键字等）。
一键执行。

优点：功能更强大，比如可以只拆分部分工作表，或者按行数将一个表拆成多个。
缺点：部分插件收费，且可能随WPS更新产生兼容问题。

5️⃣ ❓ 常见问题与问答（Q&A）

Q1：WPS免费版能拆分工作表吗？

A：可以，WPS个人免费版完全支持上述内置「拆分表格」功能，VBA宏功能目前也向所有用户开放（2025年最新版仍免费），只有部分高级插件需要会员。

Q2：为什么我用内置功能拆分后，数据有些丢失？

A：通常是原工作表中存在合并单元格、数据验证、条件格式等复杂元素，建议先复制一份原文件，然后全选所有工作表→取消合并单元格，再拆分，若仍不行，推荐使用VBA方法，它完整复制所有格式。

Q3：能不能只拆分指定的几个工作表，而不是全部？

A：可以。

内置功能：拆分前先选中不想拆分的表，右键【隐藏】或【移动或复制】到其他文件。
VBA方法：修改代码，用 For Each xSht In Worksheets 循环时加个条件判断，If xSht.Name <> "汇总" Then。
插件方法：方方格子等插件支持勾选要拆分的表。