>>267
以下でわかるかな
Field:=6,
がF列を表し、
1/3~1/5を抽出している
あまり複雑な条件になるようなら、作業列等を作ってそこで判定した方がいい気がする
（作業列もvbaで作成）

Sub Macro2()
Range("a1").Select
ActiveSheet.Range("$A$1:$f$7").AutoFilter Field:=6, _
Operator:=xlFilterValues, _
Criteria1:=">=" & CLng(CDate("2016/1/3")), _
Operator:=xlAnd, _
Criteria2:="<=" & CLng(CDate("2016/1/5"))
End Sub