Hvordan tælles tomme celler eller ikke-tomme celler i et interval i Excel?

Når der er nogle celler uden data udfyldt i et interval i Excel, og du bare vil vide, hvor mange ikke-blanke celler eller tomme celler er i dette interval, hvordan kan du gøre det? Nu kan jeg introducere to måder for dig at tælle blanke celler eller ikke-blanke celler i et interval i Excel.

Tæl tomme eller ikke-tomme celler med formlen
Tæl tomme eller ikke-tomme celler med VB
Tæl let ikke-tomme celler med Kutools til Excel

Tæl tomme eller ikke-tomme celler med formlen

I Excel er der formler, der kan hjælpe dig med hurtigt at tælle kun tomme eller ikke-tomme celler i et interval.

For eksempel skal du kun tælle de tomme celler i dette interval som vist nedenfor og vælge en tom celle for at skrive denne formel = COUNTIF (A1: G11, "") (området A1: G11 angiver det område, du vil tælle de tomme celler fra, du kan ændre det efter behov), og tryk på Enter-knappen på tastaturet, du tæller de tomme celler. Se skærmbillede:

Tip: Du kan bruge denne formel: = COUNTBLANK (A1: G11) kun at tælle tomme celler. Hvis du kun vil tælle celler, der ikke er tomme, kan du bruge denne formel = COUNTA (A1: G11) (området A1: G11 angiver det område, du vil tælle de ikke-tomme celler fra, du kan ændre det efter behov), eller du kan også bruge denne formel = COUNTIF (A1: G11, "<>").

Tæl tomme eller ikke-tomme celler med VBA

Følg de næste trin for at bruge VBA-kode til kun at konvertere tælle de tomme eller ikke-tomme celler.

1. Holde ALT og tryk på F11 på tastaturet for at åbne en Microsoft Visual Basic til anvendelse vindue.

2. klik indsatte > Moduler, og kopier VBA til modulet.

VBA: Tæl kun de tomme celler

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 Kør at køre VBA, og en KutoolsforExcel dialog vises, hvor du kan vælge et arbejdsområde, se skærmbillede:

4. Klik derefter på OK i dialogen, og en anden dialogboks vises for at fortælle dig, hvor mange de tomme celler er i dette valgte interval.

Tip: Hvis du vil tælle ikke-tomme celler, kan du gøre som ovenfor og bruge følgende VBA:

VBA: Tæl kun de ikke-tomme celler

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

Tæl let ikke-tomme celler med Kutools til Excel

Vælg ikke-tomme celler nytte af Kutools til Excel hjælper dig med at vælge alle ikke-tomme celler i det valgte område med et enkelt klik og derefter nemt tælle antallet af valgte celler.

1. Vælg området med ikke-tomme celler, du vil tælle, og klik derefter på Kutools > Type > Vælg Fjern tomme celler. Se skærmbillede:

2. Derefter dukker en dialogboks op for at fortælle dig, hvor mange ikke-blanke celler i det valgte område, klik venligst på OK-knappen, og derefter vælges disse ikke-blanke celler med det samme. Se skærmbillede:

Tæl let ikke-tomme celler med Kutools til Excel

Relative artikler:

• Tæl duplikatværdier i en kolonne i Excel
• Tæl flettede celler i Excel