string - excel将一行中的值组合成逗号分隔的字符串

Question

我一直在寻找解决此问题的方法，但找不到令我满意的解决方案。所以事情是这样的：在 excel 中，我有一行具有未指定数量的值（可以是 30，可以是 40，没有人知道）。我想要的是将所有这些值组合在一个以逗号（字符串）分隔的单元格中。我怎么能用迭代来做到这一点？还有一件事：如果该字段为空，则循环必须结束（在值列表的末尾）

继承人一些示例数据：

ROW A:
----
a
b
c
d
e
f
g

结果：

a,b,c,d,e,f,g

谢谢

Answer 1

考虑以下用户定义函数 (UDF)：

Public Function conkittenate(rIn As Range) As String
    Dim r As Range
    conkittenate = ""
    For Each r In rIn
        If r.Value <> "" Then
            If conkittenate = "" Then
                conkittenate = r.Text
            Else
                conkittenate = conkittenate & ", " & r.Text
            End If
        End If
    Next
End Function

在工作表中，它可以像这样使用：

=conkittenate(A1:H1)

或者

=conkittenate(A1:A5)