Excel vba应该怎么操作返回的数组

Question

如题所述

Answer 1

你是说函数的返回值是一个数组么，可以把这个函数的结果赋值给一个变量，也可以直接函数后面加索引号操作，参考一下如下示例代码：

Option Explicit
'第一种，直接用函数后面加索引的形式访问返回数组StrToArr(s)(2)
Sub test1()
    Dim s As String
    s = "1,2,4,5,6"
    MsgBox StrToArr(s)(2)
End Sub
'第二种，把返回结果赋值给一个变量，为了少出错，这个变量定义成变体类型variant
Sub test2()
    Dim s As String
    Dim brr As Variant
    s = "3,4,5,6,7"
    brr = StrToArr(s)
    MsgBox brr(2)
End Sub
Function StrToArr(ByVal str As String) As Variant
    Dim arr As Variant
    Dim i As Integer
    arr = Split(str, ",")
    For i = LBound(arr) To UBound(arr)
        arr(i) = Val(arr(i)) * Val(arr(i))
    Next i
    StrToArr = arr
End Function