只按月名过滤

Question

我在A1、A2和A3细胞中有三个约会日期。我想取每个日期的月份，并在包含多个日期的数据集中进行筛选。筛选器只应包含A1、A2和A3中三个日期中每个月中存在的日期。

例如：

A1: 01/01/2015，

A2: 01/02/2015，

A3: 01/03/2015

 Dataset:
 20/01/2015
 25/12/2015
 01/09/2015
 14/02/2015
 15/03/2015
 01/06/2015

因此，过滤器应该是：

 20/01/2015
 14/02/2015
 15/03/2015

我目前的语法如下：

 Dim mon1 As String
 Dim mon2 As String
 Dim mon3 As String

 Dim a As Date
 Dim b As Date
 Dim c As Date

 a = Range("A1")
 b = Range("A2")
 c = Range("A3")

mon1 = MonthName(Month(a))
mon2 = MonthName(Month(b))
mon3 = MonthName(Month(c))

With ActiveSheet

 .AutoFilterMode = False
 .Range("A5:D5000").AutoFilter Field:=3, Criteria1:=Array(mon1, mon2, mon3), Operator:=xlFilterValues

End With

不幸的是，这似乎不起作用。

Answer 1

1. 向右插入一列并将其命名为月份。

​

1. 将这个公式=TEXT(C6,"mmmm")放在D6中，然后使用下面的代码

代码

Sub Sample()
    Dim mon1 As String, mon2 As String, mon3 As String

    mon1 = MonthName(Month(Range("A1")))
    mon2 = MonthName(Month(Range("A2")))
    mon3 = MonthName(Month(Range("A3")))

    With ActiveSheet
        .AutoFilterMode = False
        .Range("A5:D5000").AutoFilter Field:=4, _
        Criteria1:=Array(mon1, mon2, mon3), _
        Operator:=xlFilterValues
    End With
End Sub

输出

​

​