| Вопрос: Последняя заполненная ячейка в Excel | Добавлено: 20.02.08 00:17 |
Автор вопроса:  Zahar | Web-сайт: partnerka-ru.info
|
| Можно ли как-то программно в Excel сразу получить адрес последней заполненной ячейки в столбце (без пошагового просмотра содержимого всех ячеек в этом столбце). |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Pavel Вопросов: 0 Ответов: 36 |
Профиль | | #1 | Добавлено: 20.02.08 00:29 |
|
Можно
Последний заполненный ряд в столбце А iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Если же вам нужен именно адрес, то можно так MsgBox Cells(Rows.Count, 1).End(xlUp).Address(0, 0)
P.S. Так ради общего развития 'для определения последней строки в столбце A
iLastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row iLastRow& = Range("A65536"  .End(xlUp).Row
iLastRow& = Cells(65536, 1).End(xlUp).Row iLastRow& = Cells(65536, ActiveCell.Column).End(xlUp).Row iLastRow& = Cells(65536, "A" .End(xlUp).Row
MsgBox iLastRow& |
||
|
Номер ответа: 2 Автор ответа: Nytrogen Вопросов: 18 Ответов: 186 |
Профиль | | #2 | Добавлено: 22.02.08 21:15 |
|
А вот "ради общего развития" не будет работать в Office '07. Там-то количество строк побольше будет...
'запоминаем количество строк
Dim ROWSAMOUNT As Long ROWSAMOUNT = Application.Rows.Count 'в дальнейшем коде вместо 65536 юзаем ROWSAMOUNT |
||
Страница: 1 |