Количество строк с пустыми ячейками (Excel/VBA)

Question

Привет, я пытаюсь подсчитать количество строк, содержащих пустые ячейки. (Я знаю, что есть 963 пустых ячейки, я просто не знаю, сколько строк они распределены)

У меня очень ограниченное знание VBA и мне трудно реализовать.

Путь я имею в виду ...

Два цикла.

Внешний контур будет циклически вниз по строкам

Внутренний цикл будет цикл по каждой ячейке в строке

Когда пустая ячейка встречается в строке счетчика увеличивается на единицу, и мы будем двигаться в следующую строку.

Если кто-нибудь может помочь мне реализовать это, я буду очень благодарен.

Большое спасибо

Answer 1

Try ниже код

Sub countBlankInRow() 

    Dim counter As Long 
    For i = 1 To 1000 ' specify your rows 
     For j = 1 To 26 ' specify your columns 

      If Cells(i, j) <> "" Then 
       Exit For 
      Else 
       If j = 26 Then counter = counter + 1 ' Alter the col no accordingly 
      End If 
     Next 
    Next 


    MsgBox counter 
End Sub 

Answer 2

Вы на самом деле не нужны никакие петли, чтобы сделать это.

Этот образец проверяет строку A. Измените номер «Const column_to_test» на номер столбца, который вы хотите проверить для пустых ячеек.

Sub countblank() 
    'This will count the number of rows that have a blank cell in column "A" 
    Const column_to_test = 1 'first column (A) 
    Dim r As Range 
    Set r = Range(Cells(1, column_to_test), Cells(Rows.Count, column_to_test).End(xlUp)) 
    MsgBox ("There are " & r.SpecialCells(xlCellTypeBlanks).Count & " Rows with blank cells") 

    'You may want to select those rows (for deletion?) 

    r.SpecialCells(xlCellTypeBlanks).EntireRow.Select 'change .Select to .Delete 

End Sub 

Answer 3

Вот довольно простой способ сделать это без VBA: