在变量中使用公式

Question

我有以下公式：

Range("ZZ1").Formula = "=SUMPRODUCT(--(A3:A" & LastRow & "<>""""))"  

现在我希望我可以直接使用它来获取值，而无需先将它放在我的工作表上。 有没有办法直接将变量放入变量中？

Dim x as long
x = "=SUMPRODUCT(--(A3:A" & LastRow & "<>""""))"  

Answer 1

您可以像这样使用Evaluate：

Dim x as long
x = Application.Evaluate("SUMPRODUCT(--(A3:A" & LastRow & "<>""""))")

这将在活动工作表的上下文中进行评估。您还可以使用Worksheet.Evaluate方法在特定工作表的上下文中进行评估。

一个警告：公式字符串不能超过255个字符，但这似乎不是问题。

Answer 2

您可以使用Application.CountIf：

x=Application.Countif(Range("A3:A" & LastRow),"<>"))