計算空白單元格的行數（Excel/VBA）

Question

嗨，我試圖計算包含空白單元格的行數。 （我知道有963個空白單元格，我只是不知道它們分佈在多少行）

我對VBA的知識非常有限，而且發現很難實現。

我在想的方式...

兩個for循環。

外環將循環向下行

每個單元

內循環將循環排

當在一排中遇到一個空白單元格計數器將遞增一，我們將移動到下一行。

如果任何人可以幫助我實現這一點，我將不勝感激。

非常感謝

Answer 1

試試下面的代碼

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：