全局数组跨过程删除行后UBound未更新问题排查咨询

核心原因 #

你的判断完全正确：lastrow引用的是形参A()的初始长度，而非实时更新的全局FlowTable()。

VBA中数组默认按值传递，当你把全局数组FlowTable传入DeleteOutliers的形参A时，A会被创建成原数组的副本。后续你在DeleteArrayRow里直接修改全局FlowTable，但lastrow已经提前通过UBound(A, 1)获取了副本的初始长度，不会同步全局数组的变化，这就导致循环终止位置始终是最初的数组长度，删行操作无法按预期生效。

两种可行解决方案 #

方案1：将形参改为按引用传递 #

修改DeleteOutliers的过程声明，给形参A加上ByRef关键字，让A直接指向全局数组FlowTable，而非创建副本：

Sub DeleteOutliers(sh2 As Worksheet, ByRef A() As Variant, outliersZSRrange As Range, outliersIQRrange As Range)
    Dim i As Long
    ' 从后往前循环（避免删行后索引混乱）
    For i = UBound(A, 1) To LBound(A, 1) Step -1
        ' 你的匹配判断逻辑
        If 需要删除该行 Then
            Call DeleteArrayRow(i)
            ' 此时A的UBound会同步全局FlowTable的变化
        End If
    Next i
End Sub

这样每次调用UBound(A, 1)都会拿到全局数组的最新长度，循环终止位置会自动更新。

方案2：改用函数返回更新后的数组 #

这种方式更符合模块化编程习惯，避免全局变量带来的副作用：

1. 将DeleteOutliers改为函数，返回修改后的数组：

Function DeleteOutliers(sh2 As Worksheet, A() As Variant, outliersZSRrange As Range, outliersIQRrange As Range) As Variant()
    Dim tempArr() As Variant
    tempArr = A
    Dim i As Long, newRow As Long
    newRow = LBound(tempArr, 1)
    
    ' 筛选保留需要的行
    For i = LBound(tempArr, 1) To UBound(tempArr, 1)
        If 不需要删除该行 Then
            tempArr(newRow, 1) = tempArr(i, 1)
            ' 多列数组需复制所有列，示例：tempArr(newRow, 2) = tempArr(i, 2)
            newRow = newRow + 1
        End If
    Next i
    
    ' 调整数组大小并返回
    ReDim Preserve tempArr(LBound(tempArr, 1) To newRow - 1, LBound(tempArr, 2) To UBound(tempArr, 2))
    DeleteOutliers = tempArr
End Function

2. 在调用处接收返回值，更新全局数组：

FlowTable = DeleteOutliers(sh2, FlowTable, outliersZSRrange, outliersIQRrange)

额外注意事项 #

• 循环删除数组行时，建议从后往前循环，避免因前面行被删除后，后续行索引错位导致漏处理。
• 如果是多列数组，ReDim Preserve只能调整最后一维的大小，筛选时要注意同步复制所有列的数据。

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