如何填充動態2D陣列？

Question

爲什麼這樣的：

Dim Arr As Variant 
p = 1 
For i = 1 To LRow 
If Sheets("Data").Range("U" & 4 + i).Value > 0 Then 
    ReDim Preserve Arr(1 To p, 1 To 2) 
    Arr(p, 1) = Sheets("Data").Range("U" & 4 + i).Value 
    Arr(p, 2) = Sheets("Data").Range("N" & 4 + i).Value 
    p = p + 1 
End If 
Next 

導致「運行時錯誤9 - 下標越界」在使用ReDim行？ 我不知道進入for循環之前的數組行數。列號應始終爲2.儘管如此，但使用一維數組也可以實現同樣的功能！ 有什麼幫助嗎？

Answer 1

如果您使用ReDim Preserve，則只能調整數組的最後一個維度。 在這裏看到：https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/redim-statement
如果你正在尋找一個解決方案，那麼你可以交換陣列是Arr(2,p)像你說的列數將永遠是2

Answer 2

如前所述，你只能REDIM保留最後一個維度。

但你也可以使用其他方法來找到需要的「行」的數量和設置之前rediming數組：

Dim Arr As Variant 
p = 1 
dim rws as long 
rws = Application.WorkSheetFunction.CountIf(Sheets("Data").Range("U5:U" & Lrow+4),">0") 
Redim Arr(1 to rws,1 to 2) 
For i = 1 To LRow 
If Sheets("Data").Range("U" & 4 + i).Value > 0 Then 

    Arr(p, 1) = Sheets("Data").Range("U" & 4 + i).Value 
    Arr(p, 2) = Sheets("Data").Range("N" & 4 + i).Value 
    p = p + 1 
End If 
Next