Hoe blanco cellen of niet-blanco cellen in een bereik in Excel te tellen?

Wanneer er enkele cellen zonder ingevulde gegevens in een bereik in Excel zijn, en je wilt alleen weten hoeveel niet-blanco cellen of blanco cellen er in dit bereik zijn, hoe kun je dat doen? Nu kan ik twee manieren introduceren om blanco cellen of niet-blanco cellen in een bereik in Excel te tellen.

Blanco of niet-blanco cellen tellen met formule
Blanco of niet-blanco cellen tellen met VB
Niet-blanco cellen eenvoudig tellen met Kutools voor Excel

Blanco of niet-blanco cellen tellen met formule

In Excel zijn er formules die je kunnen helpen om snel alleen blanco of niet-blanco cellen in een bereik te tellen.

Bijvoorbeeld, je moet alleen de blanco cellen in dit bereik tellen zoals hieronder weergegeven, en selecteer een lege cel om deze formule in te voeren =COUNTIF(A1:G11," ") (het bereik A1:G11 geeft het bereik aan waaruit je de blanco cellen wilt tellen, je kunt dit naar behoefte wijzigen), en druk op de Enter-toets op het toetsenbord, dan tel je de blanco cellen. Zie screenshot:

Tip: Je kunt deze formule gebruiken: =COUNTBLANK(A1:G11) om alleen blanco cellen te tellen. Als je alleen niet-blanco cellen wilt tellen, kun je deze formule gebruiken =COUNTA(A1:G11) (het bereik A1:G11 geeft het bereik aan waaruit je de niet-blanco cellen wilt tellen, je kunt dit naar behoefte wijzigen), of je kunt ook deze formule gebruiken =COUNTIF(A1:G11,"<>").

Blanco of niet-blanco cellen tellen met VBA

Volg de volgende stappen om VBA-code te gebruiken om alleen de blanco of niet-blanco cellen te tellen.

1. Houd de ALT-toets ingedrukt en druk op F11 op het toetsenbord om een Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en kopieer de VBA-code in de module.

VBA: Tel alleen de blanco cellen

Sub CountBlanks()
'Updateby20140310
Dim rng As Range
Dim WorkRng As Range
Dim total As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If IsEmpty(rng.Value) Then
        total = total + 1
    End If
Next
MsgBox "There are " & total & " blank cells in this range."
End Sub

3. Klik op Uitvoeren om de VBA-code uit te voeren, en er verschijnt een KutoolsforExcel-dialoogvenster waarin je een werkingsbereik kunt selecteren. Zie screenshot:

4. Klik vervolgens op OK in het dialoogvenster, en er verschijnt een ander dialoogvenster dat je vertelt hoeveel blanco cellen er in dit geselecteerde bereik zijn.

Tip: Als je niet-blanco cellen wilt tellen, kun je hetzelfde doen als hierboven, en gebruik de volgende VBA-code:

VBA: Tel alleen de niet-blanco cellen

Sub CountNonBlanks()
'Updateby20140310
Dim rng As Range
Dim WorkRng As Range
Dim total As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not IsEmpty(rng.Value) Then
        total = total + 1
    End If
Next
MsgBox "There are " & total & " not blank cells in this range."
End Sub

Niet-blanco cellen gemakkelijk tellen met Kutools voor Excel

Het Selecteer niet-blanco Cellen-hulpprogramma van Kutools voor Excel helpt je om met één klik alle niet-blanco cellen in een geselecteerd bereik te selecteren, en vervolgens het aantal geselecteerde cellen gemakkelijk te tellen.

1. Selecteer het bereik met niet-blanco cellen dat je wilt tellen, klik vervolgens op Kutools > Selecteer > Selecteer Ongevulde Cellen. Zie screenshot:

2. Er verschijnt een dialoogvenster dat je vertelt hoeveel niet-blanco cellen er in het geselecteerde bereik zijn, klik op de knop OK, en vervolgens worden deze niet-blanco cellen onmiddellijk geselecteerd. Zie screenshot:

Demo: Niet-blanco cellen gemakkelijk tellen met Kutools voor Excel

Gerelateerde artikelen:

• Dubbele waarden in een kolom in Excel tellen
• Samengevoegde cellen in Excel tellen