Truncate
Hi,
Am Mon, 16 Dec 2013 18:41:24 +0100 schrieb Claus Busch:
in B1 try:
=ROUNDDOWN(A1/10,2)
and copy down
if you want to do it in place with VBA then try:
Sub Test()
Dim LRow As Long
Dim rngC As Range
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range("A1:A" & LRow)
rngC = WorksheetFunction.RoundDown(rngC / 10, 2)
Next
End Sub
Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
|