Question

所以我目前正在尝试计算excel表中列中填充单元格的数量，但我不确定如何做到这一点。我见过这样的事情：

Range("A1").End(xlDown).Row

但这并没有给出实际数量。有谁知道如何获得整数值计数？为此目的，是否有为excel内置的方法？

提前致谢。

Answer 1

counta功能可以正常工作。

'If the data is in column A
Dim lngCount as Long
lngCount = Application.WorksheetFunction.CountA(Columns(1))
msgbox lngCount

Answer 2

你也可以遍历单元格范围，我想知道哪种方法更快 - 这个或使用Excel的CountA（如果r范围是整列，下面将进入几乎无限循环）：

Sub test()

Dim r As Range
Dim c As Long

Set r = Range("A1").End(xlDown).Row

For Each x In r
   If Not r = "" Then
      c = c + 1
   End If
Next r

MsgBox r

End Sub

如何计算Excel工作表中列中已填充单元格的数量

2 个答案: