excel vba数组的个数（专项-数组-02-数组遍历）

excel vba数组的个数（专项-数组-02-数组遍历）本文首发于Excel高效办公之VBA。排版和细节略作修改，发于头条 Sub test1() arr1 = Array(1 2 3) arr2 = Array(Array(4 5 6) Array(7 8 9)) For Each ele In arr1 Debug.Print (ele) Next For Each ele In arr2 For Each ele2 In ele Debug.Print (ele2) Next Next End Sub图3 运行结果Sub test2() arr1 = Array(1 2 3) maxNum = UBound(arr1) Debug.Print (&#

• 系统环境：Windows 10
• Excel：2016版本

本系列讲讲数组功能

今天说说如何获取数组的每一个元素

---

Part 1：应用场景

• 依然针对1维和2维数组进行讲解，示例结构如下

1. 数组1：1维数组，包含3个元素
2. 数组2：2维数组，包含6个元素

• 目标在于打印输出数组中的每一个元素，下文提供了两种方法

1. For Each...
2. For i = 0 to ...

图1 1维数组

图2 二维数组

---

Part 2：For Each

Sub test1() arr1 = Array(1 2 3) arr2 = Array(Array(4 5 6) Array(7 8 9)) For Each ele In arr1 Debug.Print (ele) Next For Each ele In arr2 For Each ele2 In ele Debug.Print (ele2) Next Next End Sub

图3 运行结果

1. 对于1维数组，For Each循环会对每个元素进行遍历，返回的是每个单个元素
2. 对于2维数组，For Each只是对某一个维度进行遍历，遍历顺序是优先按照行进行遍历，返回的是一个1维数组，再对1维数组进行遍历，回到1维数组的方法

---

Part 3：For i = 0 to …

Sub test2() arr1 = Array(1 2 3) maxNum = UBound(arr1) Debug.Print ("maxNum=" & maxNum) For i = 0 To maxNum Step 1 ele = arr1(i) Debug.Print (ele) Next i arr2 = Array(Array(4 5 6) Array(7 8 9)) maxNum1 = UBound(arr2) maxNum2 = UBound(arr2(1)) Debug.Print ("maxNum1=" & maxNum1) Debug.Print ("maxNum2=" & maxNum2) For i = 0 To maxNum1 For j = 0 To maxNum2 Debug.Print (arr2(i)(j)) Next j Next i End Sub

图4 运行结果

1. 1维数组，UBound(arr1)获取数组的索引号最大值，默认从0开始。即含有3个元素的数组，返回2
2. 2维数组，UBound(arr2)获取数组的行号最大值，默认从0开始
3. 2维数组，UBound(arr2(1))，获取2维数组第2行数组索引号最大值，默认从0开始，即列数-1
4. 1维数组，ele = arr1(i)，通过元素位置访问元素
5. 2维数组，arr2(i)(j)，通过元素位置访问元素，i表示行号，j表示列号，有点像Excel单元格中的Cells(行号 列号)用法，只不过Cells中行号列号是从1开始的
6. 注意，如果，数组采用Dim arr(1 To 3 1 To 2)这种指定索引号的方式，那么按照指定的索引号来，不再是从0开始

---

以上，为本次的介绍内容，下回见。

本文首发于Excel高效办公之VBA。排版和细节略作修改，发于头条