Excel vba应该怎么操作返回的数组
发布网友
发布时间：2022-04-25 20:41
共1个回答
热心网友
时间：2022-06-17 06:01
你是说函数的返回值是一个数组么，可以把这个函数的结果赋值给一个变量，也可以直接函数后面加索引号操作，参考一下如下示例代码：
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
