如何将COUNTI格式设置为date格式

对不起，关于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相同（即date）
结果我得到了“0”，但这是错误的。
我试图删除date格式，并格式化为文本 – 它的工作原理。
但是我需要在rDat和B4中使用date格式。

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")