VBA：查找列中的最后一个元素

Question

我有3列数据和3个信息子集（由空白行分隔）。我想根据第三组项目中的最后一个值来确定下限和上限。第三组项目更改长度。在此示例中，length = 3可视化：

Spreadsheet View

目前，对于我的代码，我可以执行以下操作以返回双打列表的上限和下限值

curvesSheet = ActiveSheet.UsedRange
tlb(n) = curvesSheet(10, 1)
lRow = Cells(Rows.Count, 1).End(xlUp).row
tub(n) = curvesSheet(lrow, 1)

现在，当我试图让它返回12时，lRow返回1。我以为xlUp从工作表的底部移到了

?Rows.Count
 1048576 

按预期...所有建议都将得到充分理解。

编辑：请注意，图中的工作表已在代码的前面转换为Variant数组，因此我必须使用矩阵索引来访问值而不是单元格名称。