如何在VBA中实现Excel FILTER函数，解决运行时错误13类型不匹配

• VBA内置Filter函数与Excel工作表的FILTER函数功能完全不兼容：VBA自带的Filter仅支持筛选一维字符串数组，无法直接操作多列单元格范围，也不支持多参数匹配逻辑，这是触发「类型不匹配」错误的核心原因。
• 直接将WorksheetFunction.Search作用于多单元格范围时，返回结果为数组，直接套入WorksheetFunction.IsNumber无法处理数组输入，会返回异常值，进一步触发类型不匹配报错。

推荐直接在VBA中调用原生工作表FILTER函数，和你单元格内写的公式逻辑完全一致，代码示例如下：

Sub 匹配筛选效果()
    Dim ws As Worksheet
    Set ws = Sheets("Sheet1")
    ' 先清空G7开始的原有内容，避免旧数据残留
    ws.Range("G7").CurrentRegion.Clear
    
    Dim res As Variant
    ' 捕获匹配不到时的报错
    On Error Resume Next
    res = WorksheetFunction.Filter(ws.Range("A3:C19"), _
        WorksheetFunction.IsNumber(WorksheetFunction.Search("nut", ws.Range("B3:B19"))), _
        "Not found")
    On Error GoTo 0
    
    ' 判断返回结果类型，对应输出
    If IsArray(res) Then
        ' 匹配到多条结果，按数组尺寸输出到对应单元格区域
        ws.Range("G7").Resize(UBound(res, 1), UBound(res, 2)).Value = res
    Else
        ' 无匹配结果，直接输出提示
        ws.Range("G7").Value = "Not found"
    End If
End Sub

如果需要兼容不支持工作表FILTER函数的旧版Excel，可以采用遍历B列单元格、手动收集符合条件行的纯VBA逻辑实现。

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