Excel - 连接多列

Question

我正在尝试在 Excel 中连接一堆列。我知道我可以手动执行以下操作：

=A1&", "&B1&", "&C1 （等等）

但我有大约 40 列，我正在寻找一种方法来简化这个过程。

在此先感谢您的帮助！

Answer 1

作为一个用户函数range

Public Function ClarkeyCat(ByRef rng As Range) As Variant

Dim c As Range
Dim ans As Variant

For Each c In rng

If (c.Value <> "") Then
    ans = IIf(ans = "", "", ans & ",") & c.Value
End If

Next

ClarkeyCat = ans
End Function

Variant如果需要，可以更改类型（string最有可能更改为 ）。

像这样使用：