VBA按指定名称列表筛选E列并批量删除整行的实现方法

AutoFilter搭配xlFilterValues本身没有列表长度限制，200个值完全可以正常运行，现有代码的核心问题是变量类型定义错误、单元格取值得到的二维数组没有转成筛选要求的一维数组，以及逻辑顺序有误。

原有代码的核心问题 #

• 变量类型不匹配：将存储匹配列表的变量定义为String类型，却用Set赋值单元格区域对象，运行会直接报类型错误。
• 数组维度不符合要求：直接从单元格区域读取值得到的是二维数组，而AutoFilter的Criteria1参数接收多值筛选时必须传入一维数组。
• 逻辑顺序错误：先开启筛选再计算数据最后一行，会导致行号统计错误，且筛选条件写死为空，没有传入实际读取到的匹配值。

修正后可直接运行的代码 #

Sub DeleteMatchedRows()
    Dim ws As Worksheet, ctrlSht As Worksheet
    Dim delRng As Range
    Dim lastRowCtrl As Long, lastRowTarget As Long
    Dim matchArr As Variant, tempArr() As String
    Dim i As Long, validCount As Long
    
    ' 配置工作表，按需替换目标表名称
    Set ctrlSht = ThisWorkbook.Worksheets("control")
    Set ws = ThisWorkbook.Worksheets("替换为你的目标数据表名")
    
    ' 读取control表K列的待匹配名称
    lastRowCtrl = ctrlSht.Cells(ctrlSht.Rows.Count, "K").End(xlUp).Row
    If lastRowCtrl < 2 Then
        MsgBox "未读取到待匹配名称，程序退出"
        Exit Sub
    End If
    matchArr = ctrlSht.Range("K2:K" & lastRowCtrl).Value
    
    ' 二维数组转一维，自动跳过空单元格、去除值前后空格
    validCount = 0
    ReDim tempArr(1 To UBound(matchArr, 1))
    For i = 1 To UBound(matchArr, 1)
        If Trim(matchArr(i, 1)) <> "" Then
            validCount = validCount + 1
            tempArr(validCount) = CStr(Trim(matchArr(i, 1)))
        End If
    Next i
    ReDim Preserve tempArr(1 To validCount)
    
    ' 清除目标表原有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 计算目标表有效数据行
    lastRowTarget = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If lastRowTarget < 2 Then
        MsgBox "目标表无有效数据，程序退出"
        Exit Sub
    End If
    
    ' 执行E列多值匹配筛选
    ws.Range("E1:E" & lastRowTarget).AutoFilter _
        Field:=1, _
        Criteria1:=tempArr, _
        Operator:=xlFilterValues
    
    ' 删除筛选后的可见行（跳过表头行）
    On Error Resume Next
    Set delRng = ws.Range("A2:A" & lastRowTarget).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not delRng Is Nothing Then delRng.EntireRow.Delete
    
    ' 关闭筛选模式
    ws.AutoFilterMode = False
    MsgBox "操作完成，共加载" & validCount & "个待匹配名称"
End Sub

使用说明 #

• 使用前把代码中替换为你的目标数据表名改成你实际要删除行的工作表名称。
• 代码自动跳过待匹配列的空单元格，同时自动去除名称前后的空格，避免因为隐形空格导致匹配失败。
• 加入了容错逻辑，没有匹配到对应行、无有效数据时不会报错，直接弹出提示退出。
• 该方案支持上千个匹配值的筛选场景，不存在短列表限制，网上的短列表示例大多是硬编码写死数组值，不适合批量读取单元格值的场景。

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