嘿，我来帮你排查这个筛选后数据消失的问题！这种情况通常是日期格式不兼容或者筛选条件写法有误导致的，咱们一步步来解决：

可能的原因分析 #

• 单元格日期是文本格式，而非真正的日期值
  VBA的AutoFilter是基于单元格的数值来筛选的，不是显示的文本。如果O列的“日期”只是看起来像日期的文本，用日期值去筛选自然找不到匹配项，就会出现全空的情况。
• VBA中日期写法受区域设置影响
  如果你直接写"4/30/2013"作为筛选条件，当系统区域设置是“日/月/年”时，这个字符串会被识别成2013年3月4日，而不是你想要的4月30日。这时候筛选“早于这个日期”的话，大部分数据都会不符合，导致全空。

正确的VBA代码示例 #

下面是经过验证的筛选代码，同时处理O列（早于4/30/2013）和P列（晚于4/30/2013）的筛选：

Sub FilterDateRange()
    Dim ws As Worksheet
    Dim targetDate As Date
    
    '指定要操作的工作表（建议替换成你的工作表名，比如"DataSheet"）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '先清除已有的筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    '用DateSerial生成可靠的日期值，不受区域设置影响
    targetDate = DateSerial(2013, 4, 30)
    
    '执行多列筛选：O列是第15列，P列是第16列
    ws.Range("A:P").AutoFilter Field:=15, Criteria1:="<" & targetDate
    ws.Range("A:P").AutoFilter Field:=16, Criteria1:=">" & targetDate
End Sub

额外的排查步骤 #

1. 检查并转换O列的日期格式 #

如果O列是文本格式，先批量转换成日期值：

Sub ConvertTextToDate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dateRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "O").End(xlUp).Row
    Set dateRange = ws.Range("O2:O" & lastRow) '从第2行开始，跳过表头
    
    '设置单元格格式为日期
    dateRange.NumberFormat = "m/d/yyyy"
    '强制将文本转换为日期数值
    dateRange.Value = dateRange.Value
End Sub

2. 调试验证日期值 #

在代码里加一行Debug.Print targetDate，运行后打开VBA的“立即窗口”（Ctrl+G），确认输出的日期是4/30/2013（或对应区域的显示格式），确保目标日期正确。

内容的提问来源于stack exchange，提问作者Santiago Di Fiore