如何在Excel VBA中计算公式并将其值放在变量中？例如我想将x设置为COUNTA（Sheet1！A：A）

Question

如何在Excel VBA中计算公式并将其值放入变量中？
例如，我想将x设置为COUNTA（Sheet1！A：A）

当我写x=WorksheetFunction.COUNTA(Sheet1!A:A)时收到错误消息

  

“预期：列表分隔符或””

Answer 1

您没有将范围引用正确传递给工作表函数。您需要使用VBA样式参考而不是工作表样式参考。

'VBA style using worksheet codename
x = WorksheetFunction.COUNTA(Sheet1.Range("A:A"))

'VBA style using worksheet name
 x = WorksheetFunction.COUNTA(Worksheets("Sheet1").Range("A:A"))

Answer 2

该函数需要一个Range，因此：

Sub kount()
    Dim r As Range, x As Long

    Set r = Sheets("Sheet1").Range("A:A")

    With Application.WorksheetFunction
        x = .CountA(r)
    End With
End Sub