EXCEL问题.巨集.SQL
发布网友
发布时间：2022-05-20 14:26
共2个回答
热心网友
时间：2023-10-28 18:47
把A栏位为今天以後的日期都删除.
Sub Macro1()
'
' Macro1 Macro
' 宏由 discodjjack 录制，时间: 2011-9-1
If MsgBox("注意此操作会直接把A栏位为今天以後的日期的行都删除,是否继续?", vbYesNo) = 7 Then Exit Sub
Dim a, b
b = 0
For a = Sheet1.UsedRange.Rows.Count To 1 Step -1
If IsDate(Range("A" & a)) Then
If DateDiff("d", Range("A" & a).Value, Now) < 0 Then
Sheet1.Rows(a).Delete
b = b + 1
End If
End If
Next
If b > 0 Then
MsgBox "已经成功删除" & b & "条记录!"
Else
MsgBox "没有找到今天以后的日期数据!"
End If
End Sub
热心网友
时间：2023-10-28 18:47
