Excel把多行合成一行：高效数据合并技巧

在日常办公中，我们经常需要将Excel表格中的多行数据合并到一行，例如将同一用户的多个联系电话、地址或备注信息汇总。本文将介绍几种主流方法，从简单公式到高级工具，满足不同使用场景。

方法一：使用TEXTJOIN函数（Excel 2016及以上版本）

TEXTJOIN是Excel 2016及更高版本中新增的函数，专门用于合并字符串，并支持分隔符和忽略空单元格。语法：TEXTJOIN(delimiter, ignore_empty, text1, [text2], ...)。

示例：假设A列有多行数据，要在B1合并所有行。公式：=TEXTJOIN(", ", TRUE, A:A)。注意：如果A列包含标题，需调整区域。

优点：简单直接，无需辅助列，自动忽略空值。

方法二：使用CONCATENATE函数或&符号（Excel 2007及以上）

对于旧版本Excel，可以使用CONCATENATE函数或&符号手动合并。但需注意，这些函数不能直接合并区域，需逐个引用或借助辅助列。

示例：在辅助列B1输入公式：=A1，然后B2：=B1&", "&A2，向下拖动至最后一行，则最后一行显示所有合并结果。

缺点：需要辅助列，数据量大时效率低。

方法三：使用Power Query（Excel 2016及以上或插件）

Power Query是强大的数据处理工具，无需公式即可图形化操作。

1. 选中数据区域，点击“数据”选项卡 -> “从表格/范围”，打开Power Query编辑器。
2. 选择要合并的列，点击“转换” -> “分组依据”。
3. 设置分组依据列为空（或根据实际需求），新列名如“合并结果”，操作选择“所有行” -> “文本组合”。
4. 指定分隔符（如逗号空格），点击确定。
5. 加载结果到Excel工作表。

优点：无需公式，适合复杂合并需求，且刷新数据自动更新。

方法四：使用VBA宏（自动化解决方案）

如果需要频繁合并，可以编写VBA宏一键完成。以下是一个简单的宏示例：

Sub MergeRows()
    Dim rng As Range, cell As Range
    Dim result As String
    Set rng = Selection
    For Each cell In rng
        If cell.Value <> "" Then
            result = result & cell.Value & ", "
        End If
    Next cell
    ' 去掉末尾分隔符
    result = Left(result, Len(result) - 2)
    MsgBox result
    ' 或者写入指定单元格
    ' Range("D1").Value = result
End Sub

使用前需启用宏，并按Alt+F8运行。

总结

选择哪种方法取决于您的Excel版本、数据量及操作频率：

• TEXTJOIN函数：最快捷，适合现代Excel用户。
• CONCATENATE/&符号：适用于旧版Excel的小规模数据。
• Power Query：适合需要定期更新、复杂清洗的场景。
• VBA：适合需要高度定制化和批处理的用户。

掌握这些技巧，您将轻松应对Excel多行合并问题，提升工作效率。