excel - 按日期过滤：今天之前 + 2 天

首页 > 解决方案 > 按日期过滤：今天之前 + 2 天

问题描述

我有一个信息表，每一行在 A 列中都有一个日期。

如何过滤表格以仅显示今天 + 2 天（工作日）之前的所有内容？

表头在第 11 行，数据从第 12 行开始
我在单元格 D2 中有 =Today()

Sub Datefilter()

Dim MyVal As Date
Dim ORTable As ListObject

MyVal = Application.WorksheetFunction.WorkDay(Range("D2").Value, 2)
Worksheets("Open Report").Range(A12 - A9999).AutoFilter Field:=1, Criteria1:="=<" & MyVal

End Sub

标签： excelvbafilter

解决方案

推荐阅读