Conteggio di righe vuote in Excel, non celle vuote


0

C'è un modo per contare "righe" vuote in Excel 2016, non solo celle vuote. Ho un documento in cui ho bisogno di sapere quante righe all'interno di un intervallo di dati non hanno nulla in esse. Spero che questo abbia un senso. Grazie!

Risposte:


2

VBA non è richiesto. Le colonne di supporto non sono richieste. Non è richiesto nemmeno l'inserimento di una formula!

Worksheet Screenshot

Immettere la seguente formula in H2:

=SUM(--(MMULT(--(A2:F11<>""),ROW(INDEX(H:H,1):INDEX(H:H,COLUMNS(A2:F11))))=0))

La formula funziona moltiplicando la matrice del controllo per non vuoto dell'intero intervallo con un vettore colonna di non zero della stessa lunghezza del numero di colonne dell'intervallo. Ciò determina un vettore di colonne di valori maggiori di zero se una qualsiasi delle celle della riga appropriata non è vuota. Sommando il controllo per zero di ciascuno di questi valori si ottiene il numero di righe vuote.


1

enter image description here

Come funziona:

  • Nella cella E2 scrivi questa formula: =QUOTIENT(COUNTBLANK(B2:D2),3) & Amp; riempilo giù.

Nota, 3 rappresenta "colonne totali" nell'intervallo di dati, come B, C & amp; D sono 3. Puoi cambiarlo quante colonne sono incluse nella rabbia dei dati.

  • Scrivi questa formula nella cella E11 =Sum(E2:E10)

-1

Se sei in grado di utilizzare VBA, questo è abbastanza semplice. Questo codice prenderà l'intervallo selezionato come input. Quindi seleziona ciascuna riga individualmente e verifica se è vuota. Se lo è, quindi incrementa il contatore di 1. Alla fine, seleziona nuovamente l'intervallo originale e dà una finestra di messaggio con il numero di righe che sono completamente vuote. Richiederebbe alcune modifiche per selezionare solo parte della riga, ma dovrebbe anche essere abbastanza semplice da implementare.

Public Sub countBlanks()
Dim Rowcount, currentRow, i, countBlanks As Integer
Dim Selected As Variant
Selected = Selection.Address
Rowcount = Selection.Rows.Count
currentRow = Selection.Rows(1).Row
For i = currentRow To currentRow + Rowcount - 1
    Rows(i).Select
    If WorksheetFunction.CountA(Selection) = 0 Then countBlanks = countBlanks + 1
Next i
Range(Selected).Select
MsgBox countBlanks
End Sub
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.