如何使用 VBA 尝试使用过滤器字段 2：条件 =“0/01/1900”

Question

B 列是日期。 我想 select 所有单元格都包含“00-01-1900”并删除整行。 范围（“a9：n9”）.autofilter 字段：2 标准=“00-01-1900”

但是文件管理器无法正常工作。 我不能 select 它。

有人可以帮忙解决吗？

Answer 1

我假设您在第一行有一个 header，并且您的数据从 A 列开始。

Sub deleteData()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("yourSheetsName")
    Dim lastRow As Long: lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Dim lastCol As Long: lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    ws.Rows.Hidden = False
    
    With ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
        .AutoFilter field:=2, Criteria1:="00-01-1900"
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
    If ws.AutoFilterMode Then ws.AutoFilterMode = False

    ws.UsedRange.Calculate

End Sub

祝你好运