尝试使用 vba 筛选以前的工作日期时出现空白

Question

我正在尝试使用 vba 过滤以前的业务日期。获取空白。

我尝试在 Criterial 中输入实际日期 01/30/19：它可以工作，但是当我运行代码时，什么都没有显示。

Dim sht As Worksheet
Dim LastRow As Long
Dim xDay As String
Dim xDate As Date
Dim wb As Workbook: Set wb = ThisWorkbook
 Set sht = wb.Sheets("Open PO Raw Data")
If xDay = "Monday" Then
    xDate = Date - 3
Else
    xDate = Date - 1
End If
'
LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1
  sht.Range("A1:G" & LastRow).AutoFilter field:=7, _
  Criteria1:="xdate"

我希望 G 列显示 01/30/19 的所有日期。

Answer 1

> 引号" xdate周围的引号Criteria1:="xdate"表示您的过滤条件是文本"xdate"，而不是变量xDate的值。删除引号。

编辑：

根据评论，听起来您正在处理文本，而不是实际日期。在这种情况下，您可以使用 Criteria1:=Format(xDate, "mm/dd/yy") .