VBA 连接文本的自定义函数（可用于数组公式）

Function ConTxt(ParamArray args() As Variant) As Variant
Dim tmptext As
Variant, i As Variant, cellv As Variant
Dim cell As Range
tmptext =
""

For i = 0 To UBound(args)
    If Not IsMissing(args(i))
Then
        Select Case TypeName(args(i))
            Case
"Range"
                For Each cell In args(i)
                   
tmptext = tmptext & cell
                Next cell
            Case
"Variant()"
                For Each cellv In args(i)
                   
tmptext = tmptext & cellv
                Next cellv
            Case
Else
                tmptext = tmptext & args(i)
        End
Select
    End If
Next i

ConTxt = tmptext
End Function