为何我的VBA数组筛选脚本出现类型不匹配错误？

错误原因 #

VBA的Filter函数仅支持一维数组，但通过Range("A1").CurrentRegion赋值得到的main_array是二维数组（对应多行多列的单元格区域），直接传入Filter函数就会触发「类型不匹配」错误。

解决方法 #

根据你的需求，分两种场景提供解决方案：

场景1：筛选某一列包含"Intact"的整行数据 #

如果要保留包含"Intact"的完整行（比如筛选B列等于"Intact"的行），可以通过遍历二维数组实现：

Public Sub Manager_Report()
    Dim main_array As Variant
    Dim output_array As Variant
    Dim i As Long, j As Long, match_count As Long
    
    ' 将工作表区域读取为二维数组
    main_array = Range("A1").CurrentRegion.Value
    
    ' 第一步：统计符合条件的行数
    match_count = 0
    For i = LBound(main_array, 1) To UBound(main_array, 1)
        ' 这里判断第2列（B列）是否为"Intact"，可根据需求修改列号
        If main_array(i, 2) = "Intact" Then
            match_count = match_count + 1
        End If
    Next i
    
    ' 初始化输出数组，行数为匹配数量，列数与原数组一致
    ReDim output_array(1 To match_count, 1 To UBound(main_array, 2))
    match_count = 0
    
    ' 第二步：填充符合条件的行到输出数组
    For i = LBound(main_array, 1) To UBound(main_array, 1)
        If main_array(i, 2) = "Intact" Then
            match_count = match_count + 1
            ' 复制整列数据
            For j = LBound(main_array, 2) To UBound(main_array, 2)
                output_array(match_count, j) = main_array(i, j)
            Next j
        End If
    Next i
    
    ' 将结果输出到工作表（示例：从D1单元格开始）
    Range("D1").Resize(UBound(output_array, 1), UBound(output_array, 2)).Value = output_array
End Sub

场景2：提取所有包含"Intact"的单元格值到一维数组 #

如果只是要收集所有内容为"Intact"的单元格值，可直接遍历提取：

Public Sub ExtractIntactCells()
    Dim main_array As Variant
    Dim output_array As Variant
    Dim i As Long, j As Long, match_count As Long
    
    main_array = Range("A1").CurrentRegion.Value
    match_count = 0
    
    ' 统计所有匹配的单元格数量
    For i = LBound(main_array, 1) To UBound(main_array, 1)
        For j = LBound(main_array, 2) To UBound(main_array, 2)
            If main_array(i, j) = "Intact" Then
                match_count = match_count + 1
            End If
        Next j
    Next i
    
    ' 初始化一维输出数组
    ReDim output_array(1 To match_count)
    match_count = 0
    
    ' 填充匹配值到一维数组
    For i = LBound(main_array, 1) To UBound(main_array, 1)
        For j = LBound(main_array, 2) To UBound(main_array, 2)
            If main_array(i, j) = "Intact" Then
                match_count = match_count + 1
                output_array(match_count) = main_array(i, j)
            End If
        Next j
    Next i
    
    ' 将一维数组转置后输出到工作表（示例：从F1单元格开始）
    Range("F1").Resize(match_count, 1).Value = Application.Transpose(output_array)
End Sub

补充说明 #

• 从Excel区域赋值得到的数组默认是基于1的二维数组，格式为数组名(行索引, 列索引)，和Filter函数要求的一维数组结构不兼容。
• 用数组处理数据确实能大幅提升工作簿运行速度，避免频繁读写工作表的开销，适合大数据量场景。

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