vba统计有数据的单元格行数（VBA统计满足条件的单元格数）

为了帮助您完成这个任务，我们需要知道具体的条件是什么。假设我们要统计某个范围内所有非空单元格的数量，可以使用以下VBA代码：

```vba
Sub CountNonEmptyCells()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim count As Long

Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为您的工作表名称
Set rng = ws.Range("A1:D10") ' 修改为您想要统计的范围

count = 0
For Each cell In rng
If cell.Value <> "" Then
count = count + 1
End If
Next cell

MsgBox "共有 " & count & " 个非空单元格"
End Sub
```

这段代码会统计指定范围内的非空单元格数量，并通过消息框显示结果。如果您有特定的条件或其他需求，请告知我以便进一步调整代码。

工作中，我们经常会为单元格添加背景颜色，有时候我们需要通过计算同一背景颜色的单元格个数来实现我们的目的。

今天，我们就学习下，如何计算指定区域内指定颜色的单元格个数吧！

1案例一

统计A1:C5区域内，单元格为黄色(RGB值为255,255,0)的个数