求助VBA替换COUNTIF函数

=IF(COUNTIF(条件!Y12:AD12,SUMPRODUCT(COUNTIF(条件!A12:X12,A7:F7)))>0,1,""),
表格中几千个此类公式，并且数据也是在更新变换中，电脑运行一遍几个小时所以求助老师帮忙用VBA提高效率
谢谢各位老师