нашел код, но почему-то он отображает у меня $A$2
хотя таблица заполнена так:
№ Описание Комментарий
1 один первый комментарий
2 два второй комментарий
3 три третий комментарий
4 четыре четвертый комментарий
5 пять пятый комментарий
Но с другой стороны, я думаю, что это код работает только с заполненными строками, но в моем случае ячейка на пересечении последней строки и последнего столбца может быть пустой.
Как сделать так, чтобы выдавался адрес ячейки пересечения последний строки и последнего столбца?
хотя таблица заполнена так:
№ Описание Комментарий
1 один первый комментарий
2 два второй комментарий
3 три третий комментарий
4 четыре четвертый комментарий
5 пять пятый комментарий
Но с другой стороны, я думаю, что это код работает только с заполненными строками, но в моем случае ячейка на пересечении последней строки и последнего столбца может быть пустой.
Как сделать так, чтобы выдавался адрес ячейки пересечения последний строки и последнего столбца?
Код |
---|
Dim rF As Range Dim lLastRow As Long, lLastCol As Long 'ищем последнюю ячейку на листе, в которой хранится хоть какое-то значение Set rF = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, xlPrevious) If Not rF Is Nothing Then lLastRow = rF.Row 'последняя заполненная строка lLastCol = rF.Column 'последний заполненный столбец MsgBox rF.Address 'показываем сообщение с адресом последней ячейки Else 'если ничего не нашлось - значит лист пустой 'и можно назначить в качестве последних первую строку и столбец lLastRow = 1 lLastCol = 1 End If |