arrays - 获取从 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 总是返回一个二维数组(除非您正在读取单个单元格，在这种情况下它只是一个值，而不是数组)。

您的二维数组具有维度 (15,1)，即 15 行和 1 列。但是通过要求 PodList(i)即只有一个索引或下标，您将其视为一维数组，但事实并非如此，因此出现“下标超出范围”错误。

您想遍历(一)列的行，引用二维数组的两个下标，如下所示:

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

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