转换为 application.worksheetfunction.sumproduct

Question

有人可以转换这个公式 SUMPRODUCT(--(A:A>B:B)) 吗？

A:A 和 B:B 是工作表

这必须计算小于b列的单元格数

application.worksheetfunction.sumproduct

谢谢！

Answer 1

使用求值()

Sub lexation()
    Dim v As Variant
    v = Evaluate("SUMPRODUCT(--(A:A>B:B))")
    MsgBox v
End Sub

例如：

convert to application.worksheetfunction.sumproduct