获取要存储在阵列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