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

本系列讲讲数组功能

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

Part 1：应用场景依然针对1维和2维数组进行讲解，示例结构如下数组1：1维数组，包含3个元素数组2：2维数组，包含6个元素目标在于打印输出数组中的每一个元素，下文提供了两种方法For Each...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维数组，For Each循环会对每个元素进行遍历，返回的是每个单个元素对于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 iEnd Sub

图4 运行结果

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

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

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