вторник, 19 января 2010 г.

Последняя ячейка в диапазоне.

В канонических учебниках по VBA, для Excel можно встретить пример получения последней ячейки вида:

Set LastCell = ActiveSheet.SpecialCells(xlLastCell)

В целом здесь все правильно, за исключением одного момента. Иногда, после вставки и очистки данных в конце листа, последняя ячейка оказывается пустой.
Тогда как на практике гораздо важнее получить последнюю ячейку в заполненном диапазоне. Используя свойство UsedRange это легко сделать.

Пример:
Set LastCell = ActiveSheet.UsedRange.SpecialCells(xlLastCell)

Комментариев нет:

Отправить комментарий