如何用VBA选择Excel中某列含特定日期值的行？（无法用AutoFilter）

你的代码找不到目标单元格，核心原因有两个：

• 表格中Date列的内容是mar/2022、apr/2022这类月份/年份格式的文本，但你搜索的是完整日期字符串01/04/2022，格式完全不匹配，自然无法命中。
• 即便Date列是日期类型，直接用字符串搜索也可能因为Excel日期的存储逻辑（实际是数值）或本地日期格式差异导致匹配失败。

根据你的需求（选中所有属于2022年4月的行，对应apr/2022），分两种情况给出修正后的代码：

情况1：Date列是文本格式（显示为mar/2022） #

直接搜索apr/2022，同时缩小搜索范围到Date列以提升效率：

Sub SelectAprilRows_Text()
    Dim c As Range, FoundCells As Range
    Dim firstAddress As String
    Dim targetCol As Range
    
    Application.ScreenUpdating = False
    With Sheets("Test")
        '定位Date列（假设是第4列，可根据实际列位置调整）
        Set targetCol = .Columns(4)
        '搜索目标文本"apr/2022"
        Set c = targetCol.Find(What:="apr/2022", After:=targetCol.Cells(targetCol.Rows.Count), _
            LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                '收集匹配单元格对应的整行
                If FoundCells Is Nothing Then
                    Set FoundCells = c.EntireRow
                Else
                    Set FoundCells = Union(FoundCells, c.EntireRow)
                End If
                Set c = targetCol.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
            
            FoundCells.Select
        Else
            MsgBox "未找到匹配行。"
        End If
    End With
    Application.ScreenUpdating = True
End Sub

情况2：Date列是日期类型（实际存储为日期值，显示格式为mmm/yyyy） #

用日期范围匹配（2022年4月1日至4月30日），避免字符串搜索的格式冲突：

Sub SelectAprilRows_Date()
    Dim c As Range, FoundCells As Range
    Dim firstAddress As String
    Dim targetCol As Range
    Dim startDate As Date, endDate As Date
    
    '定义2022年4月的日期范围
    startDate = DateSerial(2022, 4, 1)
    endDate = DateSerial(2022, 4, 30)
    
    Application.ScreenUpdating = False
    With Sheets("Test")
        Set targetCol = .Columns(4)
        '搜索第一个在4月范围内的日期
        Set c = targetCol.Find(What:=startDate, After:=targetCol.Cells(targetCol.Rows.Count), _
            LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
        
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                '验证单元格日期是否在4月范围内
                If c.Value >= startDate And c.Value <= endDate Then
                    If FoundCells Is Nothing Then
                        Set FoundCells = c.EntireRow
                    Else
                        Set FoundCells = Union(FoundCells, c.EntireRow)
                    End If
                End If
                Set c = targetCol.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
            
            If Not FoundCells Is Nothing Then
                FoundCells.Select
            Else
                MsgBox "未找到匹配行。"
            End If
        Else
            MsgBox "未找到匹配行。"
        End If
    End With
    Application.ScreenUpdating = True
End Sub

• 缩小搜索范围到Date列，避免误搜其他列内容，提升运行效率。
• 直接选中整行而非单个单元格，贴合你“选择对应行”的需求。
• 针对文本/日期两种格式分别处理，彻底解决格式不匹配导致的搜索失败问题。

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