Rounding large data range:

[panyagak]

I have a large worksheet full of long numerical
values (e.g 5.6467756) after removing formulas via (Copy+Paste Special+Values) which ALL need to be
rounded to 2 d.p., say 5.65. I only need 5.65 in the cell after the operation.

A way round to apply
rounding to a
whole range at once?

 

[FormR]

Hi, couldn't you apply the ROUND() function to your existing formulas before copying and pasting as values?

If not, you could give this a try, it is based on the currently selected cells and will convert any formulas in that range to values.

Sub RoundSelection()
Dim a As Range
For Each a In Selection.Areas
    a.Value = Evaluate(Replace("IF(ISNUMBER(@),ROUND(@,2),""'""&@)", "@", a.Address))
Next a
End Sub