如何用Excel VBA的AutoFilter精准筛选包含特定数字的单元格

针对你需要筛选「尺寸」列中恰好包含独立数字“4”（排除如24、4.5这类包含4但非独立元素的情况）的需求，提供以下几种可靠方案：

方法1：Excel 365/2021 专属辅助列法 #

1. 在「尺寸」列旁插入辅助列（如B列），在第一个数据行输入公式：

=OR(TEXTSPLIT(A2, "*")="4")

这个公式会按*拆分单元格内容，逐一检查拆分后的元素是否等于“4”，符合条件返回TRUE，否则返回FALSE。
2. 筛选辅助列为TRUE的行，即可得到目标结果。

方法2：兼容全版本的VBA自定义筛选 #

直接通过VBA遍历单元格，精准判断是否包含独立的“4”，再应用筛选：

Sub FilterExactNumber()
    Dim ws As Worksheet
    Dim rng As Range, cell As Range
    Dim filterCol As Long, lastRow As Long
    Dim matchValues As Collection
    
    filterCol = 29 ' 对应AC列，可按需修改
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, filterCol).End(xlUp).Row
    Set rng = ws.Range(ws.Cells(2, filterCol), ws.Cells(lastRow, filterCol)) ' 跳过表头行
    Set matchValues = New Collection
    
    ' 遍历单元格，收集符合条件的唯一值
    On Error Resume Next ' 避免重复添加相同值
    For Each cell In rng
        Dim parts As Variant
        parts = Split(cell.Value, "*")
        Dim part As Variant
        For Each part In parts
            If part = "4" Then
                matchValues.Add cell.Value, Key:=CStr(cell.Value)
                Exit For
            End If
        Next part
    Next cell
    On Error GoTo 0
    
    ' 应用筛选到目标区域
    ws.Range("A2:AH7000").AutoFilter Field:=filterCol, _
        Criteria1:=GetFilterArray(matchValues), Operator:=xlFilterValues
End Sub

' 辅助函数：将Collection转为数组供AutoFilter使用
Function GetFilterArray(col As Collection) As Variant
    Dim arr() As String
    ReDim arr(1 To col.Count)
    Dim i As Long
    For i = 1 To col.Count
        arr(i) = col(i)
    Next i
    GetFilterArray = arr
End Function

代码说明： #

• 遍历目标列的每个单元格，按*拆分内容后检查是否有元素等于“4”
• 用Collection存储符合条件的唯一值，避免重复筛选
• 最后将集合转为数组，作为AutoFilter的筛选条件

方法3：手动自定义筛选（仅适用于简单场景） #

如果不想用代码或辅助列，可手动设置多层自定义筛选：

1. 打开「尺寸」列的筛选菜单，选择「数字筛选」→「自定义筛选」
2. 添加以下条件（逻辑关系为「或」）：
   • 等于 4
   • 包含 *4* 且 不包含 4.* 且 不包含 *4[0-9]*

   注：这种方法存在局限性，若有其他类似“14”的组合可能需要额外添加排除条件，不如前两种方法可靠。

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