Excel-VBA-数组-02-数组遍历

微信公众号原文

系统：Windows 7
软件：Excel 2016

• 本系列讲讲数组功能
• 今天说说如何获取数组的每一个元素

Part 1：实现内容

1. 依然针对1维和2维数组进行讲解
2. 示例结构如下
   • 数组1：1维数组，包含3个元素
   • 数组2：2维数组，包含6个元素
3. 目标在于打印输出数组中的每一个元素，下文提供了两种方法
   • For Each...
   • For i = 0 to ...

数组1

数组2

Part 2： 方法1-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

运行结果

Part 3： 方法1-部分代码解读

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

Part 4：方法2-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

运行结果

Part 5： 方法2-部分代码解读

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开始

---

• 更多学习交流，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号