Sub DelThousandValue()
Dim MyRange As Range
Dim MyCell As Range

Set MyRange = Selection

For Each MyCell In MyRange

MyCell.Formula = MyCell.Value / 1000

Next MyCell

End Sub

 

Реклама