Excel VBA查找特定年月记录：.Find方法无效如何解决？

问题根源 #

你用Find直接搜"01.2022"无效，核心原因是：Excel里的日期本质是数值型的序列值，你看到的dd.mm.yyyy只是单元格的显示格式。就算用LookIn:=xlValues读取显示值，"01.2022"也和单元格完整的dd.mm.yyyy格式不匹配，自然搜不到。

可行解决方案 #

方案1：日期范围匹配（最可靠，适用于真正的日期值） #

直接定义目标年月的起止日期，通过匹配日期范围找到所有符合条件的记录：

Sub FindTargetMonthRecords()
    Dim ws As Worksheet
    Dim startDate As Date, endDate As Date
    Dim foundCell As Range
    Dim firstFoundAddr As String
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换成你的工作表名
    '设定2022年1月的起止日期
    startDate = DateSerial(2022, 1, 1)
    endDate = DateSerial(2022, 1, 31)
    
    '第一次查找
    Set foundCell = ws.Columns("A").Find( _
        What:=startDate, _
        LookIn:=xlFormulas, '读取单元格实际存储的日期值，而非显示文本
        LookAt:=xlGreaterEqual, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext)
    
    If Not foundCell Is Nothing Then
        firstFoundAddr = foundCell.Address
        Do
            '校验是否在目标月份范围内
            If foundCell.Value <= endDate Then
                '这里写你要对找到的行做的操作，比如标记底色
                foundCell.EntireRow.Interior.ColorIndex = 36
            End If
            '继续查找下一个
            Set foundCell = ws.Columns("A").FindNext(foundCell)
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddr
    End If
End Sub

方案2：通配符文本匹配（适用于文本格式的日期） #

如果你的单元格不是真正的日期值，而是纯文本格式的dd.mm.yyyy，可以用通配符匹配任意日期开头+目标年月：

Sub FindTextBasedMonth()
    Dim ws As Worksheet
    Dim foundCell As Range
    Dim firstFoundAddr As String
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '用*通配任意日，匹配*.01.2022格式的文本
    Set foundCell = ws.Columns("A").Find( _
        What:="*.01.2022", _
        LookIn:=xlValues, _
        LookAt:=xlPart, '匹配单元格内的部分文本
        SearchOrder:=xlByRows)
    
    If Not foundCell Is Nothing Then
        firstFoundAddr = foundCell.Address
        Do
            '处理找到的行，比如加粗字体
            foundCell.EntireRow.Font.Bold = True
            Set foundCell = ws.Columns("A").FindNext(foundCell)
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddr
    End If
End Sub

方案3：AutoFilter批量筛选（高效处理大量数据） #

如果需要批量筛选整行数据，AutoFilter比循环查找效率高得多：

Sub FilterTargetMonth()
    Dim ws As Worksheet
    Dim startDate As Date, endDate As Date
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    startDate = DateSerial(2022, 1, 1)
    endDate = DateSerial(2022, 1, 31)
    
    '清除现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    '对A列应用日期范围筛选
    ws.Range("A1").AutoFilter Field:=1, _
        Criteria1:=">=" & CLng(startDate), _
        Operator:=xlAnd, _
        Criteria2:="<=" & CLng(endDate)
    
    '示例：复制筛选后的行到C列开始的位置
    'ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
    '    Destination:=ws.Range("C1")
End Sub

注意事项 #

• 先确认单元格类型：选中单元格看编辑栏，显示序列值（比如44562）就是日期值，用方案1；显示完整dd.mm.yyyy文本就用方案2。
• 用Find时必须记录第一个找到的地址，避免无限循环。

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