Round a Range of Numbers in a Column

[Eric G]

Using VBA, how do I round a range of numbers in a column?

For example, I have a column of numbers in column A:

Row 1: 31.9
Row 2: 34.4
Row 3: 56.2
Row 4: 22.7

Where in column B they would appear rounded to the nearest whole number:

Row 1: 32
Row 2: 34
Row 3: 56
Row 4: 23

I imagine the answer involves a Looping statement and the Round function. If so or not, how would you solve what I am trying to accomplish here?

 

[Eric G]

Give this modified version of my code a try...

[table="width: 500"]
[tr]
	[td]Sub MyMacroR1C1notation()

    Dim lRow As Long
    
'   Find last row in Column A
    lRow = Cells(Rows.Count, "A").End(xlUp).Row

'   Put calculated rounded values back into the cells of Column A
    Range("A1:A" & lRow) = Evaluate("IF(R1C1:R" & lRow & "C1="""","""",ROUND(R1C1:R" & lRow & "C1,0))")

End Sub[/td]
[/tr]
[/table]

Works as advertised. Thanks, Rick.