VBA使用For Each循环为数组分配序列号全输出0的问题

两个VBA基础认知偏差叠加，最终导致了全0输出的结果：

• 对For Each循环遍历数组的变量含义认知错位
  VBA中For Each 循环变量 In 数组的逻辑，和“取数组下标逐次遍历”的预期完全不同：循环变量拿到的是当前遍历位置的元素本身的值，不是元素的下标索引。
  刚声明的Integer类型数组所有元素的默认初始值都是0，所以循环每走到一个位置，循环变量i拿到的都是元素值0，根本不是你预期的0到9递增的索引值。
• 循环内的赋值逻辑完全无效
  你代码里的a = i、TestArray(i) = a，本质上等价于a = 0、TestArray(0) = 0——因为i永远是0，所以不管循环走到哪个数组位置，代码永远只给TestArray(0)这个固定下标重复赋0值，数组其他位置的元素从来没被修改过，全程保持初始的0值，最终输出自然全是固定的i = 0, a = 0。
• 对数组的元素数量认知存在偏差
  VBA默认数组下标从0开始，写Dim TestArray(10) As Integer时，实际定义的是下标范围0~10、共11个元素的数组，和你预期的“10个元素”的目标本身就不匹配，这也是实际输出行数超出预期的原因。

要实现“为数组每个元素分配0到9连续序列号”的预期效果，有两种常用实现方式：

方式1：保留For Each循环结构，单独维护赋值计数器 #

For Each循环本身无法直接获取元素索引，因此需要额外定义计数器变量追踪循环次数，利用VBA中For Each对元素的引用特性直接修改元素值：

Sub test2_Foreach实现()
    ' 明确指定数组范围为1到10，共10个元素，规避默认下标的认知偏差
    Dim TestArray(1 To 10) As Integer
    ' For Each遍历数组的循环变量必须声明为Variant类型
    Dim elem As Variant
    Dim counter As Integer
    
    counter = 0 ' 计数器初始值从0开始，匹配0-9的赋值需求
    
    For Each elem In TestArray
        elem = counter ' 直接给当前遍历的元素赋值，同步修改原数组
        Debug.Print "当前元素值 = " & elem
        counter = counter + 1
    Next elem
End Sub

方式2：用传统For Next按索引遍历（更推荐） #

如果需要通过下标定位数组元素做赋值操作，直接用带索引的循环更直观，完全不会出现For Each的认知错位问题：

Sub test2_索引遍历实现()
    Dim TestArray(1 To 10) As Integer
    Dim idx As Integer
    
    ' 用LBound/UBound自动识别数组上下界，避免硬编码下标出错
    For idx = LBound(TestArray) To UBound(TestArray)
        TestArray(idx) = idx - 1 ' 因数组从1开始索引，减1后刚好对应0-9的连续序列号
        Debug.Print "数组下标=" & idx & ", 元素值=" & TestArray(idx)
    Next idx
End Sub

内容的提问来源于stack exchange，提问作者Whatever22