Подскажите иной способ нахождения последней пустой ячейки!

[Maxx]

Я в программировании не силен, поэтому пишу довольно примитивные коды.

Например ячейки A1-A20 заполнены, для нахождения последней пустой ячеки A21 я написал следующий код:

Range("A1").Select
Do While Not ActiveCell.Value = ""
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop

А если занчений будет 50 000 или 100 000, сколько времени придется ждать для поиска

Может быть есть иной способ?

[SAS888]

Если нужно найти номер последней заполненной строки, например, в столбце "A", то лучше всего использовать

r = Cells(Rows.Count, "A").End(xlUp).Row

а если нужно найти вообще номер последней заполненной строки (не зависимо от номера столбца), то можно так:

r = Cells.SpecialCells(xlCellTypeLastCell).Row

И в первом и во втором случае, переменная "r" будет содержать номер требуемой строки.

[Maxx]

Действительно, очень простой код!

Но как теперь выбрать эту ячейку:

Range(r).Select естественно не работает :-(((

[SAS888]

Так можно сразу:

Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").Select

[Юнлинг]

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

Действительно, очень простой код!

Но как теперь выбрать эту ячейку:

Range(r).Select естественно не работает :-(((

Все указания в

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

Если нужно найти номер последней заполненной строки, например, в столбце "A", то лучше всего использовать

r = Cells(Rows.Count, "A").End(xlUp).Row

а если нужно найти вообще номер последней заполненной строки (не зависимо от номера столбца), то можно так:

r = Cells.SpecialCells(xlCellTypeLastCell).Row

И в первом и во втором случае, переменная "r" будет содержать номер требуемой строки.

читай внимательно и все станет понятно:

а если желаешь через range:
то
Range("a" & r+1).select

[SAS888]

А вообще,можно

Cells(Rows.Count, "A").End(xlUp).Select

а также использовать все доступные св-ва ячейки (.Activate; .Row; .Column; .Value и т.п.)

[Maxx]

Всем СПАСИБО! Отлично работает!
С наступающим новым годом!