求助，如何计算甲问题在A项目中出现了多少天？（注：不用透视表

=SUM(--(IFERROR(MATCH(A$2:A$26&G2&F2,A$2:A$26&B$2:B$26&C$2:C$26,),)=ROW($1:$25)))
单元格位置如下图，函数在上面，三键结束
公式较长，待优化，急用的话先用

Option Explicit
Sub abc()
　Dim a, i, d, t
　a = [a1].CurrentRegion.Value
　Set d = CreateObject("scripting.dictionary")
　t = Split("A,甲,", ",") '条件
　For i = 2 To UBound(a)
　　If a(i, 2) = t(0) And a(i, 3) = t(1) Then d(a(i, 1)) = d(a(i, 1)) + 1
　Next
　t(2) = d.Count
　[a2].Offset(, UBound(a, 2) + 1).Resize(, 3) = t
End Sub

有没有办法输出日期的，比如甲问题在A项目中出现了9天，在单元格内依次填入这九个日期