Excel多行合并成一行并复制数据的四种高效方案

这几年的数据表格，大体逃不开两类活儿：一类是把一条数据拆成多行，另一类是把多行数据并成一行。前者容易，分列、转置、透视表拖两下就完事；后者才磨人，尤其像“多行合并成一行，同时把数据完整复制出来”这种需求，几乎每周都能在答疑群和办公论坛里看到一遍。

新手通常直接复制粘贴，累胳膊不说，还容易漏行错列；稍微懂点函数的会去搜 TEXTJOIN，但一碰上跨工作表、数据量大、带格式、要排序去重的情况，TEXTJOIN 也未必好用。这篇文章把我在实际项目里反复踩过、验证过的几种方案全部整理出来，从纯操作到函数到免费插件到 VBA 兜底，按场景套用就行，最后一节还专门写了几条常规教程里不会讲的避坑经验。

1. 内容整体设计与思路拆解

1.1 先搞清楚你到底要合并什么

“多行合并成一行”听着简单，但落地之前必须分清楚，你要的是哪一种合并：

• 同记录多行合并：同一编号下有多条明细行，比如同一个订单号对应三个产品名称，需要把产品名称并到一行单元格里，用顿号或逗号隔开，其他字段保持不变。
• 整列内容汇总：不关心分组，就是把某一列几百行文字全部接到一个单元格里，常见于做词云、做标签汇总、生成临时清单。
• 行列互转式合并：多个行变成一行里的多列，即行转列（横向展开），每一行去对应一个字段位置。
• 保留数据不漏不丢：这可能才是最核心的要求。很多人合并完了，发现后面的单元格内容没跟过来，或者格式丢了，或者合并完想再拆回去却没辙了。

把这些场景全部覆盖到，才算真正回答“多行合并成一行，同时将数据复制出来”，而不是只扔一个函数出来。

1.2 方案选型背后的逻辑

针对不同情况，我做了下面这张选型对照表，先看它再往下走：

选方案有两个原则：能不写公式就不写公式，能不动原表就不动原表。很多人上来就套公式，结果数据量一大，文件卡成幻灯片，最后还得换方案重做一遍，白白浪费时间。

1.3 为什么有人合并完了数据“少了”

一个非常容易被忽视的坑：合并单元格之后，只有左上角的值会保留。Excel 里选中几行合并，系统会弹提示“仅保留左上角的值，其他值将被丢弃”，这就是很多人合并完发现数据少了的原因。所以，凡是涉及“把多行数据复制出来”的需求，绝对不要直接点“合并单元格”，而是要先做合并内容、再做格式合并，或者干脆用函数和 Power Query 生成新列，彻底绕开这个限制。

2. 核心方法一：函数方案，适合日常小批量处理

2.1 TEXTJOIN —— 最推荐的基础函数

TEXTJOIN 是 Excel 2016 及以上版本自带的文本合并函数。它的核心作用就是把一个区域里的多个文本用指定分隔符合并起来。

基本语法：

=TEXTJOIN("分隔符", 是否忽略空值, 区域1, 区域2, ...)

举个例子。A 列是编号，B 列是产品名。我想把同一个编号对应的所有产品名合并到一个单元格里，比如 A2 单元格写编号“1001”，B 列有“手机”“数据线”“充电器”三行对应它。这时就不用住手并，而是用数组形式：

=TEXTJOIN("、", TRUE, IF($A$2:$A$10=D2, $B$2:$B$10, ""))

注意，这个公式在旧版 Excel 里需要按Ctrl+Shift+Enter数组三键确认，在 Office 365 或者 Excel 2021 之后的版本里直接回车即可。

这个公式的思路是：IF 部分先把不属于当前编号的内容变成空字符串，TEXTJOIN 再把这些空值忽略掉，最终把符合条件的文本全部接在一起。

实操步骤：

1. 在原表旁边新建一列“合并结果”。
2. 先列出所有不重复的编号（可以用删除重复项，也可以用数据透视表拉一次）。
3. 在第一个编号右侧单元格输入 TEXTJOIN 公式。
4. 向下填充，检查结果是否完整。

这里有个细节：TEXTJOIN 的第二个参数写TRUE意味着忽略空值。如果不忽略，IF 判断出来的空字符串会被当作“有内容”处理，合并出来的结果里全是分隔符，看起来就是一顿乱炖。

2.2 CONCAT 和 & 连接符 —— 两三个单元格拼接时最顺手

如果只是两三个单元格拼到一行，根本不需要 TEXTJOIN，直接用等号连接符就行：

=A2 & "、" & B2 & "、" & C2

注意“&”前后要加双引号把分隔符包起来，否则 Excel 会认为你在引用一个叫“、”的区域，直接报错。

CONCAT 函数可以一次连接多个区域，比 & 省事一点：

=CONCAT(A2:A5)

但它有个短板：不能指定分隔符，所有内容会像串珠子一样毫无缝隙地贴在一起。所以一般我还是直接用&，文字中间想加什么符号就加什么符号，灵活得多。

2.3 跨工作表合并：TEXTJOIN + IF 的进阶用法

有一种场景：多个工作表里的数据需要汇总到一个工作表里显示。比如一月、二月、三月各一个表，每个表里都有一列产品名，我想在汇总表里把三个月产品名合并到一行。

做法是在汇总表里写：

=TEXTJOIN("、", TRUE, 一月!$B$2:$B$10, 二月!$B$2:$B$10, 三月!$B$2:$B$10)

这个公式不需要数组三键，普通回车就行，因为每个工作表区域都是实实在在的引用，没有任何数组运算。

如果你需要按条件跨表合并，比如只合并某个月份里满足某个条件的项，那就要把 IF 和多个工作表引用结合起来：

=TEXTJOIN("、", TRUE, IF(一月!$A$2:$A$10=$D2, 一月!$B$2:$B$10, ""), IF(二月!$A$2:$A$10=$D2, 二月!$B$2:$B$10, ""))

这个公式我用了好几年，实测下来最稳的一点是：跨表引用时，千万别把整列选进去（比如选 A:A），否则数值量过大会导致公式计算几百毫秒才能刷新，大表格里明显卡顿。选精确的有限区域，是这类公式不卡的关键。

2.4 函数方案的必要注意事项

用函数合并，有三个坑必须记住：

• 公式结果只能单向更新。你改了原表里的数据，合并公式会自动刷，但如果把合并结果复制成纯文本，它就和原表再无关系了。
• TEXTJOIN 的结果有长度上限吗？官方文档说是单元格显示上限 32767 个字符，超过的部分会丢失。实际使用中几百行中文文本合并基本没问题，但如果你要合并上万行的整列内容，建议用 Power Query 或脚本。
• 公式会拖慢大文件。几千行数据的 TEXTJOIN 数组公式，要是全表套用几百个，保存和打开文件都会明显变慢。这种情况下请优先考虑 Power Query。

3. 核心方法二：Power Query 分组聚合，大数据的首选方案

3.1 为什么 Power Query 才是终极方案

如果你面临的数据有几万行，或者你希望这个合并操作能重复使用，以后每月新数据来了点一下刷新就能出结果，那函数方案就力不从心了。Power Query 是 Excel 内置的数据清洗和转换工具，在 Excel 2016 及以上版本的“数据”选项卡里就可以找到。

Power Query 处理多行合并的底层逻辑很简单：先把数据加载进查询编辑器，再按分组字段做聚合操作。聚合时不选求和、平均数这类数值计算，而是选“提取所有值”并自己指定分隔符，Power Query 就会帮你把每一组里的文本全部合并成一个单元格。

实操步骤：

1. 选中原表区域，点击“数据” → “从表格”（Excel 里也叫“自表格/区域”）。
2. 确认数据范围无误后进入 Power Query 编辑器。
3. 选中你想要作为分组依据的列（比如编号列），点击“分组依据”。
4. 在弹出的窗口里，新列名写“合并产品”，操作选择“所有行”，然后点“高级”按钮。
5. 添加聚合：选择要合并的列（产品列），操作选择“提取所有值”，分隔符输入“、”。
6. 点确定后，Power Query 会返回一个标题为“表”的结果列。
7. 点击该列右侧的展开图标，选择“提取值”，分隔符选“自定义”，输入“、”。
8. 点“关闭并加载”，合并结果就作为一个新表输出到工作表里。

这套流程做完之后，以后只要原数据变了，右键刷新一下，合并结果自动跟着变，连公式都不用重写。

3.2 分组聚合实际案例：多级库存表的合并汇总

举个例子，我手头有一张多级库存表，里面同一物料编码对应多个仓库位置和数量。客户想按编码汇总出“所有位置”和“所有数量”两个合并文本，同时保留物料名称。

如果用函数，得写两组 TEXTJOIN，而且数量一列还得先转成文本再拼接，比较绕。用 Power Query 就三步：

• 分组依据：物料编码
• 聚合1：物料名称 → 直接取每组第一行（可以用“最大值”或“最小值”操作，反正是同一个值）
• 聚合2：仓库位置 → 提取所有值，分隔符“、”
• 聚合3：数量 → 提取所有值，分隔符“、”

注意“提取所有值”这个操作默认只能针对文本列，如果数量列是数字类型，Power Query 编辑器会给你报错或者忽略转换。解决办法是在分组之前，提前在“添加列”里把数量列转成文本：

添加列 → 自定义列 → Table.TransformColumnTypes

或者更简单：在分组依据窗口里，先把数量列的聚合操作类型改成“对文本进行聚合”并让它自动转换。实操上我一般是直接先把这个列的数据类型改成文本，省得后面再排查。

3.3 Power Query 方案的特殊优势

Power Query 合并还有一个隐性优点：它不会覆盖原始数据，也不会弹“仅保留左上角值”的提示。它是生成一张新表，彻底规避了 Excel 原生合并单元格的数据丢失问题。而且它的查询步骤是记录在面板里的，以后想看这次合并是怎么做的，点一下“查询设置”就能复盘，非常适合交工作交接文档时给同事看。

4. 核心方法三：纯手动操作流，零函数零公式也能干

4.1 剪贴板 + 替换法，几行数据手动合并

如果你就不是想用函数，也不用插件，数据也就二三十行，那最土的办法反而最高效：

1. 把每行需要合并的单元格复制下来，直接粘贴到 Word 里。
2. 在 Word 里选中所有行，打开“替换”对话框。
3. 查找内容输入^p（段落标记，代表换行符），替换内容输入顿号“、”。
4. 点击全部替换，多行文本瞬间变成一行用顿号连接的内容。
5. 把这一行复制回 Excel 单元格里。

这个方法看起来笨，但胜在所见即所得，而且完全不需要掌握任何函数和插件。要保留每行的其他列内容，就先把这些内容排好在 Excel 里再整体复制，整个过程对思维负担最小。

4.2 多列合一行：先在编辑栏里拼

如果只是想把同一行的几个单元格内容合并到一行末尾的新单元格里，比如 A2 到 D2 合并到 E2，则完全不需要公式：

1. 在 E2 单元格点一下。
2. 输入等号。
3. 鼠标依次点击 A2、B2、C2、D2，中间手动输入连接符和分隔符。
4. 回车。

这是最直观的“手动生成公式”方式，适合完全不会写函数的新手，也适合需要临时拼一次的情况。缺点是如果每一行的字段都不一样，等于每行都要手动点一次，效率极低，只适合三五行的场景。

4.3 带格式、带批注的合并：必须用剪贴板逐行操作

函数和 Power Query 合并的是“值”，也就是纯文本内容。如果你需要把多个单元格的格式、颜色、批注一起复制到一个合并结果里，那唯一相对可靠的方式是：逐行复制到同一个目标行。

具体做法：

这个做法的核心是：直接点击合并后的单元格粘贴会覆盖掉原有内容，而通过编辑栏粘贴，相当于往同一个单元格里追加文本，内容就不会丢了。

不过我必须提前说清楚，这种方法真心累，只建议在处理少量带格式样表时使用。如果数据量大且带格式要求，那就得用 VBA 了。

5. 核心方法四：VBA 宏一劳永逸，复杂合并规则无所不能

5.1 用 VBA 实现“多行合一行，数据复制出来”

Excel 的 VBA 宏对于很多人来说是黑盒，但在多行合并这个问题上，宏是真正一步到位的方案，尤其是当你需要同时合并多个列、保留分隔符、并且对每一种合并方式有不同要求时。

先给一个通用的宏模板。这个宏的功能是：选定区域后，按第一列分组，把后面几列的内容按行合并进一行，用指定分隔符合并。

打开 VBA 编辑器的方法是：按Alt + F11，在左侧工程资源管理器里右键你的工作簿名称，选择“插入” → “模块”，然后把下方代码粘贴进去。

Sub MergeRows() Dim xRng As Range Dim xCell As Range Dim xDict As Object Dim xKey As String Dim xText As String Dim i As Long Set xDict = CreateObject("Scripting.Dictionary") ' 选择要处理的数据区域（包括表头） Set xRng = Application.InputBox("请选择要处理的数据区域：", "MergeRows", Selection.Address, , , , , 1) ' 从第2行开始循环，第1行是表头 For i = 2 To xRng.Rows.Count xKey = xRng.Cells(i, 1).Value If Not xDict.Exists(xKey) Then ' 第一次遇到这个分组键时，先把该行复制到字典中 xDict.Add xKey, xRng.Rows(i) Else ' 再次遇到同一个键时，把该行内容追加到字典中已存在的数据里 ' 这里以第2列为合并列，并用逗号分隔 xDict(xKey).Cells(1, 2).Value = xDict(xKey).Cells(1, 2).Value & "、" & xRng.Cells(i, 2).Value ' 如果还有其他列要合并，继续在这里追加 ' xDict(xKey).Cells(1, 3).Value = xDict(xKey).Cells(1, 3).Value & "、" & xRng.Cells(i, 3).Value End If Next i ' 清空原区域，写入合并结果 xRng.ClearContents Dim xNewRow As Long xNewRow = 1 Dim xItem As Variant ' 输出表头 xRng.Cells(1, 1).Value = "分组" xRng.Cells(1, 2).Value = "合并内容" For Each xItem In xDict.Items xNewRow = xNewRow + 1 xRng.Cells(xNewRow, 1).Value = xItem.Cells(1, 1).Value xRng.Cells(xNewRow, 2).Value = xItem.Cells(1, 2).Value Next xItem End Sub

这段代码是一个基础框架，实际使用中我会按需改动：比如合并列不止一列、分隔符不一样、需要先排序再去重，直接在代码里加条件判断就可以。它最大的好处是：整个过程全自动，几万行数据秒级完成，而且整个逻辑写在宏里，下次再遇到同样需求直接运行即可。

5.2 更简单的 VBA 小技巧：公式转文本

如果你不想学上面这一大段代码，还有一个取巧的宏思路：让宏去把公式计算出来的结果批量替换成静态文本。

比如你已经用 TEXTJOIN 把合并公式写好了，但公式会随原表变动而更新，此时你要把结果复制出来给别人，就可以用宏把所有公式结果一次性转为纯文本值：

Sub FormulasToValues() Dim xRange As Range Set xRange = Selection xRange.Copy xRange.PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

选中合并结果区域，运行这个宏，公式就变成纯文本了，发给别人也不会出现链接丢失、数据变 0 的情况。这个宏通用性很强，我几乎每天都会用到。

5.3 VBA 的坑：文件格式与宏安全问题

用 VBA 要注意三件事：

• 保存文件时必须选择.xlsm格式（启用宏的工作簿），否则宏代码直接丢失。
• 打开文件时如果宏被禁用了，需要在“文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置”里启用宏。如果公司电脑受限，可以用“Excel 加载项被禁用”同样的思路去查宏安全性设置。
• VBA 使用字典对象时要引用Microsoft Scripting Runtime，如果别人电脑上没这个引用，代码会报错。稳妥做法是在代码里直接基于CreateObject("Scripting.Dictionary")创建，这也是上面模板里我采用的方式。

6. 常见问题排查与实操心得

这一节把所有高频问题集中列一遍，让我一次说透。与此同时，这部分内容里藏着的是几个常规教程不会告诉你的细节。

6.1 多行合并时数据丢失了怎么办

数据丢失最常见的原因就是我前面说过的：直接用了合并单元格功能，系统只保留左上角值。已经丢失且没有撤销的话，只能靠文件的备份版本恢复。

如果只是担心合并后数据可能丢，那就坚持一个原则：先合并到新列，验证完整后再做下一步。比如先在 F 列用 TEXTJOIN 生成合并内容，检查无误后再删除原行或者做格式调整。这个习惯能救回很多本不该丢的数据。

6.2 合并后换行符号没有出现

合并时如果希望每条内容之间换行，而不是用顿号连接，则分隔符要写成换行符。在 TEXTJOIN 里写法是：

=TEXTJOIN(CHAR(10), TRUE, B2:B10)

CHAR(10) 是 Excel 里的换行符。注意这个公式写完后，单元格内容虽然看起来是一行文字，但只要设置单元格格式为“自动换行”，它就显示出逐行排列的效果了。这个细节很多人不知道，总说合并后没有换行效果，实际上是忘了开自动换行。

如果用剪贴板法，在 Word 里替换分隔符为^p，同样能达到换行效果。

6.3 文件名、格式、模板：保存前的最后一公里

合并做完，数据也验证过了，保存文件时还是有三个坑要提防：

• 中文文件名与特殊符号：文件名里不要带“/ : * ?" < > |”这类字符，否则保存或另存为时报错，偏偏很多人喜欢在文件名里加“产品/型号/汇总”这种格式，结果白忙活一场。
• 文件格式：用宏的必须是.xlsm。用 Power Query 建议保存.xlsx即可，但千万别存成.xls老格式，否则很多聚合步骤和函数会失效。
• 打印边界：如果合并后的长文本内容要打印出来，务必先到“页面布局”里调整列宽和缩放比例，否则打印出来时文本会被截断，看起来像数据丢失了，其实只是显示问题。

6.4 加载项禁用和公式下拉失效这类环境问题

不少人在合并过程中遇到“公式下拉不生效”或者“Excel 提示加载项被禁用”，其实这俩问题经常同时出现。公式下拉失效往往是因为表格开启了“手动计算”模式，或者数据区域里存在合并单元格，导致拖拽公式时区域错乱。

解决办法：

• 按Ctrl+Alt+F9强制重算整个工作簿。
• 检查“公式”选项卡 → 计算选项，确保选中的是“自动计算”。
• 如果选了数据区域，下拉公式到末尾时发现不填充，先看区域里有没有合并单元格，把合并单元格取消再试。

“Excel 加载项被禁用”则通常是 Office 更新之后插件没有被自动启用，到“文件 → 选项 → 加载项”里手动勾选启用，或者到 COM 加载项里重新勾选一次。

6.5 合并多列数据的优先级问题

当同一分组里有多行数据，并且每一列都需要合并时，函数方案有个致命问题：TEXTJOIN 的 IF 只能判断一个分组条件，如果同时要合并产品名和数量两列，就得写两个公式，而且分组合并出来的顺序可能还对不上。

Power Query 方案就没有这个烦恼，它在分组时可以直接添加多个聚合列，一次性把每列的处理方式都定义好。后面新数据来了，刷新一次，所有列同步更新，不用去担心错位问题。这也是为什么数据量大或者列多时，我更推荐 Power Query 的核心原因。

7. 高级玩法：用开源工具和脚本处理大型数据集

7.1 Python + Pandas 处理 Excel 多行合并

当数据量到几十万行级别，Excel 本身已经不太能打了，这时候我一般会转到 Python 里用 Pandas 处理。它处理多行合并的方式非常优雅，核心就一个groupby() + agg()。

import pandas as pd # 读取 Excel 文件 df = pd.read_excel("data.xlsx", sheet_name="Sheet1") # 按编号分组，将产品名列合并成一行，用顿号分隔 result = df.groupby("编号", as_index=False).agg({"产品名": lambda x: "、".join(map(str, x))}) # 输出到 Excel result.to_excel("merged.xlsx", index=False)

这段代码处理几十万行数据只需要几秒钟。关键是lambda x: "、".join(map(str, x))这部分就是实现“把组内所有文本复制到一个单元格”的核心逻辑。如果有多个字段需要不同方式处理，在 agg 里传入不同列的字典即可。

7.2 开源 Excel 数据库软件：LibreOffice Base

还有人问“开源 Excel 数据库软件”怎么用，其实如果你只是做数据合并和汇总，不用到正经数据库，直接用 LibreOffice Calc 就行。LibreOffice 是开源免费的办公套件，Calc 是它的表格组件，支持打开和编辑 Excel 文件，并且内置了类似 Power Query 的“数据 → 从表格”功能。

LibreOffice 对超大表格的打开速度明显比 Excel 流畅得多，如果手头数据大而且公司不让装其他收费软件，这是一个特别好的备用方案。但要注意，LibreOffice 保存的公式在某些场景下跟 Excel 不兼容，特别是数组公式和某些数据透视表设置，建议另存成.xlsx格式再回 Excel 里用。

7.3 c# / VB 脚本控制 Excel 实现自动化合并

在办公自动化的落地场景里，很多企业有内部系统或老旧的 VFP、Delphi 程序，需要直接控制 Excel 完成合并。这种时候通常用 COM 组件调用 Excel，比如在 C# 里用Microsoft.Office.Interop.Excel把数据写入 Excel，或者用 VB 代码操纵 Excel 的 Selection 和 Cells 对象。

这类方案和 VBA 的本质逻辑是一样的，只是宿主环境不同。如果你不是开发人员，不必深入研究，知道“Excel 可以通过 COM 接口被外部程序控制和驱动”这个事实就够了。遇到需要把系统导出数据批量合并成格式漂亮报表的场景，直接找会写脚本的同事，把这个需求描述成“用 Excel 多行合并方式整理数据源即可”，沟通成本会低很多。

8. 最后再分享一个小技巧

在我的实际经验里，真正好用的多行合并不是“学会某一个方案”，而是建立一套判断习惯：

• 数据量小且一次性需求 → 剪贴板 + 替换法，速度快，不用动脑。
• 数据量中等但需要重复刷新 → Power Query，一劳永逸。
• 需要控制格式、批注 → VBA 手动或自动化结合。
• 数据量巨大且跨系统 → Python / Pandas，顺便做清洗。

这几套方案我都在不同项目里跑过，实测下来没有一套是万能的。但只要按照表格里的场景去对应选择，绝大多数“多行合并成一行，同时将数据复制出来”的需求都能在几分钟内解决，并且数据完整不丢。如果你之前还在用最原始的方式逐行复制，建议从今天这篇里挑一个最适合自己的方案试一次，效率提升会非常明显。