excel - VBA，向上/向下填充行以与最后一行对齐

Question

我正在尝试删除行直到它遇到我的最后一行或填写行以与最后一行对齐。
有时我的工作表如下所示，我需要删除行以与我的最后一个行号对齐。:

但是有时我的工作表如下所示，我需要填写其他列:

有没有可以做到这一点的功能？我发现很难确定何时填满或填满。
谢谢

Answer 1

牢记使用 UsedRange 的众所周知的注意事项, 你可以试试

Dim lastRow As Long
With ActiveSheet ' <- change it to your actual sheet reference
    With .UsedRange
        lastRow = .Rows(.Rows.Count)
    End With
End With