获取要存储在数组 VBA 中的值

Question

我的值存储在一个名为config的工作表中，并且从H2开始(列表是动态的，因为可以添加更多(所以我使用以下代码：

roomCount = ActiveWorkbook.Worksheets("config").Range("H2", Worksheets("config").Range("H2").End(xlDown)).Rows.Count

所以，这给了我行数。

我正在尝试做的，但我只是看不到我的头脑是，做一个循环来存储这些值从 H2 开始(使用我上面的代码(到数组中。

也许为了论证，msgbox 在单击按钮时将数组框起来。

Answer 1

无需遍历单元格来构建数组。您可以将值直接存储在Array中，如下所示：

Dim myvar as Variant    
myvar = ActiveWorkbook.Worksheets("config").Range("H2", Worksheets("config").Range("H2").End(xlDown))

您可以使用以下方法遍历所有元素：

For Each ele In myvar
    Debug.Print ele
Next

或者直接访问每个单独的元素：

Debug.Print myvar(1,1) 'first element of the array
Debug.Print myvar(2,1) 'second element of the array