如何在一张纸中抓取多个第一个表的最后一行？

Question

嗨，我正在尝试抓取表格中的最后一行。问题是，一张纸上有多个表格。 excel文件格式图片供参考：

通常我知道我可以设置一个变量来通过

引用最后一行

lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

但在这种情况下，通过该行，我最终抓住了下面最后一个表的最后一行。 （如第90行）

有什么办法可以获取第一个表的最后一行吗？ （在本例中为第 16 行）

Answer 1

根据空白的示例表格很难准确判断您需要什么。但是您可以尝试这个，假设第一个表的 B 列中的每个单元格将包含数据/不为空：

Sub Select_LastRow()

LastRowOfTable1 = Range("B3:B" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row - 1

Range("B" & LastRowOfTable1).Select

End Sub