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

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