获取从 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)仅具有一个索引或下标的 ie，您将其视为一维数组，但事实并非如此，因此出现“下标超出范围”错误。

您想要迭代（一）列的行，引用二维数组的两个下标，如下所示：

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

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