Если Вам принципиально использовать VBA:
Код: Выделить всё
Selection.SpecialCells(xlCellTypeConstants).Select 'для чисел
или
Selection.SpecialCells(xlCellTypeFormulas).Select 'для формул
Модератор: Naeel Maqsudov
Код: Выделить всё
Selection.SpecialCells(xlCellTypeConstants).Select 'для чисел
или
Selection.SpecialCells(xlCellTypeFormulas).Select 'для формул