For循环到矩阵的最后一个值

我正在循环一个数组中的每一行，而数组变量的大小是76左右的列和1000行。但是，矩阵未满，行不能满足全部1000个。但是，我需要保持矩阵的大小，因为它可能会在未来增长。直到遇到数组中的最后一个元素时，语法如何？这是我目前所坚持的。谢谢For循环到矩阵的最后一个值

Do While i <= 1000

范围（“a1000”）。end（xlUp）.row –

@Nathan_Sav他询问有关“到数组中的最后一个元素”，这将是“UBound（数组）”。 U =上部和L =下部。所以，你可以使用'For i = LBound（array）到UBound（array）'。 – Ralph

您可以拥有一个动态数组，它将随着行数的增加而增长。使用'ReDim'命令来动态定义你的数组 –

你想循环，直到你的数组值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

晒瑞士雷达表是正确的，你应该使用动态数组。 Excel VBA Array Tutorial

2016-06-28 12:51:10

回答