对于矩阵中的循环到最后一个值

Question

我正在循环数组中的每一行，并且数组变量大小为76左右的列和1000行。但是，矩阵不满，并且行不会填满所有1,000。但是，我需要保持我的矩阵这么大，因为它可能会在未来增长。命中数组中的最后一个元素之前的语法是什么？这就是我目前所困扰的。感谢

/DATA/mysql/<log-file-name>.err

Answer 1

您希望循环，直到您的数组值为isEmpty（）。

Option Base 0
Dim i As Long
Dim myArray(75, 999)

Do While Not IsEmpty(myArray(i, 0))
    i = i + 1
Loop

或

Option Base 1
Dim i As Long
Dim myArray(76, 1000)
i = 1
Do While Not IsEmpty(myArray(i, 0))
   i = i + 1
Loop

Shai Rado是正确的，你应该使用动态数组。 Excel VBA Array Tutorial