VBA判斷A列中日期如果距離現在的日期有5天的，就刪除整行

以下是根据A列中的日期与当前日期相差5天进行判断，并删除整行的示例VBA代码：

Sub DeleteRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    Dim currentDate As Date
    
    ' 设置要操作的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)
    
    ' 获取当前日期
    currentDate = Date
    
    ' 循环遍历范围内的每个单元格
    For Each cell In rng
        ' 检查A列单元格中的日期是否与当前日期相差5天
        If cell.Value - currentDate >= 5 Then
            ' 如果是，则删除整行
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

请将`"Sheet1"`替换为实际的工作表名称。上述代码会循环遍历A列中的每个单元格，判断其日期与当前日期相差是否大于等于5天。如果是，则删除对应行。请注意，删除行会导致数据上下移动，请确保在运行代码之前备份数据。