vba统计非空单元格子

在VBA中，你可以使用`Application.WorksheetFunction`中的`COUNTA`函数来统计工作表范围内非空单元格的数量。这个函数会忽略所有的空值、零值以及空字符串。下面是一个简单的示例：

Sub CountNonEmptyCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim nonEmptyCount As Long
    
    ' 设置需要统计的范围
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:Z100") ' 假设你要统计的是A1到Z100的范围
    
    ' 使用COUNTA函数计算非空单元格数量
    nonEmptyCount = Application.WorksheetFunction.CountA(rng)
    
    MsgBox "非空单元格总数为 " & nonEmptyCount & "."
End Sub

在这个例子中，`COUNTA`函数会对`rng`内的每个单元格执行判断，如果单元格的内容不是空的，就增加计数。