Excel VBA过滤需求：如何排除C列含日期的单元格？

要实现排除C列所有日期单元格、保留文本和空值的筛选，直接用固定文本数组的方式行不通，因为文本内容不固定。这里给你两种可行的VBA解决方案：

方法1：用辅助列标记（直观好维护） #

新增一列标记单元格是否为非日期，再基于这列过滤：

Sub Filter_EM()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 先取消已有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 在AV列后面插入辅助列（AW列）
    ws.Columns("AW:AW").Insert
    ws.Range("AW1").Value = "非日期标记"
    
    ' 填充公式，判断C列单元格是否为非日期（空值也算非日期）
    ws.Range("AW2:AW3224").Formula = "=NOT(ISDATE(C2))"
    
    ' 执行筛选：第5列选"EM"，辅助列选TRUE
    ws.Range("$A$1:$AW$3224").AutoFilter Field:=5, Criteria1:="EM"
    ws.Range("$A$1:$AW$3224").AutoFilter Field:=49, Criteria1:="TRUE" ' AW是第49列
    
    ' 可选：把辅助列隐藏起来
    ws.Columns("AW:AW").Hidden = True
End Sub

方法2：纯VBA遍历收集非日期值（不用额外列） #

直接遍历C列，把所有非日期的单元格值（包括空值）收集起来，再用这些值做筛选条件：

Sub Filter_EM()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim filterValues As Collection
    Dim arr() As Variant
    Dim i As Integer
    
    Set ws = ActiveSheet
    Set rng = ws.Range("C2:C3224") ' C列数据区域，跳过表头
    Set filterValues = New Collection
    
    ' 取消已有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 遍历C列，收集非日期值（用Collection自动去重）
    On Error Resume Next ' 重复值会报错，此处忽略
    For Each cell In rng
        ' 空值或者不是日期的单元格，都收集起来
        If IsEmpty(cell) Or Not IsDate(cell.Value) Then
            filterValues.Add cell.Value, Key:=CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 把Collection转成数组，适配AutoFilter的参数要求
    ReDim arr(1 To filterValues.Count)
    For i = 1 To filterValues.Count
        arr(i) = filterValues(i)
    Next i
    
    ' 执行筛选：第5列选"EM"，第3列用收集到的非日期值
    ws.Range("$A$1:$AV$3224").AutoFilter Field:=5, Criteria1:="EM"
    If filterValues.Count > 0 Then
        ws.Range("$A$1:$AV$3224").AutoFilter Field:=3, Criteria1:=arr, Operator:=xlFilterValues
    Else
        ' 如果没找到非日期值，隐藏所有数据行
        ws.Range("$A$2:$AV$3224").EntireRow.Hidden = True
    End If
End Sub

两种方法对比 #

• 方法1用公式标记，逻辑一目了然，后续要修改判断规则直接调整公式即可，筛选完成后可保留辅助列备查，也能直接删除。
• 方法2无需额外列，全程VBA处理，适合自动化运行场景，用Collection去重可减少筛选数组的大小，提升运行效率。

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