获取从Excel范围读取的数组的第i个元素

Question

我使用以下方法创建了一个数组：

Dim PodList() As Variant
Dim i As Long
PodList = Range("A5:A19")

For i = LBound(PodList) To UBound(PodList)
    Range("B4").Value = PodList(i)
Next

我在循环中的行不起作用。我正在尝试将PodList的第i个元素打印/粘贴到单元格B4中，但我得到“下标超出范围”。

Answer 1

此

PodList = Range("A5:A19")

返回一个二维数组。将范围读入Variant总是会返回一个二维数组（除非您正在读取单个单元格，在这种情况下它只是一个值，而不是数组）。

您的2D数组具有尺寸（15,1），即15行和1列。但是通过要求PodList(i)，即仅使用一个索引或下标，您将其视为一维数组，它不是，因此＆＃34;下标超出范围＆＃34;错误。

您希望迭代（一）列的行，引用2D数组的两个下标，如下所示：

For i = LBound(PodList,1) To UBound(PodList,1)
    Range("B4").Value = PodList(i,1)
Next

LBound(PodList,1)和UBound(PodList,1)告诉你第一个维度的界限（并分别返回1和15）。