如何读取二维数组中的值？

在VBA中，我有一个函数来获取数据并将其保存在数组中：

Function GetAppro(Current_Sheet As String) Dim myArray As Variant myArray = Worksheets(Current_Sheet).Range("A3:C6") GetAppro = myArray End Function 

在其他函数中，我想读一个数组中的值：

 Sub GenerateDB() Dim Appro() As Variant Appro = GetAppro("Sheet1") MsgBox Appro(0, 0) 'Error come from here End Sub 

EXcel说我错误9超出范围。

Answer 1

数组索引从1开始。 使用：

 Sub GenerateDB() Dim Appro() As Variant Appro = GetAppro("Sheet1") MsgBox Appro(1, 1) 'Error come from here End Sub