Com comptar cel·les en blanc o cel·les no blanques en un interval d'Excel?

Quan hi ha algunes cel·les sense dades emplenades en un rang d'Excel, i només voleu saber quantes cel·les no blanques o cel·les en blanc estan en aquest rang, com podeu fer-ho? Ara, puc introduir dues maneres de comptar cel·les en blanc o cel·les no blanques en un rang d'Excel.

Conté cel·les en blanc o sense cel amb fórmula

Conté cel·les en blanc o sense cel amb VB

Conté fàcilment cel · les sense cel amb Kutools per a Excel

---

---

Conté cel·les en blanc o sense cel amb fórmula

---

En Excel, hi ha fórmules que us poden ajudar a explicar ràpidament només cel·les en blanc o sense cel en un rang.

Per exemple, heu de comptar les cel·les en blanc només en aquest rang com es mostra a continuació, i seleccioneu una cel·la en blanc per escriure aquesta fórmula = COUNTIF (A1: G11, "") (el rang A1: G11 indica el rang que voleu comptar des de les cel·les en blanc, podeu canviar-lo com necessiteu), i premeu el botó Enter al teclat, comptarà les cel·les en blanc. Mostra la captura de pantalla:

Consell: podeu utilitzar aquesta fórmula: = COUNTBLANK (A1: G11) per comptar només amb cel·les en blanc. Si voleu comptar només amb cel·les no blanques, podeu utilitzar aquesta fórmula = COUNTA (A1: G11) (el rang A1: G11 indica el rang que voleu comptar amb les cel·les no blanques, podeu canviar-lo com necessiteu), o també podeu utilitzar aquesta fórmula = COUNTIF (A1: G11, "<>").

---

Conté cel·les en blanc o sense cel amb VBA

Seguiu els passos següents per utilitzar el codi VBA per convertir només les cel·les en blanc o sense cel.

1. Espera ALT botó i premeu F11 al teclat per obrir un Microsoft Visual Basic per a aplicacions finestra.

2. clic Insereix > Mòduls, i copieu el VBA al mòdul.

VBA: comptem només les cel·les en blanc

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. clic Correr per executar el VBA, i a KutoolsforExcel El diàleg apareix perquè seleccioneu un rang de treball, Mireu la captura de pantalla:

4. A continuació, feu clic a OK al diàleg i un altre quadre de diàleg per mostrar quantes cel·les en blanc estan en aquest rang seleccionat.

Consell: si voleu comptar amb cel·les no blanques, podeu fer-ho com a dalt, i utilitzar el següent VBA:

VBA: comptem només les cel·les no blanques

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

---

Conté fàcilment cel · les sense cel amb Kutools per a Excel

El Seleccioneu cel·les no blanques utilitat de Kutools for Excel us ajudarà a seleccionar totes les cel·les que no siguin en blanc en un rang seleccionat amb un clic i, a continuació, comproveu fàcilment el nombre de cel·les seleccionades.

Kutools for Excel : amb més complements útils de 300 de Excel, lliure de provar sense límit en 60 dies.

1. Seleccioneu el rang amb cel·les no buides que vulgueu comptar i feu clic a Kutools > seleccionar > Seleccioneu Cèl·lules sense cel. Mostra la captura de pantalla:

2. A continuació, apareix un quadre de diàleg per indicar quantes cel · les no blanques en un rang seleccionat, feu clic al botó D'acord i, a continuació, aquestes cel·les no blanques es seleccionen immediatament. Mostra la captura de pantalla:

Consell.Si voleu fer una prova gratuïta d'aquesta utilitat, visiteu descarregueu el programari lliurement primer, i després aneu a aplicar l'operació segons els passos anteriors.

---

Conté fàcilment cel · les sense cel amb Kutools per a Excel

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 60 dies. Descarregueu la prova gratuïta ara!

---

Articles relatius:

• Compte els valors duplicats en una columna d'Excel
• Compteu les cel·les combinades a Excel

---

---

Eines de productivitat recomanades

Pestanya d'Office

Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel