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

我使用下面的代码来完成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