特定date的数据

目标：当我在特定的单元格（“G1”）中selectdate时，表格应过滤给定date的数据。

到目前为止我所做的是：

Dim Topic As String Dim finalrow As Integer Dim i As Integer 'row counter Dim C As Range, rng Dim Test1 As String 'give the output by combining all the article topics 

Dim selectdate As Date

 Sheets("Raw").Range("H2:I23").ClearContents 

Set selectdate = Sheets（“Sheets1”）。Range（“G1”）

 Set rng = Sheets("Sheet1").Range("A2:E50") 'filtering data as per today's date Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$23").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(2, "12/16/2015") For Each C In rng Test1 = Test1 & C.Value Next C Range("H2") = Test1 

但是这只是过滤了具体的date。 而不是我在“selectdate”中提到的date。 我在这里错过了一些东西，但不知道是什么。

另外，请参阅下面的屏幕截图，我试图实现：

Answer 1

这是吗？

 ActiveSheet.Range("$A$1:$E$23").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(2, SelectDate)