vba - 计数空白和非空白细胞

Question

我想只计算给定数据范围内的所有空白和非空白单元格，直到单元格有数据。但我也有一个有限的引用，它来自 O4:O18 .



从上面的示例中，我只需要计算 Row4 中的空白单元格到数据为 asd 的单元格。 .有什么帮助吗？谢谢!

count 的用途是对非空白单元格中的空白单元格进行计数。假设最后一行有数据是 15，所以 15 将是最后一行有数据，从第 4 行到第 15 行，将计算范围中的空白单元格。

Answer 1

您可以使用 worksheetfunction 轻松获得所需的结果，试试这个:

Sub test()
    Dim iBlank&, iNonBlank&, rng As Range

    Set rng = Range("O4:O" & [O4:O18].Find("*", , , , , xlPrevious).Row)

    With WorksheetFunction
        iNonBlank = .CountA(rng)
        iBlank = .CountBlank(rng)
    End With

    MsgBox "Blank: " & iBlank & vbNewLine & "NonBlank: " & iNonBlank
End Sub