Contando linhas em branco no Excel, não células em branco

Question

Existe uma maneira de contar "linhas" em branco no Excel 2016, não apenas células em branco. Eu tenho um documento onde eu preciso saber quantas linhas dentro de um intervalo de dados não tem nada nelas. Espero que isso faça sentido. Obrigada!

    

Answer 1

O VBA não é obrigatório. Colunas auxiliares não são necessárias. Mesmo o array que entra em uma fórmula não é necessário!

DigiteaseguintefórmulaemH2:

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

A fórmula funciona multiplicando a matriz da verificação por não-branco do intervalo inteiro por um vetor de coluna de não-zeros do mesmo comprimento que o número de colunas do intervalo. Isso resulta em um vetor de coluna de valores que são maiores que zero se qualquer uma das células da linha apropriada não estiver em branco. Somando a verificação de zero de cada um desses valores resulta no número de linhas em branco.

    

Answer 2

Comofunciona:

• NacélulaE2,escrevaestafórmula:=QUOTIENT(COUNTBLANK(B2:D2),3)&Enchaparabaixo.

Observação:3representa"total de colunas" no intervalo de dados, como B, C & D são 3. Você pode alterá-lo como muitas colunas incluídas na raiva dos dados.

• Escreva esta fórmula na célula E11 =Sum(E2:E10)

Answer 3

Se você é capaz de usar o VBA, isso é bastante simples. Este código tomará o intervalo selecionado como uma entrada. Em seguida, seleciona cada linha individualmente e verifica se está vazia. Se for, então incrementa o contador em 1. No final, ele seleciona novamente o intervalo original e fornece uma caixa de mensagem com o número de linhas que estão completamente vazias. Isso exigiria alguma modificação para selecionar apenas parte da linha, mas isso também deveria ser bastante simples de implementar.

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