Excel VBA代码计算某一列非空单元格的数量

来源：客趣旅游网

Sub CountNonEmptyCells()

Dim lastRow As Long

Dim rangeToCount As Range

Dim nonEmptyCount As Long

' 定义你要计算的列范围

Set rangeToCount = Range("A1:A100")

' 获取最后一行

lastRow = rangeToCount.Cells(rangeToCount.Rows.Count).Row

' 遍历列中的每个单元格，计算非空单元格的数量

For Each cell In rangeToCount

If Not IsEmpty(cell) Then

nonEmptyCount = nonEmptyCount + 1

End If

Next cell

' 显示结果

MsgBox "非空单元格的数量为: " & nonEmptyCount

' 清除对象引用

Set rangeToCount = Nothing

End Sub

在代码中，你需要根据实际需求修改 rangeToCount 的范围。将其设置为你想要计算非空单元格的列范围。然后运行 CountNonEmptyCells 子过程，它将弹出一个消息框，显示非空单元格的数量。

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文