Question

用VBA筛选日期区间

以Sheet1 B5单元格作为标准，Sheet2 AC列所对应的日期作为目标，将日期大于标准值的数据删掉（留下小于或等于），怎么设计宏语句？





Answer 1

答：不确定你说的删除是清除单元格数据还是删除整行。我暂且以删除整行为例。见代码：

Sub Demo()
    Dim StandardDate As Date
    Dim LastRow As Long
    Dim i As Long
    StandardDate = Sheets("Sheet1").Range("B5")
    With Sheets("Sheet2")
        LastRow = .Range("AC" & Cells.Rows.Count).End(xlUp).Row
        For i = LastRow To 2 Step -1
            If .Cells(i, "AC") > StandardDate Then
                .Cells(i, "AC").EntireRow.Delete
            End If
        Next i
    End With
End Sub

Answer 2

Sub 删除记录()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
n = Range("AC65536").End(3).Row
Sheets("sheet1").[B5].NumberFormatLocal = "mm/dd/yyyy"
Columns("AC:AC").NumberFormatLocal = "mm/dd/yyyy" '强制把sheet1中的B5单元格格式和sheet1中的AC列定义为日期型,若它们已经是日期型的，可以删除这两行。
For i = 2 To n
If Cells(i, 29) > Sheets("sheet1").[B5] Then Rows(i).Delete
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Answer 3

Sub test()
Dim mytemp, myrow
mytemp = Sheet1.Range("B5")
myrow = Range("AC65536").End(xlUp).Row
For i = myrow To 2 Step -1
    If Range("AC" & i) > mytemp Then
        Rows(i).Delete
    End If
Next
End Sub