range * constant

[linty]

Can one of you Excel experts tell me how to reduce all cells in a data
array by a factor of 10 (how to multiply all cells in a range by a
constant)?

 

[Frank Kabel]

Hi
- put 10 in an empty cell
- copy this cell
- select your numbers
- goto 'Edit - Paste Special' and choose the action 'Multiply' (or
'Divide')

 

[Tom Ogilvy]

put 10 in a blank cell.

Select that cell and copy it.

Select the cells to be reduced and do

Edit=>Pastespecial and select Values and Divide

if you mean you have an array like

varr = Array(1000, 10000, 5000, 2000)

you can do

Sub ABCD()
Dim varr as variant, i as long
varr = Array(1000, 10000, 5000, 2000)
For i = LBound(varr) To UBound(varr)
varr(i) = varr(i) / 10
Next
For i = LBound(varr) To UBound(varr)
Debug.Print i, varr(i)
Next
End Sub