excel - 计算空白单元格的行数（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

Try below code

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