WPS表格如何批量合并相同单元格并保留全部数据？

问题定义：为什么“合并后丢数据”成了老大难

在 WPS 表格里，合并单元格按钮（开始→对齐方式→合并居中）一旦点击，系统只保留左上角值，其余数据被静默丢弃。面对成百上千行分类汇总，手动复制再合并显然不现实。本文围绕“批量合并相同单元格并保留全部数据”这一核心关键词，给出三条官方可直接复现的通路：Power Query、公式+辅助列、VBA 脚本，并说明各自的取舍边界与回退方案。

功能定位：WPS 提供的三条官方通路

截至当前的最新版本（V13.12.0），WPS 表格并未把“保留全部数据的合并”做成一键按钮，而是分散在三个入口：

1. 数据→Power Query：可视化分组，支持聚合后拼接文本，零代码。
2. 公式+辅助列：利用 TEXTJOIN / CONCAT 函数，按需生成合并后文本，再贴回格式。
3. 开发工具→VBA 编辑器：循环单元格，拼接后一次性合并，适合周期性报表。

三条路径都能实现“批量合并相同单元格并保留全部数据”，但性能、可维护性、协作友好度差异明显，下文按“最短可达路径→例外→验证”递进说明。

通路 1：Power Query 分组聚合（零代码）

操作路径（桌面端 Windows 为例）

1. 选中数据区域→数据→从表格/区域→勾选“我的表有标题”→进入 Power Query 编辑器。
2. 在左侧查询列表右键→复制，保留原始查询作回退。
3. 按住 Ctrl 选中需要“合并”的列（如“部门”）→开始→分组依据→选择高级。
4. 新列名填“合并值”，操作选“所有行”→在公式栏输入
   =Table.Group(上一步,"部门",{"合并值",each Text.Combine([姓名],"、")})
5. 点击“关闭并加载至…”→选“新工作表”，原数据保持不动。

为什么建议先复制查询

Power Query 一旦“关闭并加载”就会生成新表，原数据不再同步。保留副本可在加载后发现格式不对时，右键→刷新即可回退到上一步，无需重做。

例外与副作用

• 合并后文本长度超过 32767 字符时，WPS 表格会截断，经验性观察：在 2 万行、每行 50 汉字场景下，分组字段唯一值若少于 1000 行，基本安全。
• Power Query 在 macOS 版入口为数据→获取数据→启动 Power Query，但界面为英文，函数名区分大小写。

通路 2：公式+辅助列（轻量无需加载项）

场景示例

某班级表 A 列“班级”，B 列“学生”，需把同班学生合并到一行、用顿号分隔，再手动合并单元格做视觉折叠。

步骤（以当前最新版本为例）

1. 在 C2 输入数组公式（旧版需 Ctrl+Shift+Enter，新版直接回车）：
   =TEXTJOIN("、",TRUE,IF($A$2:$A$1000=A2,$B$2:$B$1000,""))
2. 向下填充后，复制 C 列→右键→选择性粘贴→值，把公式固化。
3. 选中 A:C→数据→删除重复项→仅勾选“班级”→确定，此时每班只剩一行，C 列即为合并后的全班名单。
4. 如需视觉合并，选中 A 列重复区域→开始→合并居中，由于值已集中在一行，不会丢数据。

边界与取舍

公式法实时响应源数据变动，但一次性计算 5 万行以上时，经验性观察：滚动卡顿明显；若文件需频繁交互，建议把计算选项设为“手动”。

通路 3：VBA 脚本（周期性报表自动化）

启用开发工具

文件→选项→自定义功能区→勾选开发工具；macOS 路径为WPS Office→偏好设置→功能区和工具栏。

最小可运行脚本

Sub MergeSameKeepData()
    Dim rng As Range, cell As Range, s As String, startRow As Long
    Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    startRow = 1
    For i = 1 To rng.Count
        If rng(i) = rng(startRow) Then
            s = s & rng(i).Offset(0, 1).Value & "、"
        Else
            With Range(rng(startRow), rng(i - 1))
                .Offset(0, 2).Value = Left(s, Len(s) - 1) '去掉末尾顿号
                .Merge
                .HorizontalAlignment = xlCenter
            End With
            startRow = i: s = rng(i).Offset(0, 1).Value & "、"
        End If
    Next
    '处理最后一组
    With Range(rng(startRow), rng(rng.Count))
        .Offset(0, 2).Value = Left(s, Len(s) - 1)
        .Merge
        .HorizontalAlignment = xlCenter
    End With
End Sub

运行与回退

执行前 Ctrl+Z 只能回退一步合并，建议先另存副本。若需多次使用，把文件存为.xlsm宏格式，并在信任中心勾选“启用宏”。

验证与观测：如何确认没有丢数据

1. 在合并前，于空白列使用 =COUNTA(区域) 统计非空单元格数量，合并后再次统计，数值应相等。
2. 对 Power Query 结果，可点击查询→加载到数据模型，再用数据透视表计数，确保行数与唯一值一致。
3. 对 VBA 结果，脚本把拼接文本写在相邻列，肉眼即可核对；如不放心，可再跑一遍脚本，WPS 会重新合并，不会出现重复叠加。

版本差异与迁移建议

Linux 版 WPS 目前 Power Query 入口隐藏，需要手动安装wps-office-kingsoft-plugins-pq rpm/deb 包；若无法安装，可退而求其次使用公式法。移动端（Android/iOS）不支持 VBA，也不支持 Power Query，建议只在桌面端完成合并，再回传云文档。

适用/不适用场景清单

场景特征	推荐方案	慎用/禁用
<1 万行，需交互刷新	公式+辅助列	VBA（频繁触发事件易卡）
>5 万行，一次性归档	Power Query	公式（数组重算耗时）
周期性日报，格式固定	VBA 按钮一键完成	手动 Power Query（步骤多）
需多人协同实时编辑	Power Query 结果表独立放置	直接合并单元格（协同锁冲突）

故障排查速查表

现象：Power Query 加载后空白
可能原因：步骤里误删了“更改的类型”列名，导致列名不匹配。
验证：在编辑器右侧“应用的步骤”逐条点击，观察哪一步开始变空。
处置：回退到“源”步骤，重新选择列即可。

现象：TEXTJOIN 返回空串
可能原因：区域含错误值 #N/A
验证：在公式→错误检查→圈释无效数据，看是否有红色标识。
处置：外套 IFERROR 把错误值转为空文本，再包 TEXTJOIN。

最佳实践 5 条检查表

1. 合并前先备份：云历史版本+本地副本双保险。
2. 任何合并操作都先在 100 行小表跑通，再放大到全量。
3. 若文件需交给上级审阅，不要把合并单元格放在数据透视表源区域，否则字段列表会识别错位。
4. 对周期性报表，把 Power Query 或 VBA 放在模板文件，另存为带日期的新文件，避免“刷新覆盖昨天数据”。
5. 合并后如需继续筛选，优先用“格式→单元格格式→对齐→水平居中（跨列居中）”代替真实合并，可保持筛选按钮可用。

FAQ：常见疑问一次说清

收尾：下一步行动建议

若你今天就要交报表，优先用 Power Query：10 万行内数十秒可完成，且支持一键刷新；若文件需多人实时在线协作，合并单元格会触发段落级锁冲突，建议仅用跨列居中或在独立汇总表呈现。把本文最佳实践检查表贴在团队 Wiki，下次再遇到“批量合并相同单元格并保留全部数据”，就不用到处找偏方了。