Как найти последнюю строку, содержащую данные в определенном столбце?

Question

Как найти последнюю строку, содержащую данные в определенном столбце и на определенном листе?

Answer 1

Sub test()
    MsgBox Worksheets("sheet_name").Range("A65536").End(xlUp).Row
End Sub

Это ищет значение в столбце A из-за "A65536".

Answer 2

Первая строка перемещает курсор к последней непустой строке в столбце. Вторая строка печатает эту строку столбцов.

Selection.End(xlDown).Select
MsgBox(ActiveCell.Row)

Answer 3

Function LastRow(rng As Range) As Long
    Dim iRowN As Long
    Dim iRowI As Long
    Dim iColN As Integer
    Dim iColI As Integer
    iRowN = 0
    iColN = rng.Columns.count
    For iColI = 1 To iColN
        iRowI = rng.Columns(iColI).Offset(65536 - rng.Row, 0).End(xlUp).Row
        If iRowI > iRowN Then iRowN = iRowI
    Next
    LastRow = iRowN
End Function