Как найти последнюю строку Листа?

[Stilet]

Сейчас побыстренькому нужно нагромоздить одну программулину. Даже времени нет чтоб яндекс погуглить.

Смысл части ее в том чтоб скидывать в XLS книгу отчет о некотором действии, на некоторый лист.
Так вот информацию нужно дописывать в конец листа. Вручную это делается переходом по CTRL+END клавише.

А как это сделать программно? Как на VBA определить какая строка последняя и получить ее номер или Range?

[analyst]

Сообщение от Stilet

А как это сделать программно?

ActiveCell.SpecialCells(xlLastCell).select
x=Activecell.row

[EducatedFool]

Sub test()
' определяем последнюю заполненную ячейку в столбце А
' и смещаемся на одну ячейку вниз, чтобы получить незаполненную ячейку
    Dim ra As Range
    Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
    ra = "текст"
End Sub

Есть нюансы: если все ячейки столбца уже заполнены (или заполнена последняя ячейка в столбце), либо в столбце нет ни одной заполненной ячейки, указанный способ вернёт не ту ячейку (к примеру, ячейку A2)

[Stilet]

Хм... Данке шон, господа.
Приму во внимание оба примера.

Есть нюансы:

Не страшно, особая точность сврху не важна, главное чтоб снизу дописывало, а пропущенная верхняя строка чепуха

[king13]

Сообщение от EducatedFool

Sub test()
' определяем последнюю заполненную ячейку в столбце А
' и смещаемся на одну ячейку вниз, чтобы получить незаполненную ячейку
    Dim ra As Range
    Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
    ra = "текст"
End Sub

Есть нюансы: если все ячейки столбца уже заполнены (или заполнена последняя ячейка в столбце), либо в столбце нет ни одной заполненной ячейки, указанный способ вернёт не ту ячейку (к примеру, ячейку A2)

Здавствуйте EducatedFool не подскажите как сделать чтобы в ту ячейку не писалось слово "текст", а ячейка была активной, как к примеру по Selection.End(xlDown).Select и перейти на следующую пустую строку.

[EducatedFool]

Сообщение от king13

Здавствуйте EducatedFool не подскажите как сделать чтобы в ту ячейку не писалось слово "текст", а ячейка была активной, как к примеру по Selection.End(xlDown).Select и перейти на следующую пустую строку.

Sub test()
   Range("A" & Rows.Count).End(xlUp).Offset(1).Select
End Sub

[king13]

Спасибо большое EducatedFool