Hoe telt u het aantal lege of niet-lege cellen in een bereik in Excel?
Wanneer een bereik in Excel enkele lege cellen bevat en u wilt weten hoeveel cellen al dan niet leeg zijn, wat kunt u dan doen? Ik laat u nu twee methoden zien om lege of niet-lege cellen in een bereik in Excel te tellen.
Tel lege of niet-lege Formule
Tel lege of niet-lege cellen met VBA
Tel niet-lege cellen eenvoudig met Kutools voor Excel
Tel lege of niet-lege Formule
In Excel kunt u met formules razendsnel alleen lege of niet-lege cellen in een bereik tellen.
Stel bijvoorbeeld dat u alleen de lege cellen in dit bereik wilt tellen, zoals hieronder wordt weergegeven. Selecteer dan een lege cel en typ deze formule:=COUNTIF(A1:G11,„") (het bereik A1:G11 geeft het bereik aan waarin u de lege cellen wilt tellen; u kunt dit naar wens aanpassen) en druk op Enter. U krijgt dan direct het aantal lege cellen. Zie de schermafbeelding:
Tip: U kunt ook deze formule gebruiken:=COUNTBLANK(A1:G11) om alleen lege cellen te tellen. Als u juist de niet-lege cellen wilt tellen, dan werkt deze formule perfect:=COUNTA(A1:G11) (het bereik A1:G11 geeft aan waarin u de niet-lege cellen wilt tellen; pas dit gerust aan naar uw wens). U kunt ook deze krachtige alternatiefformule gebruiken:=COUNTIF(A1:G11,„<>").
Tel en selecteer eenvoudig alle niet-lege cellen in een bereik in Excel:
Met het hulpprogramma Selecteer niet-lege cellen van Kutools voor Excel telt en selecteert u in één keer alle niet-lege cellen in het geselecteerde bereik in Excel, zoals op de schermafbeelding hieronder te zien is.
Download en probeer het nu!
Tel lege of niet-lege cellen met VBA
Volg de volgende stappen om met VBA-code alleen lege of niet-lege 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 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. Klik op Uitvoeren om de VBA uit te voeren. Er verschijnt een KutoolsforExcel-dialoogvenster waarin u een werkgebied kunt selecteren. Zie schermafbeelding:
4. Klik vervolgens op OK in het dialoogvenster. Een ander dialoogvenster toont u hoeveel lege cellen er in dit geselecteerde bereik zitten.
Tip: Als u niet-lege cellen wilt tellen, kunt u bovenstaande stappen volgen 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 niet-lege cellen eenvoudig met Kutools voor Excel
De Selecteer niet-lege cellen-functie van Kutools voor Excel helpt u met één klik alle niet-lege cellen in het geselecteerde bereik te selecteren, zodat u het aantal geselecteerde cellen eenvoudig kunt tellen.
1. Selecteer het bereik met niet-lege cellen dat u wilt tellen en klik vervolgens op Kutools > Selecteren > Niet-lege cellen selecteren. Zie schermafbeelding:
2. Er verschijnt dan een dialoogvenster met het aantal niet-lege cellen in het geselecteerde bereik. Klik op OK om deze niet-lege cellen direct te selecteren. Zie schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Tel niet-lege cellen eenvoudig met Kutools voor Excel
Gerelateerde artikelen:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins