VBA使用COUNTIF按日期条件统计行数结果不正确该如何解决

错误核心是VBA拼接日期到CountIf条件时的格式不匹配：Excel的WorksheetFunction.CountIf处理日期条件时，默认期望输入美国格式（mm/dd/yyyy）的字符串或者日期对应的序列数值。直接拼接Date类型变量时，VBA会按照当前系统的区域设置转换为字符串，只要系统日期格式不是美国格式，CountIf就无法识别该条件，进而返回错误结果。工作表中直接用同逻辑公式能得到正确结果，是因为工作表公式会自动适配本地区域的日期格式。

• 方案1：直接使用日期对应的数值序列，完全规避格式冲突，修正后代码如下：

Dim countAoun As Integer
Dim dateM1 As Date

dateM1 = DateAdd("d", -2, Date)
countAoun = 0

' 将日期转换为对应的数值序列传入条件
countAoun = WorksheetFunction.CountIf(Range("B:B"), ">=" & CDbl(dateM1))

Debug.Print countAoun

• 方案2：将日期格式化为无歧义的ISO标准日期格式（yyyy-mm-dd）后再拼接：

Dim countAoun As Integer
Dim dateM1 As Date

dateM1 = DateAdd("d", -2, Date)
countAoun = 0

' 格式化为无歧义的标准日期字符串
countAoun = WorksheetFunction.CountIf(Range("B:B"), ">=" & Format(dateM1, "yyyy-mm-dd"))

Debug.Print countAoun

补充注意：如果代码没有写在目标工作表的专属模块下，建议给Range对象加上工作表前缀（例如Sheets("Sheet1").Range("B:B")），避免默认统计当前活动工作表导致范围错误。

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