Excel VBA:需要删除单元格包含日期在当前日期7天内的行

Sub DeleteRowsWithin7Days()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim cellDate As Date
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为实际的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '获取最后一行的行号
    currentDate = Date '获取当前日期
    
    For i = lastRow To 2 Step -1 '从最后一行开始往上遍历，避免删除行导致行号变化问题
        cellDate = ws.Cells(i, "A").Value '假设日期在A列
        
        If cellDate >= currentDate - 7 And cellDate <= currentDate Then
            ws.Rows(i).Delete '删除符合条件的行
        End If
    Next i
End Sub