Criteriaで年検索フィルター
Fieldは列番号です
Selection.AutoFilter でAND条件検索します
Criteria1/Criteria2で範囲を指定します
Sub 年数フィルター(year As Integer) If IsNull(year) Or year <= 0 Then Selection.AutoFilter Field:=4 Exit Sub Else Selection.AutoFilter Field:=4, Criteria1:=">=" & year & "/1/1",Operator:=xlAnd, _ Criteria2:="<=" & year & "/12/31" End If End Sub