MS Excel技巧：如何将单列文本合并至单个单元格？

嘿，这个需求我太熟了！要把A列几十甚至上百条内容合并到B1单元格，还得是逗号分隔的格式，手动一个个拼肯定疯掉，给你几个高效的解决方案，按需挑就行：

如果你用的是较新的Excel版本，直接用TEXTJOIN函数就能一步到位，这绝对是最省心的选择：
在B1单元格输入：

=TEXTJOIN(", ", TRUE, A:A)

参数解释：

• ", "：这是你想要的分隔符（逗号加空格，要是换成分号或者别的直接改这里就行）
• TRUE：表示自动忽略A列里的空单元格，不想忽略就改成FALSE
• A:A：要合并的目标列范围，如果A列有表头，记得改成A2:A101这种具体范围，避免把表头也合并进去

要是你的Excel版本比较老（比如2019及以前），没有TEXTJOIN函数，可以用数组公式来实现：
在B1单元格输入以下公式，然后按Ctrl+Shift+Enter（旧版数组公式必须用这个组合键确认）：

=SUBSTITUTE(TRIM(MMULT(--(ROW(A:A)=TRANSPOSE(ROW(A:A))), A:A&" ")), " ", ", ")

注意：如果A列数据量很大，这个公式可能会有点卡，建议把A:A改成具体的范围（比如A2:A100）来提升速度。

如果你经常需要做这类合并操作，或者A列条目特别多（比如上千条），写个VBA宏一键搞定绝对是最优解：

1. 按Alt+F11打开VBA编辑器
2. 右键左侧的工作簿名称→选择「插入」→「模块」
3. 粘贴以下代码到模块窗口：

Sub MergeColumnAtoB1()
    Dim lastRow As Long
    Dim mergedText As String
    Dim i As Long
    
    ' 自动获取A列最后一行的行号（不用手动指定范围）
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    mergedText = ""
    
    ' 遍历A列所有非空单元格（如果有表头就把1改成2，从第2行开始）
    For i = 1 To lastRow
        If Cells(i, "A").Value <> "" Then
            If mergedText <> "" Then
                mergedText = mergedText & ", "
            End If
            mergedText = mergedText & Cells(i, "A").Value
        End If
    Next i
    
    ' 把合并好的内容写入B1
    Range("B1").Value = mergedText
End Sub

4. 回到Excel，按Alt+F8，选择MergeColumnAtoB1然后点击「运行」就行
   这个宏会自动跳过空单元格，而且不管多少条数据都能快速处理，要是想换分隔符，直接改代码里的", "就行。

如果你的A列数据经常更新，或者需要重复合并，用Power Query最合适——数据更新后只要点一下刷新，合并结果就自动同步了：

1. 选中A列的所有数据（如果有表头就一起选中）
2. 点击「数据」选项卡→「从表格/区域」（如果没有表头，记得勾选「我的表格有标题」）
3. 在Power Query编辑器里，选中目标列→点击「转换」选项卡→「合并列」
4. 在弹出的对话框里，选择「自定义」分隔符，输入", "，然后点击确定
5. 点击「关闭并上载」，选择把结果上载到B1单元格的位置就搞定了

内容的提问来源于stack exchange，提问作者damianm