嘿，我看到你遇到的问题了——用等于条件时筛选正常，但换成大于等于就不行，而且你的代码里还有两个容易忽略的拼写错误，先帮你指出来，再解决日期比较的核心问题：

首先修正代码里的拼写错误 #

你的代码里有两处笔误，这会直接导致Autofilter无法正常工作：

• filed:=6 → 应该是 Field:=6（字段参数的正确拼写是Field）
• creteria1:=">=" & startdate → 应该是 Criteria1:=">=" & startdate（条件参数的正确拼写是Criteria1）

然后解决日期筛选的逻辑问题 #

即使修正了拼写，直接用字符串拼接日期条件还是可能出问题，因为Excel里的日期本质是存储为数字的，而你把startdate定义为字符串，拼接后Autofilter可能会把它当成文本比较，而非日期比较。这里有两种可靠的解决方式：

方法1：将startdate定义为Date类型变量

把字符串日期转换为真正的日期类型，让VBA和Excel能正确识别日期逻辑：

Sub Vas()
    Dim startdate As Date
    ' 用CDate把字符串转为日期，或者直接用DateSerial创建更可靠
    startdate = CDate("13-10-2020")
    ' 或者用DateSerial(year, month, day)，完全避免区域格式影响
    ' startdate = DateSerial(2020, 10, 13)
    
    ' 修正拼写后的Autofilter
    Selection.AutoFilter Field:=6, Criteria1:=">=" & startdate
End Sub

方法2：用#包裹日期字符串（适合特定区域设置）

如果你更习惯用字符串，也可以用#把日期括起来，明确告诉Excel这是日期值：

Sub Vas()
    Dim startdate As String
    startdate = "13-10-2020"
    ' 注意：这种方式依赖系统的日期格式，如果你的区域是日-月-年就没问题
    Selection.AutoFilter Field:=6, Criteria1:=">=" & "#" & startdate & "#"
End Sub

额外注意事项 #

• 确保你要筛选的第6列（Field:=6）里的单元格是真正的日期格式，而不是文本格式的日期。如果是文本，即使代码正确也无法按日期逻辑筛选，可以先把单元格格式设置为日期，或者用CDate批量转换单元格内容。
• 尽量避免用Selection，最好直接指定目标范围（比如Range("A1:F100").AutoFilter...），这样代码更稳定，不会因为选中区域变化而出错。

内容的提问来源于stack exchange，提问作者Vasant Patil