vba-excel中的數組定義

Question

我在代碼的一部分中遇到了麻煩。 我有一個變量，該變量隨填充行數的變化而變化。我已經定義了一個從0到該數字的數組，但是我收到“需要常量表達式”錯誤。 如果有人可以幫助我，我將不勝感激。

 Sub test()
   Lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
   Dim f(0 To Lastrow) As Double
 End Sub

Answer 1

您不能使用變量對數組進行調光，而只能使用常量

您需要先使數組變暗，然后將其重新設置為變量。 使用redim：

Sub test()
   Dim f() As Double
   Lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
   Redim f(0 To Lastrow)
End Sub

具有高常數（不好的方法）

 Sub test()
       Dim f(35000) As Double
       Lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
    End Sub

Answer 2

我可能是錯的，但我認為您不能使用變量來變暗。 您也許可以重新設置..？

Answer 3

如果您使用

sn=cells(1).currentregion

您不需要“最后一行”變量。