VBA筛选器包含日期的部分字符串

Sub FilterDataByDatePart()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历数据
    For i = 2 To lastRow ' 假设数据从第2行开始，第1行为标题
        ' 获取日期字符串
        Dim dateStr As String
        dateStr = ws.Cells(i, "A").Value
        
        ' 提取日期的年份
        Dim yearPart As String
        yearPart = Year(dateStr)
        
        ' 提取日期的月份
        Dim monthPart As String
        monthPart = Month(dateStr)
        
        ' 提取日期的日份
        Dim dayPart As String
        dayPart = Day(dateStr)
        
        ' 判断条件并筛选数据
        If yearPart = "2022" And monthPart = "01" Then
            ' 符合条件的数据，保留
            ws.Rows(i).Hidden = False
        Else
            ' 不符合条件的数据，隐藏
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub