我可以循环VBA中的数组元素

我可以以某种方式循环所有这些东西，所以它不会占用太多的空间和解决scheme。

我有600左右，这种types的MYarray元素。 build议我一些东西。 我怎么能循环所有这些东西。

我尝试使用for循环，如果在该循环中的语句，但不成功

Myarray(1) = Sheets("DealComparison").Cells(2, 1) Myarray(2) = Sheets("DealComparison").Cells(3, 1) Myarray(3) = Sheets("DealComparison").Cells(4, 1) Myarray(4) = Sheets("DealComparison").Cells(5, 1) .. .. Myarray(600)=Sheets("DealComparison").Cells(601, 1) 

这样循环会自动继续，直到没有值。

请帮我解决这个问题，因为我是vba的新手。

我不太确定，我想我们需要一个for循环和一个If循环。 不太确定。 请帮我做这个谢谢

Answer 1

您可以使用类似于以下的代码：

 Sub dural() Dim I As Long Dim Myarray(1 To 4) As Variant For I = 1 To 4 Myarray(I) = Sheets("DealComparison").Cells(I + 1, 1) Next I End Sub 

挑你自己的上限。

编辑＃1：

如果你想让代码select上限，那么：

 Sub dural() Dim I As Long, N As Long N = Sheets("DealComparison").Cells(Rows.Count, 1).End(xlUp).Row - 1 Dim Myarray() ReDim Myarray(1 To N) For I = 1 To N Myarray(I) = Sheets("DealComparison").Cells(I + 1, 1) Next I End Sub