计算具有空白单元格的行数（Excel / VBA）

Question

您好我正在尝试计算包含空白单元格的行数。 （我知道有963个空白单元格，我只是不知道它们分散了多少行）

我对VBA的了解非常有限，我发现很难实现。

我正在思考的方式......

两个for循环。

外循环将循环下行

内部循环将循环遍历行中的每个单元格

当一行中遇到空白单元格时，计数器将递增一，我们将移动到下一行。

Answer 1

如果没有VBA，这是一个相当简单的方法：

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

尝试以下代码

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