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