Excel 从指定单元格向上计数行

我在VBA方面相当弱。 我试图在图片中找到表1和表2的行数

我试图在下面的VBA代码中从单元格

A12

向上（向后）计算行数

LastRow=sheet("Sheet1").Range("A12").end(xlUp).row

但它似乎不起作用

单元格（Rows.Count，1）。End（xlUp）。Row

将对表2中的行进行计数；因此不起作用。

您有更好的方法/代码来计算表1和表2吗？

---

谢谢

使用

特殊单元格后，尝试使用
范围.区域
。大致如下：

Sub Test()

Dim lr As Long
Dim rng As Range

With ThisWorkbook.Sheets("Sheet1")

    'Get a full range of where your tables sit.
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set rng = .Range("A1:A" & lr).SpecialCells(xlCellTypeConstants)

    'Loop through all different tables
    For Each Area In rng.Areas
        Debug.Print Area.Cells(1, 1).Value & " has " & Area.Rows.Count - 1 & " rows of data."
    Next Area

End With

End Sub

Sub FFF()
    Dim rng, cell
    Set cell = Cells(Rows.Count, 1).End(xlUp) '//Start cell
    Do
        Set rng = cell.CurrentRegion
        MsgBox "The count of cells in table " & rng.Address & " is: " & rng.Cells.Count
        Set cell = rng(1).End(xlUp)
    Loop Until cell.Row = 1
End Sub