vba调用SUMPRODUCT，最好是VBA原代码

hejifang

求助版主：

=SUMPRODUCT((清单!$A:$A=A2)*(ISNUMBER(FIND("4U",清单!$B:$B))))  用VBA代码怎么做写，我试了几个都说类型不匹配，要不就是结果出错。
需要完成的条件如下：
B2:B60=SUMPRODUCT((清单!$A2:$A10000=A2)*(ISNUMBER(FIND("4U",清单!$B2:$B10000))))：
注释：在《统计表B列》统计《统计表A列》条码在《清单表B列包含"4U"》出现的次数。
C2：C60=SUMPRODUCT((清单!$B2:$B10000="3M")*(清单!$A2:$A10000=A2))
注释：在《统计表B列》统计《统计表A列》条码在《清单表B列等于"3M"》出现的次数。
D2：D60=SUMPRODUCT((清单!$B2:$B10000="ANTENNA")*(清单!$A2:$A10000=A2))
注释：在《统计表B列》统计《统计表A列》条码在《清单表B列等于"ANTENNA"》出现的次数。

条码	4U产品	3M	ANTENNA	备注
GZ20015	12	6	18	B2:B60=SUMPRODUCT((清单!$A2:$A10000=A2)*(ISNUMBER(FIND("4U",清单!$B2:$B10000))))： 注释：在《统计表B列》统计《统计表A列》条码在《清单表B列包含"4U"》出现的次数。
GZ20016	12	6	18	C2：C60=SUMPRODUCT((清单!$B2:$B10000="3M")*(清单!$A2:$A10000=A2)) 注释：在《统计表B列》统计《统计表A列》条码在《清单表B列等于"3M"》出现的次数。
GZ20018				D2：D60=SUMPRODUCT((清单!$B2:$B10000="ANTENNA")*(清单!$A2:$A10000=A2)) 注释：在《统计表B列》统计《统计表A列》条码在《清单表B列等于"ANTENNA"》出现的次数。

hejifang

补传附件