基于非标准化日期数据筛选Excel数据的FILTER公式报错求助

1. 修复FILTER公式的#VALUE!错误 #

你的公式报错是因为数组遍历Primary范围时，部分单元格不符合SEARCH(":", ...)的格式，导致返回错误值，进而让整个条件数组失效。用IFERROR捕获错误并转为FALSE，就能让FILTER跳过这些无效行：

=FILTER(Primary, IFERROR(DATEVALUE(MID(Primary[起始日期列], SEARCH(":", Primary[起始日期列], 1)-13, 10))>=TODAY(), FALSE), "No Results")

注意：把Primary[起始日期列]替换成你实际的起始日期列名称（比如Primary[Start Date]），比直接引用Primary!A:A更精准，减少不必要的运算。

2. 处理带删除线的日期（若需筛选有效日期） #

如果单元格内的多个日期中，带删除线的是无效数据，Excel原生公式无法读取单元格内部分文本的格式，需要用VBA自定义函数提取不带删除线的文本：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function GetActiveText(cell As Range) As String
    Dim txt As String, i As Integer
    txt = ""
    For i = 1 To cell.Characters.Count
        If Not cell.Characters(i, 1).Font.Strikethrough Then
            txt = txt & cell.Characters(i, 1).Text
        End If
    Next i
    GetActiveText = txt
End Function

2. 回到工作表，修改FILTER公式，先用自定义函数提取有效文本再处理日期：

=FILTER(Primary, IFERROR(DATEVALUE(MID(GetActiveText(Primary[起始日期列]), SEARCH(":", GetActiveText(Primary[起始日期列]), 1)-13, 10))>=TODAY(), FALSE), "No Results")

注：使用此方案需将工作簿保存为.xlsm启用宏格式。

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