Сообщество Чайников

Вопрос

Как в Visual Basic'е для Excel'а выделить ячейку, следующую, после последней заполненной в заданном столбце? Т.е., например, на Листе1 заполнены ячейки с В3 по В42, надо выделить ячейку В43.

Ответ

Sub nextcell()
Sheets("Лист1").Select
i = 1
While Cells(i, 1).Value <> ""
i = i + 1
Wend
Range("A" + Trim(Str(i))).Select
End Sub

Из конференции Expert_FAQ

Range("A1").End(xlDown).Offset(1,0).Select

dedtolya