excel - 如何对格式化为日期的单元格进行 COUNTIFS

Question

打扰一下，再次谈谈 COUNTIFS

Dim a As String    
a = ct.Range("B4").Text ' B4 is formatted as date
Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1")

rDat 和 rSec 是定义的范围（在另一张纸上）。
rDat 与 ct.B4 具有相同的格式（即日期）
，结果我得到“0”，但它是错误的。
我试图删除日期格式，并将格式设置为文本 - 它有效。
但我需要 rDat 和 B4 中的日期格式。

Answer 1

Dim a As Date
a = ct.Range("B4") ' do not convert B4 to text
Range("C6").Value = Application.WorksheetFunction.CountIfs(rDat, a, rSec, "1")