VBA全局数组使用异常：调用函数后出现数组越界错误

问题根源 #

你的代码出现数组越界错误，主要有3个核心原因：

1. 未初始化数组时提前访问元素 #

在MainMacro的If分支里，你先执行了count6=count6+1，随后调用AddiPick1。此时进入函数后，会执行For u=1 To count6循环，尝试访问iPick1(u)——但全局数组iPick1是动态数组，此时还没通过ReDim初始化，直接访问数组元素必然触发数组越界错误。

2. count6被重复累加 #

MainMacro里先给count6加1，AddiPick1中如果元素不重复，又会再次给count6加1，导致count6的数值远大于数组实际存储的元素数量。后续循环访问iPick1(a)时，会出现访问未赋值位置或超出数组长度的情况。

3. 数组下标规则不统一 #

VBA默认数组下标从0开始，你的代码里没有声明Option Base 1，却全程用1作为起始下标访问数组。这会导致数组第0位始终闲置，且当count6较小时，容易出现下标与实际数组长度不匹配的问题。

修复代码示例 #

模块顶部配置 #

Option Base 1 ' 强制数组下标从1开始，避免混乱
Public iPick1() As Variant
Public count6 As Long

修改后的MainMacro #

Sub MainMacro()
    count6 = 0 ' 初始化count6，避免残留值干扰
    For i = 1 To count2
        If <something> Then
            ' 移除提前累加count6的代码
            ' ....some code 
            Call AddiPick1(i)
        End If
    Next i 
    For a = 1 To count6
        Rows(iPick1(a)).Delete
    Next a
End Sub 

修改后的AddiPick1函数 #

Function AddiPick1(ByVal ln As Integer)
    Dim mark As Integer, u As Long
    mark = 0
    
    ' 仅当数组已有元素时才执行重复判断，避免访问未初始化数组
    If count6 > 0 Then
        For u = 1 To count6
            If iPick1(u) = ln Then 
                mark = 1
                Exit For ' 找到重复立即退出，提升效率
            End If
        Next u
    End If
    
    If mark = 0 Then
        count6 = count6 + 1
        ReDim Preserve iPick1(count6)
        iPick1(count6) = ln
    End If
    AddiPick1 = iPick1
End Function

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