VBA使用WorksheetFunction.MinIfs添加日期条件返回0的语法问题

错误原因 #

你新增的最后一个条件语法不符合VBA调用工作表函数的规则：
错误写法""">""&" "& startTime 额外添加了冗余引号、多余空格，且将拼接运算符&写进了字符串内，VBA不会解析字符串内的拼接逻辑，只会将整段内容作为纯文本条件去匹配，自然找不到符合要求的日期数据。

正确写法 #

直接构造「运算符+变量」的拼接字符串即可，修正后的完整代码如下：

WorksheetFunction.MinIfs( _
    wsSource.Columns(34), _
    wsSource.Columns(36), False, _
    wsSource.Columns(14), False, _
    wsSource.Columns(3), wsL.Cells(j, 13).Value, _
    wsSource.Columns(34), ">" & startTime _
)

补充排查方案 #

如果修改后仍无匹配结果，可按以下步骤排查：

• 确认数据源第34列为真日期格式而非文本格式：任意空白单元格输入公式=ISNUMBER(AH1)（34列对应AH列，替换为你要检查的单元格行号），返回TRUE才是可参与计算的日期数值，否则需要先将列格式转换为日期。
• 替换WorksheetFunction为Application避免直接报错，方便调试：

Dim minResult As Variant
minResult = Application.MinIfs( _
    wsSource.Columns(34), _
    wsSource.Columns(36), False, _
    wsSource.Columns(14), False, _
    wsSource.Columns(3), wsL.Cells(j, 13).Value, _
    wsSource.Columns(34), ">" & startTime _
)

If IsError(minResult) Then
    ' 无匹配时的处理逻辑
Else
    ' 正常读取结果逻辑
End If

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