如何抓取一个工作表中多个表的第一个表的最后一行？

Question

我正在尝试抓取表格中的最后一行。

工作表中有多个表格。

通常我可以设置一个变量来引用最后一行通过

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