在Excel的响应范围中的非空白单元格之间插入分号

Question

只是一个简单的问题。 我有一个电子表格，其中包含一列名称和一行多响应选项（下面的动物）。 我想创建一个新列，以所有非空白响应之间的分号显示响应。

例如，如果约翰有一条蛇和一只猫，它将显示为Snake; Cat。 如果约翰有蛇，猫和兔子，它将显示为Snake; Cat; Rabbit；但如果John仅有蛇，则将不会有分号，只有Snake。 因此，基本上，在第一个或最后一个响应之前或之后没有分号，而只有在多个响应之间才进行重做。

如何轻松实现？

          Snake   Dog    Cat    Rabbit

约翰

艾琳

克里斯

Answer 1

怎么样：

Public Function Gather(rng As Range) As String
    Dim r As Range
    For Each r In rng
        Gather = Gather & " " & r.Value
    Next r
    Gather = Replace(Application.WorksheetFunction.Trim(Gather), " ", ";")
End Function