EXCEL_VBA 如何添加数组元素

Dim

a

......

ReDim

Preserve

a(i)

......

先定义一个数组，如果比较后发现这饥禅个数为数组内没有，就让i=i+1后，重新定世岩义一下数组，使其元素自动+1，再把值添加进去。

不明白的地方搜肢御可以Q我，40194204

用For 循环就可以，和芹例如族棚竖，兆大第一行有数据，用下程序就可以把A~F列的数据放到数据中。

Sub tt()

Dim Arry(50)

For i = 0 To 5

Arry(i) = Cells(1, i + 1)

Next

End Sub

“数组下标越界”是编程中一个比较常见的错误。

其原因如下：

1、数组的禅竖起始值可能是从 0 开始，即，第1个兄袭档数组元素是 (0) 。比如，某数组有10个元素，那么第1个元素访问是 数组(0)，而最后一个元素是 数组(9)。

2、羡乱如果动态改变了数组的大小，那么，如果访问的元素超出数组的最大值，就会出现错误。

建议：

1、检查数组的定义情况。

2、在代码中，通过调试跟踪，检查运行中数组的元素成员的实际最大数量。

---