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

Question

我使用下面的代码来完成 aove 任务：

Dim Arr(2,150)

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

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

Answer 1

不，不是。

你需要：

Dim arr as Variant

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