转换为application.worksheetfunction.sumproduct

Question

有人可以转换这个公式SUMPRODUCT（ - （A：A＆gt; B：B））？

答：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

例如：