vba-excel中的数组定义

Question

我的部分代码遇到了麻烦。我有一个变量，它根据填充行的数量而变化。我已经定义了一个从0到该数字的数组，但是我收到了＃34; Constant Expression Required＆＃34;错误。如果有人能帮助我，我将感激不尽。

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

Answer 1

你不能用变量调暗数组，只需要常数

您需要先调暗数组，然后将其重新设置为变量。 有了redim：

.high-zindex { z-index: 9999 !important }

高常数（坏方法）

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

Answer 2

我可能错了，但我认为你不能使用变量调暗。你或许可以重新开始..？

Answer 3

如果您使用

sn=cells(1).currentregion

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