vba数组循环取值（Excel VBA 数组循环取值）

Excel VBA 数组循环取值

VBA 是 Excel 中非常强大的一种宏语言，它可以帮助我们完成许多使用 Excel 进行数据处理时需要的功能。其中，数组是 VBA 中经常用到的数据类型之一。本文将介绍如何使用 VBA 的数组循环取值。

数组的定义与初始化

在开始使用数组之前，我们需要先定义它。数组是一组相关变量的集合，可以在 VBA 中使用 Dim 语句进行定义，如下所示：

Dim arr() As Integer

上面的代码定义了一个整型数组 arr。需要注意的是，数组定义时需要指定数据类型和数组的大小。如果数组大小不指定，可以使用 ReDim 语句在程序运行时重新定义一个动态数组。

初始化数组的操作是为数组分配空间，为数组元素赋初值。可以使用以下方式来初始化数组：

Dim arr(3) As Integerarr(0) = 1arr(1) = 2arr(2) = 3arr(3) = 4

上面的代码定义了一个大小为 4 的整型数组 arr，并将前面四个元素赋值为 1、2、3、4。

使用 For 循环遍历数组

遍历数组可以使用 For 循环结合数组的下标来实现：

Dim arr(3) As Integerarr(0) = 1arr(1) = 2arr(2) = 3arr(3) = 4For i = 0 To 3    Debug.Print arr(i)Next i

上面的代码中，使用了 VBA 中的 Debug.Print 语句将数组 arr 中的元素依次输出到输出窗口。需要注意的是，数组下标从 0 开始。

使用 For Each 循环遍历数组

VBA 还提供了 For Each 循环，可以更加简洁地遍历数组：

Dim arr(3) As Integerarr(0) = 1arr(1) = 2arr(2) = 3arr(3) = 4For Each i In arr    Debug.Print iNext i

上面的代码中，使用了 For Each 循环遍历数组 arr 中的每个元素，并将其输出到输出窗口。

总结

本文介绍了 VBA 中数组的定义、初始化和遍历方式，希望能帮助大家更加熟练地使用 VBA 进行数据处理。