当前季度的过滤日期

Question

我需要从当前季度开始仅过滤具有日期的数据，不包括先前季度和年份的所有数据.........

Sub DateFilter() 
    Sheets("Base Sheet").Range("A1:CS1").AutoFilter Field:=36, _
        Criteria1:="<" & ThisQuarter 
End Sub

Answer 1

有一个参数可以过滤当前季度：xlFilterThisQuarter

.AutoFilter Field:=1, Criteria1:=xlFilterThisQuarter, Operator:=xlFilterDynamic

请参阅文档：

• Range.Autofilter Method
• XlAutoFilterOperator Enumeration
• XlDynamicFilterCriteria enumeration

Answer 2

The first result来自Google search的“在excel vba中计算季度末”引出我这个答案：

DateSerial(Year(Range("B5")), Month(Range("B5")) + 4, 0)

您可以更改为使用当前日期作为当前季度末的日期，例如：

DateSerial(Year(Date), Month(Date) + 4, 0)

对您的问题的另一种搜索可能是“自动过滤当前季度的excel”。

Google应该始终是寻找解决任何问题的第一人。