如何在二维数组中存储一系列列值

Question

我使用以下代码执行aove任务：

Dim Arr(2,150)

Arr(0)=objsheet.Range("B16:B225").Value

但我收到错误：“下标超出范围错误”。首先，这是在没有任何循环的情况下复制单元格的方法，还是有其他方法？

Answer 1

不，不是。

你需要：

Dim arr as Variant

arr = yourSheet.Range("B16:B225").value