vba 数组函数引用求解

你非要用msgbox输出数组的一个元素，那就这样写：
Sub Test()
Dim arr
arr = GetListData()
MsgBox arr(1,1)
End Sub

你把 Public Function GetListData() As String
最后的 as string 去掉就好了
但是
你的思路还是不对！
多个地方引用这个数组，那么这个数组应该定义为公共变量
不然做了这个Function的意义不大
是不是每次使用这个Function的时候就会让这个数组从新写一次？
设置一个公共变量 来监测是否需要重新读入数组
Public DataList(1 To 63, 1 To 4)
Public Empt As Boolean
Public Function GetListData() As String
Dim I As Integer
With Sheet2
For I = 1 To 4
DataList(I, 1) = .Cells(I, 1).Value
DataList(I, 2) = .Cells(I, 2).Value
DataList(I, 3) = .Cells(I, 3).Value
DataList(I, 4) = .Cells(I, 4).Value
Next I
End With
Empt = True
End Function
Sub 使用数组()
If Empt = False Then
Call GetListData
End If
MsgBox DataList(1, 1)
End Sub
公共变量 设定一个数组 1个更新开关
另外
Dim DataList(64, 4)
这样定义数组 个人认为用起来是非常不舒服的
这样数组是从0开始，
如果定义为 Dim DataList(1 to 64, 1 to 4)
这样跟表格时同步的，用起来多方便？
就好比DataList(1, 1) 这个现实的是 sheet2的A1么？ 按你这么定义是现实A2的
Dim DataList(64, 4) 你定义成 64,4 也就是 0-64 共65个 0-4共5个
但是你实际 第二维 只用了4个。。
写入数组
还可以 DataList=Sheet2.range(cells(1,1),cells(64,4).value
一句话完成
Public Function GetListData() As String
DataList=Sheet2.range(cells(1,1),cells(64,4).value
Empt = True
End Function
多了一个Empt变量
当你 sheet2 的数据表格发生变化的时候可以让变量变成0，这样使用数据的时候又会重新读取数据