VBA公共数组跨宏调用出现下标越界问题求助

核心问题分析 #

你遇到的下标越界错误，本质是调用数组时使用的索引超出了数组实际分配的范围，或数组未完成正确初始化。结合你的代码，主要排查点如下：

1. 数组范围与行号索引不匹配 #

在Test_String_Signaling中，你通过N_Calls = Temporary.Range("A2").End(xlDown).Row获取行号，然后ReDim Sum_N_User_Inactivity_Per_CallID(0 To N_Calls - 1)。这里存在两个潜在问题：

• Range("A2").End(xlDown).Row会在A列遇到空行时提前停止，导致N_Calls小于实际最后行号，数组分配的元素数量不足。
• 数组索引范围0 To N_Calls-1与调用时的FindRowNumber - 2逻辑不匹配：若行号从2开始，行号2对应索引0，行号N_Calls应对应索引N_Calls-2，而非N_Calls-1，导致数组多分配了一个无用元素，同时如果实际行号超过N_Calls，索引会超出数组上界。

2. 部分公共数组未初始化 #

你仅对Sum_N_User_Inactivity_Per_CallID执行了ReDim，其他公共数组（如Sum_N_Handover_Per_CallID）直接赋值，虽然当前问题未涉及这些数组，但会导致其他潜在错误，也可能干扰数组内存状态。

3. 数组可能未完成初始化 #

若Test_String_Signaling未运行、运行中断或出错，公共数组会处于未分配状态，此时调用会直接触发下标越界。

解决方案 #

1. 修正行号获取与数组分配逻辑 #

改用Cells(Rows.Count, "A").End(xlUp).Row获取A列最后一行，避免空行影响；同时调整数组索引范围，确保与行号对应：

Sub Test_String_Signaling()
    Dim N_Calls As Long
    ' 获取A列最后一行行号（从底部往上找，避免空行干扰）
    N_Calls = Temporary.Cells(Temporary.Rows.Count, "A").End(xlUp).Row
    ' 数组索引对应行号2到N_Calls，共N_Calls-1行，索引范围0到N_Calls-2
    ReDim Sum_N_User_Inactivity_Per_CallID(0 To N_Calls - 2)
    ' 其他公共数组同步执行ReDim，确保内存分配
    ReDim Sum_N_Handover_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Eutran_Generated_Reason_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Normal_Release_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Authentication_Failure_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Detach_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Unspecified_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Radio_Cx_With_UE_Lost_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_CS_FallBack_Triggered_Per_CallID(0 To N_Calls - 2)
    ReDim Sum_N_Not_Enlisted_Reason_Per_CallID(0 To N_Calls - 2)
    
    ' 后续赋值逻辑保持不变，确保l的取值范围在0到N_Calls-2之间
    ' ...
End Sub

2. 调用前验证数组状态与索引合法性 #

在调用数组的宏中，添加验证逻辑，避免未初始化或索引越界：

' 辅助函数：判断数组是否已完成内存分配
Function IsArrayAllocated(arr As Variant) As Boolean
    On Error Resume Next
    IsArrayAllocated = IsArray(arr) And Not IsError(LBound(arr)) And LBound(arr) <= UBound(arr)
    On Error GoTo 0
End Function

' 调用数组的宏中添加验证步骤
Sub Your_Calling_Macro() ' 替换为你的宏名称
    Dim N_User_Inactivity_Per_CellID As Integer
    Dim FindRow As Range, FindRowNumber As Long
    N_User_Inactivity_Per_CellID = 0
    
    ' 验证数组是否已初始化
    If Not IsArrayAllocated(Sum_N_User_Inactivity_Per_CallID) Then
        MsgBox "数组未初始化，请先运行Test_String_Signaling宏"
        Exit Sub
    End If
    
    With Temporary
        Set FindRow = .Range("A:A").Find(What:=Synthese_Global.Cells(i, 13).Value, LookIn:=xlValues)
    End With
    
    ' 验证查找结果不为空
    If FindRow Is Nothing Then
        MsgBox "未找到匹配的CallID"
        Exit Sub
    End If
    
    FindRowNumber = FindRow.Row
    Dim targetIndex As Long
    targetIndex = FindRowNumber - 2
    
    ' 验证索引是否在数组合法范围内
    If targetIndex < LBound(Sum_N_User_Inactivity_Per_CallID) Or targetIndex > UBound(Sum_N_User_Inactivity_Per_CallID) Then
        MsgBox "索引超出数组范围：" & targetIndex & "，数组合法范围：" & LBound(Sum_N_User_Inactivity_Per_CallID) & "到" & UBound(Sum_N_User_Inactivity_Per_CallID)
        Exit Sub
    End If
    
    ' 安全调用数组值
    N_User_Inactivity_Per_CellID = N_User_Inactivity_Per_CellID + Sum_N_User_Inactivity_Per_CallID(targetIndex)
End Sub

3. 调试辅助手段 #

在调用前添加Debug语句，快速查看数组范围与索引值，定位问题：

Debug.Print "数组上界：" & UBound(Sum_N_User_Inactivity_Per_CallID)
Debug.Print "数组下界：" & LBound(Sum_N_User_Inactivity_Per_CallID)
Debug.Print "调用索引：" & FindRowNumber - 2

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