Поиск последней строки с текстом с помощью цикла Do

Question

Прошу прощения за неопытность,

Я напишу функцию, которая возвращает последнюю строку, которая возвращает непустую строку в столбце 1, используя цикл do.

Answer 1

Если пустых строк нет, вы можете просто добавить что-то вроде этого:

Public Sub MySub()

    Dim wsTarget As Worksheet
    Set wsTarget = ActiveSheet

    Dim n As Integer
    n = 1

    Do While (wsTarget.Cells(n +1, 1).Value <> "")
        n = n + 1
    Loop

    n = n - 1

    'n now contains the line number of the last non-empty row.

End Sub

Редактировать : в этом примере, я полагаю, вы смотрите в первый столбеци что данные начинаются со строки 2. Если строк с данными нет, n будет равно 1.