excel将一行中的值与逗号分隔的string结合在一起

我四处寻找解决这个问题的方法，但我找不到满足我的解决scheme。 所以这里的东西：在Excel中，我有一个数值未指定的行（可以是30，可以是40，没有人知道）。 我想要的是将所有这些值在一个单元格中用逗号分隔（一个string）。 我怎么可以做迭代？ 还有一件事：如果该字段是空的，循环必须结束（在值列表的末尾）

inheritance人一些样本数据：

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）