用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筛选日期区间的主要内容,如果未能解决你的问题,请参考以下文章