在VBA代码中键入不匹配错误

Question

嘿伙计们，我正在尝试搜索一列日期，并计算两个日期之间有多少日期。当我运行它时，我收到错误类型不匹配。

Dim iVal As Integer
iVal = Application.WorksheetFunction.CountIfs("Incident_stats!k:k", ">=" & B1, "Incident_stats!k:k", "<=" & B2)
Range("D1").Value = iVal

Answer 1

Countifs需要Range对象，而不是地址字符串：

iVal = Application.WorksheetFunction.CountIfs(Range("Incident_stats!k:k"), ">=" & Range("B1"), Range("Incident_stats!k:k"), "<=" & Range("B2"))

我认为B1和B2也是细胞，而不是变量。