如何在Excel中将列列表转换为逗号分隔的列表？

在处理Excel数据时，您可能经常需要将垂直排列的项目列表转换为一个由逗号分隔的字符串。无论您是为了数据库准备输入内容、制作报表，还是仅仅为了整理工作表，都有多种方法可以实现这一目标。下面，我们将探讨四种优化的方法：

使用公式将列列表转换为逗号分隔的列表

• 公式 1：TEXTJOIN 函数（Excel 2019 及更高版本，Office 365）
• 公式 2：CONCAT 和 IF 函数（所有 Excel 版本）

使用 Kutools for Excel 将列列表转换为逗号分隔的列表

使用 VBA 代码将列列表转换为逗号分隔的列表

使用公式将列列表转换为逗号分隔的列表

Excel 并未包含列转逗号列表的功能，但您可以轻松实现：在 Office 365/2019+ 中使用 TEXTJOIN，或在任何版本中使用 CONCAT+IF 来简化您的数据。

公式 1：TEXTJOIN 函数（Excel 2019 及更高版本，Office 365）

作为 Excel 最先进的连接函数，TEXTJOIN 通过其双重功能——灵活的分隔符选择和自动空单元格管理——为现代 Excel 用户提供了最简单的解决方案。

1. 选择您希望显示逗号分隔列表的单元格，然后输入以下公式：

=TEXTJOIN(", ", TRUE, A2:A10)

2. 按下 Enter 键以获取逗号分隔的值。

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A10))

公式 2：CONCAT 和 IF 函数（所有 Excel 版本）

在 TEXTJOIN 出现之前，您可以结合 CONCAT 和 IF 函数来组装列表，然后去除前导分隔符。

1. 选择您希望显示逗号分隔列表的单元格，然后输入以下公式：

=CONCAT(IF(A2:A10<>"", A2:A10 & ", ", ""))

2. 同时按下 Ctrl + Shift + Enter 键以获取结果。

使用 Kutools for Excel 将列列表转换为逗号分隔的列表

Kutools for Excel 包含一个强大的“合并行、列或单元格并保留数据”工具，让您只需点击几下即可将整个列的内容合并到一个单元格中。通过选择您的来源区域并指定分隔符——无论是逗号、分号、空格还是任何自定义符号——您可以立即生成一个整合的、分隔符分隔的列表，而无需手动复制和粘贴每个项目。该工具还提供了忽略空白单元格、保留原始格式等选项，使其成为快速将垂直数据转换为整洁的逗号分隔列表的理想解决方案。

1. 选择要转换为逗号分隔列表的列列表，然后单击 Kutools > 合并与拆分 > 合并行、列或单元格并保留数据。

2. 在弹出的“合并列或行”对话框中，您需要：

• (1) 在“根据以下选项合并选中单元格”部分中，勾选“合并到单个单元格”选项。
• (2) 在“指定分隔符”部分中，勾选“其他分隔符”选项，并输入逗号 ", "。
• (3.) 选择如何处理原始单元格的数据。（您可以保留原始单元格的内容，或者从原始单元格中删除内容。）
• (4.) 在“将结果放置于”部分中，选择“其他单元格”选项，并单击以选择一个单元格来输出结果。
• (5.) 最后，单击 确定 按钮。
  

结果已插入您指定的目标单元格中。

使用 VBA 代码将列列表转换为逗号分隔的列表

另外，如果您更愿意自动化任务，或者需要处理更大且动态变化的范围，您可以编写一个 VBA 宏，遍历您指定列中的每个单元格，将其非空值附上逗号（或您选择的任何分隔符），最后去掉多余的分隔符，并将完全连接好的逗号分隔字符串输出到目标单元格中。

1. 同时按住 Alt 和 F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将 VBA 代码复制到模块中。

VBA：将列列表转换为逗号分隔的列表

Sub ChangeRange()
    ' Updateby Extendoffice
    Dim rng As Range
    Dim InputRng As Range, OutRng As Range
    Dim outStr As String
    Dim xTitleId As String
    xTitleId = "KutoolsforExcel"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Select source range:", xTitleId, InputRng.Address, Type:=8)
    Set OutRng = Application.InputBox("Output to (single cell):", xTitleId, Type:=8)
    outStr = ""
    For Each rng In InputRng
        If Len(Trim(rng.Value)) > 0 Then
            If outStr = "" Then
                outStr = rng.Value
            Else
                outStr = outStr & ", " & rng.Value
            End If
        End If
    Next rng
    OutRng.Value = outStr
End Sub

3. 单击 运行 按钮或按 F5 键运行 VBA。屏幕上会显示一个对话框，您可以选择要转换的列列表。请参见截图：

4. 单击 确定，随后会弹出另一个对话框供您选择一个单元格。请参见截图：

5. 单击 确定，列列表中的所有值都将被转换为一个由逗号分隔的列表并显示在一个单元格中。

结论：

• 为了简单和性能，在 Excel 2019/365 中使用 TEXTJOIN。
• 为了兼容性，CONCAT + IF 数组方法适用于所有版本。
• 对于不需要公式的单次任务，Kutools 提供了点选解决方案。
• 对于完全自动化或复杂规则，VBA 宏是最灵活的选择。

选择适合您的 Excel 版本、任务频率以及对插件或 VBA 熟悉程度的方法。有了这些优化技术，将任何列转换为整洁的逗号分隔列表变得轻而易举。如果您有兴趣探索更多 Excel 技巧，我们的网站提供了数千篇教程，帮助您掌握 Excel。

相关文章：

• 在 Excel 中将月名称转换为数字
• 将军事时间转换为标准时间
• 在 Excel 中将一个单元格转换为多个单元格/行