Set AllCells = Range("A1:A105")
Мне надо не конкретно, верхняя граница диапазона д.б.
последней ячейкой со значением...
Set AllCells = Range(Range("A1"),Cells.SpecialCells(xlLastCell))
Сейчас этот форум просматривают: Yandex-бот и гости: 66