[已解决]Variant型数据在自定义函数的时候，引用这个数据类型，如果判断是range类型怎么引用

liuhe955922

Function QUCH(Str As String, space As Variant)

End Function

比如这里面space是多个单元格的区域的话，我怎么把它像数组一样循环引用出来啊？

最佳答案

月排行榜 / 总排行榜

砂海

2021-3-26 19:00

Sub ccc()
    Dim a
    a = QUCH("", Range("A1:C3,D4:E5"))
End Sub

Function QUCH(Str As String, space As Variant)
    Dim rg As Range
    For Each rg In space
        Debug.Print rg.Address
    Next rg
End Function

跳转到最佳答案楼层

砂海

Sub ccc()
    Dim a
    a = QUCH("", Range("A1:C3,D4:E5"))
End Sub

Function QUCH(Str As String, space As Variant)
    Dim rg As Range
    For Each rg In space
        Debug.Print rg.Address
    Next rg
End Function

liuhe955922

谢谢