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也是單元格，而不是變量。