Hur räknar man tomma celler eller icke-tomma celler i ett intervall i Excel?

När det finns några celler utan data fyllda i ett intervall i Excel, och du bara vill veta hur många icke-tomma celler eller tomma celler finns i detta intervall, hur kan du göra det? Nu kan jag introducera två sätt för dig att räkna tomma celler eller icke-tomma celler i ett intervall i Excel.

Räkna tomma eller icke-tomma celler med formeln
Räkna tomma eller icke-tomma celler med VB
Räkna enkelt icke-tomma celler med Kutools för Excel

---

Räkna tomma eller icke-tomma celler med formeln

I Excel finns det formler som kan hjälpa dig att snabbt bara räkna tomma eller icke-tomma celler i ett intervall.

Du måste till exempel bara räkna de tomma cellerna i det här intervallet enligt nedan, och välj en tom cell för att skriva denna formel = COUNTIF (A1: G11, "") (intervallet A1: G11 anger det intervall du vill räkna de tomma cellerna från, du kan ändra det efter behov) och tryck på Enter-knappen på tangentbordet, du kommer att räkna de tomma cellerna. Se skärmdump:

Tips: Du kan använda den här formeln: = COUNTBLANK (A1: G11) att bara räkna tomma celler. Om du bara vill räkna celler som inte är tomma kan du använda den här formeln = COUNTA (A1: G11) (intervallet A1: G11 anger det område du vill räkna de icke-tomma cellerna från, du kan ändra det efter behov), eller du kan också använda den här formeln = COUNTIF (A1: G11, "<>").

---

---

Räkna tomma eller icke-tomma celler med VBA

Följ följande steg för att använda VBA-kod för att konvertera endast de tomma eller icke-tomma cellerna.

1. Håll ALT knappen och tryck på F11 på tangentbordet för att öppna en Microsoft Visual Basic för applikation fönster.

2. klick Insert > Modulernaoch kopiera VBA till modulen.

VBA: Räkna bara de tomma cellerna

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. klick run att köra VBA, och a KutoolsforExcel dialog dyker upp för att du ska välja ett arbetsområde, se skärmdump:

4. Klicka sedan OK i dialogrutan och en annan dialogruta visas för att berätta hur många tomma celler finns i det valda intervallet.

Tips: Om du vill räkna celler som inte är tomma kan du göra som ovan och använda följande VBA:

VBA: Räkna endast de icke-tomma cellerna

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

---

Räkna enkelt icke-tomma celler med Kutools för Excel

Du har nu möjlighet Välj icke-tomma celler nytta av Kutools för Excel hjälper dig att välja alla icke-tomma celler i det valda intervallet med ett klick och sedan räkna antalet valda celler enkelt.

1. Markera intervallet med icke-tomma celler som du vill räkna och klicka sedan på Kutools > Välja > Välj Unblank Cells. Se skärmdump:

2. Sedan dyker en dialogruta upp för att berätta hur många icke-tomma celler i det valda intervallet, klicka på OK-knappen och sedan markeras dessa icke-tomma celler omedelbart. Se skärmdump:

---

Räkna enkelt icke-tomma celler med Kutools för Excel

---

Relativa artiklar:

• Räkna dubbla värden i en kolumn i Excel
• Räkna sammanfogade celler i Excel