如何在VBA中不修改单元格实现数值与含数字文本的自动筛选

针对你需要同时匹配数值型单元格和含数字文本单元格的筛选需求，以下是几种不修改原单元格（避免破坏公式）的实现方式：

方法1：高级筛选（AdvancedFilter）结合公式条件 #

高级筛选支持用自定义公式作为筛选规则，直接基于单元格的文本形式判断是否包含目标值，全程不改动原数据：

Sub AdvancedFilterMixedData()
    Dim ws As Worksheet
    Dim filteredRegion As Range
    Dim filterValue As String
    Dim criteriaRange As Range
    
    ' 按需修改以下变量
    Set ws = ActiveSheet
    Set filteredRegion = ws.Range("A1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row) ' 数据范围，筛选第3列
    filterValue = "23" ' 替换为你的筛选值
    
    ' 创建临时条件区域（使用空白列，这里用Z列）
    Set criteriaRange = ws.Range("Z1:Z2")
    criteriaRange.Clear
    ' 条件公式：将单元格转为文本后检查是否包含筛选值
    criteriaRange(2).Formula = "=ISNUMBER(SEARCH(""" & filterValue & """, TEXT(C2, ""@"")))"
    
    ' 执行原地高级筛选
    filteredRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange, Unique:=False
    
    ' 清理临时条件区域
    criteriaRange.Clear
    Set criteriaRange = Nothing
End Sub

方法2：临时辅助列筛选 #

插入临时辅助列，用公式标记符合条件的行，筛选完成后可删除辅助列，不影响原数据：

Sub TempHelperColumnFilter()
    Dim ws As Worksheet
    Dim filteredRegion As Range
    Dim filterValue As String
    Dim helperCol As Integer
    
    Set ws = ActiveSheet
    Set filteredRegion = ws.Range("A1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
    filterValue = "23"
    helperCol = filteredRegion.Columns.Count + 1 ' 辅助列位于数据区域右侧
    
    ' 添加辅助列表头和判断公式
    ws.Cells(1, helperCol).Value = "TempFilter"
    ws.Range(ws.Cells(2, helperCol), ws.Cells(filteredRegion.Rows.Count, helperCol)).Formula = _
        "=ISNUMBER(SEARCH(""" & filterValue & """, TEXT(C2, ""@"")))"
    
    ' 筛选辅助列为TRUE的行
    filteredRegion.Resize(, filteredRegion.Columns.Count + 1).AutoFilter Field:=helperCol, Criteria1:="TRUE"
    
    ' 如需清理，可取消注释以下代码删除辅助列
    ' ws.Columns(helperCol).Delete
End Sub

方法3：AutoFilter数组条件（Excel 2019及以上适用） #

通过构建数组条件，同时覆盖文本通配符匹配和数值的文本形式匹配：

Sub AutoFilterMixedData()
    Dim filteredRegion As Range
    Dim filterValue As String
    Dim criteriaArray As Variant
    
    Set filteredRegion = ActiveSheet.Range("A1:C100") ' 替换为你的数据范围
    filterValue = "23"
    
    ' 构建条件数组：匹配文本任意位置、数值的任意片段
    criteriaArray = Array( _
        "*" & filterValue & "*", _
        "=*" & filterValue, _
        "=" & filterValue & "*", _
        "=" & filterValue _
    )
    
    ' 应用自动筛选，匹配数组中任一条件
    filteredRegion.AutoFilter Field:=3, Criteria1:=criteriaArray, Operator:=xlFilterValues
End Sub

核心逻辑说明 #

所有方案均通过TEXT(cell, "@")将数值型单元格转为文本形式，再用SEARCH函数判断是否包含目标筛选值，既实现了统一匹配逻辑，又完全保留原单元格的内容、格式和公式。

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