關于這個主題有很多 QA，但似乎沒有什么能回答這個簡單的問題。我不確定為什么這是代碼不起作用 - 我需要做的就是過濾帶有日期范圍的 Q 列。發生的事情是洗掉（過濾）所有專案；它不會選擇日期范圍：
Dim StDate As Date
Dim EndDate As Date
StDate = "1/20/21"
EndDate = "2/2/21"
With ActiveSheet
.Range("Q1:Q2500").AutoFilter 1, ">=" & StDate, xlAnd, "<=" & EndDate
End With
uj5u.com熱心網友回復：
在日期之間過濾
Option Explicit
Sub FilterBetweenDates()
Const Crit1 As String = ">=1/20/21"
Const Crit2 As String = "<=2/2/21"
Dim ws As Worksheet: Set ws = ActiveSheet ' be more specific
If ws.AutoFilterMode Then ' remove possbile previous filter
ws.AutoFilterMode = False
End If
Dim rg As Range: Set rg = ws.Range("Q1:Q2500")
rg.AutoFilter 1, Crit1, xlAnd, Crit2
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/370751.html
上一篇：創建一個簡單的VBA過濾器