Excel VBA多关键词自动筛选报错：类型不匹配，寻求解决

错误原因分析 #

1. Split函数参数类型错误：Split函数要求输入字符串，但你直接传入了Range对象（product1、product2），必须取单元格的.Value属性获取字符串内容。
2. AutoFilter的Field参数错误：Field参数需要传入整数（目标列的列号），比如要筛选E列就传5，但你把D11的内容Split成了数组，完全不符合参数要求。D11应存储目标列的列号数字，直接读取即可。
3. Criteria1参数与Operator错误：myarr是字符串数组，直接和<>*拼接会导致类型不匹配；同时用xlOr无法实现多关键词排除，需将每个关键词处理为<>*关键词格式的数组，搭配xlFilterValues操作符。

修正后的代码 #

Sub FilterExcludeKeywords()
    Dim targetCol As Integer ' 存储目标列号
    Dim excludeKeywords As String ' 存储逗号分隔的关键词
    Dim criteriaArr() As String ' 存储处理后的筛选条件
    
    ' 读取动态配置：目标列号（D11）、排除关键词（E11）
    With Worksheets("Macro")
        targetCol = .Range("D11").Value ' 直接取列号整数
        excludeKeywords = .Range("E11").Value ' 取关键词字符串
    End With
    
    ' 处理关键词为筛选条件数组：每个关键词前加"<>*"
    If excludeKeywords <> "" Then
        criteriaArr = Split(excludeKeywords, ",")
        Dim i As Integer
        For i = LBound(criteriaArr) To UBound(criteriaArr)
            criteriaArr(i) = "<>*" & Trim(criteriaArr(i)) ' 去除关键词前后空格
        Next i
    End If
    
    ' 执行筛选与复制
    With Worksheets("Sheet1")
        ' 先清除原有筛选
        If .AutoFilterMode Then .AutoFilterMode = False
        
        ' 应用筛选：排除指定关键词
        .Range("A1:CS30000").AutoFilter _
            Field:=targetCol, _
            Criteria1:=criteriaArr, _
            Operator:=xlFilterValues
        
        ' 复制筛选后的数据到目标工作表
        .Range("A1:CS30000").Copy Destination:=ThisWorkbook.Worksheets("Tabelle kopiert").Range("A1")
        
        ' 清除筛选
        .AutoFilterMode = False
    End With
End Sub

关键修改说明 #

• 把原本的product1（Range）改成直接读取D11的整数值作为目标列号，符合AutoFilter的Field参数要求。
• 对Split后的关键词数组做遍历处理，给每个关键词加上<>*前缀，同时用Trim去除关键词前后可能的空格，避免筛选失效。
• 使用xlFilterValues替代xlOr，更适合多值排除的场景，避免类型不匹配问题。
• 增加了清除原有筛选的逻辑，防止之前的筛选状态干扰当前操作。

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