VBA 中的 SumProduct

SumProduct in VBA

我正在尝试对单元格长度小于 2 的范围内的单元格进行计数。

正则公式 "sumproduct(n(len(A2:D10)<2))" 按预期工作。在尝试将其合并到我的代码中时

if [sumproduct(n(len(A2:D10)<2))] <> 0 then 
else
end if

它可以工作,但问题是范围不固定,所以每当我尝试分配一个变量并且 运行 它不工作时显示错误 2029


if [sumproduct(n(len("A2:D" & lrow)<2))] <> 0 then 
else
end if

无论如何都要解决这个问题。

谢谢。

谢谢斯科特 -

我认为不需要 Activesheet,所以我使用了 []

ActiveSheet.Evaluate("sumproduct(n(len(A2:D" & Lrow & ")<2))")

现在我已经根据我的要求修改了它,我能够克服我的问题。

非常感谢。