VBA按指定索引删除2D(1~n,1~1)数组元素的函数触发运行时类型不匹配问题排查

逐点排查到的问题 #

• 分支结构错位，返回数组未初始化（触发类型不匹配的核心原因）
  原代码中用于初始化返回数组的语句ReDim Arr2(LB2 To UB2, 1 To 1)，被错误嵌套在「索引越界」的If分支块内部。当传入合法索引（比如测试用例中的索引3）时，代码根本不会进入越界分支，Arr2始终是未初始化的Variant类型，此时直接给Arr2的元素赋值，就会触发运行时错误13：类型不匹配。
  同时越界分支弹出提示后没有执行Exit Function，会继续向下执行后续分支逻辑，容易引发其他不可预期的错误。

• 所有For循环语法书写错误
  VBA For循环的标准语法为For 循环变量 = 起始值 To 结束值，原代码中全部写成了错误格式：For i = 起始值 To i = 结束值，把结束值位置写了带等号的判断表达式，比如For i = LB1 To i = UB2，其中的i = UB2会被计算为布尔值（True对应-1、False对应0），循环的实际起止范围完全偏离预期。

• 边界判断逻辑错位
  原代码最后一个删除分支判断条件为ElmToRemoveIndex = UB2，但UB2是原数组长度减1的值（即删除后新数组的上界），当需要删除原数组最后一个元素时，传入的索引是原数组上界UB1，根本无法匹配该判断条件，逻辑完全错位。

• 变量声明不规范
  VBA中Dim i, ElmToRemoveIndex As Long的写法存在隐性问题：只有最后一个变量会被声明为Long类型，前面的i会被默认声明为Variant类型，会带来不必要的内存开销和潜在逻辑隐患。

修正后的可运行代码 #

'该函数基于输入索引删除(1 to n,1 to 1)结构二维数组的元素
Function RemoveElementFromArray(Arr1, Index As Long)
    Dim Arr2() As Variant
    Dim i As Long
    Dim LB1 As Long, UB1 As Long, LB2 As Long, UB2 As Long
    
    ' 获取原数组上下界
    LB1 = LBound(Arr1)
    UB1 = UBound(Arr1)
    LB2 = LB1
    UB2 = UB1 - 1 ' 删除1个元素后，新数组上界比原数组小1
    
    ' 索引合法性校验
    If Index < LB1 Or Index > UB1 Then
        MsgBox "The index is out of range!", vbExclamation
        RemoveElementFromArray = Array() ' 返回空数组避免类型错误
        Exit Function ' 越界时直接退出函数
    End If
    
    ' 所有合法分支统一初始化返回数组
    ReDim Arr2(LB2 To UB2, 1 To 1)
    
    ' 分场景迁移元素
    If Index = LB1 Then
        ' 场景1：删除数组第一个元素
        For i = LB1 To UB2
            Arr2(i, 1) = Arr1(i + 1, 1)
        Next
    ElseIf Index = UB1 Then
        ' 场景2：删除数组最后一个元素
        For i = LB1 To UB2
            Arr2(i, 1) = Arr1(i, 1)
        Next
    Else
        ' 场景3：删除数组中间元素
        ' 拷贝删除位置之前的元素
        For i = LB1 To Index - 1
            Arr2(i, 1) = Arr1(i, 1)
        Next
        ' 拷贝删除位置之后的元素，整体前移1位
        For i = Index To UB2
            Arr2(i, 1) = Arr1(i + 1, 1)
        Next
    End If
    
    RemoveElementFromArray = Arr2
End Function

测试验证 #

用你提供的测试子过程运行时，删除原数组索引3的元素"ahmad"后，新数组索引3的位置对应原数组索引4的元素"saeed"，执行Debug.Print Arr2(3, 1)会正确输出预期值，不再触发类型不匹配错误。

内容的提问来源于stack exchange，提问作者Amir Hossein Ganji