Excel VBA基于数组条件筛选删除行报错：类型不匹配

• 类型不匹配的核心问题是：当你把AA2:AA32转置成数组后，varDelItem是一个一维数组，而代码里直接用单个单元格值和数组做<> 比较，VBA不支持这种单个值与数组的直接比较操作，因此抛出类型不匹配错误。
• 仅指定单个单元格时，varDelItem是单个值，直接比较合法，这就是单个单元格能正常运行的原因。

Sub FilterAndRemove()
    
    Dim varKeepItems As Variant
    Dim lngRowStart As Long, _
        lngRowLast As Long, _
        lngRowActive As Long
    Dim strMyCol As String
    Dim rngDelRange As Range
    
    ' 将需要保留的值范围转成一维数组
    varKeepItems = Application.Transpose(Worksheets("ELEMENTS").Range("AA2:AA32"))
    lngRowStart = 2
    strMyCol = "A"
    lngRowLast = Cells(Rows.Count, strMyCol).End(xlUp).Row
    
    Application.ScreenUpdating = False
        
    For lngRowActive = lngRowStart To lngRowLast
        ' 使用Match函数判断当前单元格值是否不在保留数组中
        If IsError(Application.Match(Cells(lngRowActive, strMyCol).Value, varKeepItems, 0)) Then
            If rngDelRange Is Nothing Then
                Set rngDelRange = Cells(lngRowActive, strMyCol)
            Else
                Set rngDelRange = Union(rngDelRange, Cells(lngRowActive, strMyCol))
            End If
        End If
    Next lngRowActive
        
    If Not rngDelRange Is Nothing Then
        rngDelRange.EntireRow.Delete xlShiftUp
    End If
    
    Application.ScreenUpdating = True
        
End Sub

• 用Application.Match函数替代直接比较：该函数会在数组中查找指定值，找不到时返回错误，通过IsError判断结果，就能确定当前行是否需要删除。
• 将变量名varDelItem改为varKeepItems，更贴合逻辑（我们要保留这些值，删除不在其中的行）。

• 若数据量较大，可采用倒序循环（从最后一行往前遍历）删除行，避免因行删除导致的行号偏移问题，不过当前用Union收集删除范围的方式已规避该问题，两种方式均可行。
• 可添加ELEMENTS工作表存在性判断，避免因工作表不存在引发错误。

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