如何使用格式化为日期的单元格进行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")