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

Als er enkele cellen zonder gegevens zijn ingevuld in een bereik in Excel en u wilt gewoon weten hoeveel niet-lege cellen of lege cellen zich in dit bereik bevinden, hoe kunt u dat dan doen? Nu kan ik twee manieren introduceren waarop u lege cellen of niet-lege cellen in een bereik in Excel kunt tellen.

Tel lege of niet-lege cellen met de formule
Tel blanco of niet-blanco cellen met VB
Tel eenvoudig niet-lege cellen met Kutools voor Excel

Tel lege of niet-lege cellen met de formule

In Excel zijn er formules waarmee u snel alleen lege of niet-lege cellen in een bereik kunt tellen.

U moet bijvoorbeeld de lege cellen alleen in dit bereik tellen, zoals hieronder weergegeven, en een lege cel selecteren om deze formule te typen = AANTAL.ALS (A1: G11; "") (het bereik A1: G11 geeft het bereik aan waarvan u de lege cellen wilt tellen, u kunt dit naar behoefte wijzigen) en druk op de Enter-knop op het toetsenbord, u telt de lege cellen. Zie screenshot:

Tip: u kunt deze formule gebruiken: = COUNTBLANK (A1: G11) om alleen lege cellen te tellen. Als u alleen niet-lege cellen wilt tellen, kunt u deze formule gebruiken = AANTALARG (A1: G11) (het bereik A1: G11 geeft het bereik aan waarvan u de niet-lege cellen wilt tellen, u kunt dit naar behoefte wijzigen), of u kunt ook deze formule gebruiken = AANTAL.ALS (A1: G11; "<>").

Kutools for Excel's Selecteer niet-lege cellen hulpprogramma helpt u eenvoudig alle niet-lege cellen in het geselecteerde bereik in Excel te tellen en te selecteren, zoals de onderstaande schermafbeelding laat zien.
Download en probeer het nu! (60 dagen gratis parcours)

Tel lege of niet-lege cellen met VBA

Volg de volgende stappen om VBA-code te gebruiken om alleen de lege of niet-lege cellen te converteren.

1. Houden ALT knop en druk op F11 op het toetsenbord om een Microsoft Visual Basic voor toepassing venster.

2. klikken Invoegen > Moduleen kopieer de VBA naar de module.

VBA: tel alleen de lege 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. klikken lopen om de VBA uit te voeren, en een KutoolsforExcel dialoogvenster verschijnt waarin u een werkbereik kunt selecteren, zie screenshot:

4. Dan klikken OK in het dialoogvenster, en een ander dialoogvenster wordt weergegeven om u te vertellen hoeveel lege cellen zich in dit geselecteerde bereik bevinden.

Tip: als u niet-lege cellen wilt tellen, kunt u het bovenstaande doen en de volgende VBA gebruiken:

VBA: tel alleen de niet-lege 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

Tel eenvoudig niet-lege cellen met Kutools voor Excel

Het Selecteer niet-lege cellen nut van Kutools for Excel helpt u om alle niet-lege cellen in het geselecteerde bereik met één klik te selecteren en vervolgens het aantal geselecteerde cellen eenvoudig te tellen.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Selecteer het bereik met niet-lege cellen dat u wilt tellen en klik op Kutools > kies > Selecteer Leegmaken van cellen. Zie screenshot:

2. Dan verschijnt er een dialoogvenster om u te vertellen hoeveel niet-lege cellen in het geselecteerde bereik. Klik op de OK knop, en dan worden deze niet-lege cellen onmiddellijk geselecteerd. Zie screenshot:

Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Tel eenvoudig niet-lege cellen met Kutools voor Excel

Relatieve artikelen:

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!