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

在 Excel 中，CONCATENATE 函数可以将列列表转换为以逗号分隔的单元格列表。请按照以下步骤操作：

1. 选择列表第一个数据旁边的空白单元格，例如 C1 单元格，并输入以下公式：

=CONCATENATE(TRANSPOSE(A1:A7)&",")

2. 在公式中突出显示 TRANSPOSE(A1:A7)&","，然后按“F9”键。

3. 从公式中删除大括号“{”和“}”，然后按“Enter”键。

现在，您可以看到列列表中的所有值已转换为一个单元格中的列表，并以逗号分隔。请参见上面的截图。

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

Kutools for Excel 的“合并行/列或单元格并保留值”功能可以帮助 Excel 用户轻松将多列或多行合并为一列/行而不丢失数据。此外，Excel 用户还可以通过换行符或硬回车来包装这些合并的文本字符串。

如果 CONCATENATE 函数对您来说有点繁琐，您可以使用 VBA 快速将列列表转换为单元格中的列表。

1. 按住“ALT”按钮并在键盘上按“F11”打开“Microsoft Visual Basic for Applications”窗口。

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

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

Sub ChangeRange()
'Updateby20140310
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
outStr = ""
For Each rng In InputRng
    If outStr = "" Then
        outStr = rng.Value
    Else
        outStr = outStr & "," & rng.Value
    End If
Next
OutRng.Value = outStr
End Sub

3. 点击“运行”按钮或按“F5”运行 VBA。

4. 屏幕上会弹出一个对话框，您可以选择要转换的列列表。请参见截图：

5. 点击“确定”，然后会弹出另一个对话框让您选择一个单元格。请参见截图：

6. 点击“确定”，列列表中的所有值都将被转换为一个单元格中的逗号分隔列表。

提示：在上述 VBA 中，“,” 表示您想要的分隔符，您可以根据需求进行修改。

您还可以应用 Kutools for Excel 的“合并”功能来合并列列表，并轻松地用逗号分隔每个值。

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

2. 在打开的“合并列或行”对话框中，您需要：
(1) 在“根据以下选项合并所选单元格”部分中勾选“合并行”选项；
(2) 在“指定分隔符”部分中勾选“其他分隔符”选项，并输入逗号“,”；

3. 点击“确定”按钮。

现在，您会看到指定列列表中的所有值都被合并到一个单元格中，并转换为逗号分隔的列表。

反向连接并将一个单元格（逗号分隔的列表）转换为行/列列表

通常，Excel 用户可以应用“文本转列”功能将一个单元格拆分为多列，但没有直接的方法将一个单元格转换为多行。然而，Kutools for Excel 的“拆分单元格”功能可以帮助您轻松完成此操作，如下图所示。