一个自定义函数，第n位可能传入的是range或者0，怎么样识别的时候不会出错

吃串串

Function StrJoin2(区域1 As Range, 区域2 As Range, 区域3 As Range)
    Dim arr
    Dim brr
    Dim crr
    arr = 区域1
    brr = 区域2
    crr = 区域3
    Stext = ""

    For i = 1 To UBound(arr, 2)
        If i = 1 Then
            Stext = "{" & arr(1, i) & "," & brr(1, i) & "," & crr(1, i) & "}"
        Else
            Stext = Stext & ",{" & arr(1, i) & "," & brr(1, i) & "," & crr(1, i) & "}"
        End If
    Next i
    StrJoin2 = Stext
End Function



比如这样，我希望brr填0时，brr所有数组值都是0  但是 区域2=0后，实际上就走不下了

吃串串

无人回复  心伤......

半百

这样行不行？