excel - 如何在VBA中管理不等号的sumproduct

Question

我写了以下代码。我正在尝试在 vba 中使用 sumproduct 函数，但它不起作用。当我运行代码时，我在单元格 Q2 中出现错误 #Value！

 ActiveSheet.Range("Q2").Value = Application.Evaluate("=SUMPRODUCT(--(T9:T10009<>N);I9:I10009;R9:R10009)")

如果我对此进行编辑，则会收到以下错误：

ActiveSheet.Range("Q2").Value = Application.Evaluate("=SUMPRODUCT(--(T9:T10009<>"N");I9:I10009;R9:R10009)")

编译错误：预期：列表分隔符或）

我也试过这个：

 ActiveSheet.Range("Q2").Value = Application.Evaluate("SUMPRODUCT(--(T9:T10009<>"N");I9:I10009;R9:R10009)")

但是和上面一样的错误..

Answer 1

尝试：

ActiveSheet.Range("Q2").Value = Application.Evaluate("=SUMPRODUCT(--(T9:T10009<>" & """N""" & "),(I9:I10009),(R9:R10009))")