Question

我有以下代码，并且想要计算包含从单元格B15开始的数据的行，B1到B14将不计算。无论如何修改代码来实现它？

Sub Macro1()

Dim lastRow As Long

   With ActiveSheet
   Range("B15").Select
   lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
   MsgBox lastRow
   End With

End Sub

Answer 1

只需使用COUNTA等效的MsgBox Application.CountA(Range("b15:b" & Rows.Count))，即

{{1}}

（也适用于该范围内的任何空白单元格）

Answer 2

尝试：

Sub MyTest()
    Dim numRow As Long

    If IsEmpty(Cells(15, 2)) Then
        numRow = 0
    Else
        numRow = Cells(Rows.Count, 2).End(xlUp).Row - 14
    End If

    MsgBox numRow
End Sub

从单元格B15开始计算列B中的行数

2 个答案: