Excel中如何从工作表列动态填充数组？解决下标越界问题

嘿，这个坑我之前也踩过！让我给你掰扯清楚问题出在哪，以及怎么解决：

你原来定义的myColumns = Array("Serial","Practice","Manager", "QTD")是一维数组，所以你习惯用单个下标（比如myColumns(3)）来访问元素。但当你用Range.Value把单元格区域赋值给数组时，不管这个区域是单列还是单行，VBA都会返回一个二维数组——哪怕只有一列，它的结构也是数组(行号, 列号)。

举个例子：假设你的A2到A5有值，那myColumns = Range(Range("A2"), Range("A2").End(xlDown)).Value得到的数组维度是(1 to 4, 1 to 1)。这时候你直接用myColumns(3)访问，VBA会认为你只给了第一个下标（行号），但它还需要第二个下标（列号），所以就会抛出「下标越界」的错误。

这里给你三种可行的方案，按需选择：

1. 转成一维数组（适配你原来的调用习惯） #

用Application.Transpose把单列的二维数组转成一维数组，这样你就能继续用单个下标访问了：

myColumns = Application.Transpose(Range(Range("A2"), Range("A2").End(xlDown)).Value)

转完之后，myColumns就变成了一维数组，myColumns(3)就能正常取到第三项的值。

2. 直接按二维数组规则访问 #

如果不想转置，那就遵循二维数组的访问方式，因为你的区域只有一列，所以第二个下标固定为1：

s = myColumns(3, 1)

3. 更稳妥的区域选取（避免空行陷阱） #

额外提个小细节：Range("A2").End(xlDown)如果A2下面有空行，会提前停止，取不到真正的最后一行。建议用下面的写法来精准定位最后一行：

Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
myColumns = Application.Transpose(Range("A2:A" & lastRow).Value)

内容的提问来源于stack exchange，提问作者Takichiii