Excel VBA筛选以42/48开头值并删行时遇应用程序定义错误

错误原因分析 #

1. xlFilterValues不支持通配符：你用Criteria1:=MyArray搭配Operator:=xlFilterValues时，这个运算符仅支持精确匹配的数组，通配符*无法生效，直接导致筛选逻辑错误触发报错。
2. 整列引用风险：直接用ws.Range(col & ":" & col)引用整列，后续Offset(1,0)会包含大量空行，容易引发对象定义错误。
3. 无匹配行时未处理：如果没有符合条件的行，SpecialCells(xlCellTypeVisible)会找不到目标范围，直接抛出错误。

修正后的代码 #

Sub FilterDeleteVisible()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DO")
    Call FilterAndDelete(ws, "E", "42*", "48*")
End Sub

Sub FilterAndDelete(ws As Worksheet, col As String, ParamArray criteria() As Variant)
    Dim rng As Range
    Dim lastRow As Long
    Dim i As Integer
    Dim filterCriteria As String
    
    ' 获取列的有效数据范围（从表头到最后一行有数据的行）
    lastRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
    Set rng = ws.Range(ws.Cells(1, col), ws.Cells(lastRow, col))
    
    ' 处理多条件通配符筛选，用xlOr连接
    If UBound(criteria) = 0 Then
        ' 单个条件
        rng.AutoFilter Field:=1, Criteria1:=criteria(0)
    Else
        ' 多个条件，依次用xlOr连接
        filterCriteria = criteria(0)
        For i = 1 To UBound(criteria)
            rng.AutoFilter Field:=1, Criteria1:=filterCriteria, Criteria2:=criteria(i), Operator:=xlOr
            filterCriteria = criteria(i)
        Next i
    End If
    
    ' 错误处理：避免无可见行时报错
    On Error Resume Next
    rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    
    ' 关闭筛选
    ws.AutoFilterMode = False
End Sub

关键修改说明 #

• 替换筛选逻辑：针对通配符多条件，改用xlOr运算符依次连接每个条件，确保通配符*能正常匹配以指定字符开头的内容。
• 缩小数据范围：通过lastRow获取有效数据行，避免整列引用带来的空行问题。
• 添加错误捕获：用On Error Resume Next处理无匹配行的情况，防止代码崩溃。

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