Excel 作为整数的dim公式

一个愚蠢的问题是如何将公式变暗为整数？ 用公式“counta（a2:a10）”计算A列中的值

---

如果列A包含3个单元格中的值，那么3将是整数，如何才能做到这一点？

这些公式在VBA中通过

应用程序作为实际函数提供。工作表函数

你可以像这样使用它们

    Dim n As Long
    n = Application.WorksheetFunction.CountA(Me.Range("A1:A10"))
    Debug.Print n

确保您不只是使用

…（范围

），而是始终使用

Me

或

工作表（“名称”）。例如，范围（…

）

此外，您还可以使用

这等于

n = Application.Evaluate("CountA(Table1!A1:A10)")

---

您可以使用INT，但是COUNTA只能返回整数，因此它不是必需的

=INT(COUNTA(A2:A10))

在VBA中，您希望这样做

Dim intCount as Integer
intCount = Application.CountA(Range("A2:A10"))

您也可以这样做（但不必如上所述）

注意：从Excel 2007开始，列范围应使用Long而不是整数类型

Dim intCount as Integer
intCount = Application.CountA(Range("A2:A10"))

Dim intCount as Integer
intCount = CInt(Application.CountA(Range("A2:A10")))