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

本系列讲讲数组功能

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

Part 1：应用场景

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

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

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

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

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

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

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。排版和细节略作修改，发于头条