用VBA筛选日期区间

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了用VBA筛选日期区间相关的知识,希望对你有一定的参考价值。

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

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

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

参考技术A 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

参考技术B 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

以上是关于用VBA筛选日期区间的主要内容,如果未能解决你的问题,请参考以下文章

如何用vba实现数据透视表自动筛选

VBA 根据日期筛选数据

VBA 根据日期筛选数据

VBA 根据日期筛选数据

vba 用autofilter筛选不符合条件的值

在sql数据库中如何筛选以日期为条件的记录