Truncate
 

A B
1348.63 134.86
1174.14 117.41
1298.76 129.87
768.33 76.83
742.99 74.29
14.72 1.47
0.09 .00
26.03 2.60
26.28 2.62
26.70 2.67
3.66 .36
3.70 .37
0.68 .06
0.69 .06
186.62 18.66
374.43 37.44
394.16 39.41
402.12 40.21
403.57 40.35
417.91 41.79
322.45 32.24
328.36 32.83
334.73 33.47
341.26 34.12
27272.11 2727.21
50.79 5.07
147.12 14.71

Truncate
 

Hi,

Am Mon, 16 Dec 2013 09:29:48 -0800 (PST) schrieb GWC:

A B
1348.63 134.86
1174.14 117.41
1298.76 129.87
768.33 76.83
742.99 74.29
14.72 1.47
0.09 .00
26.03 2.60
26.28 2.62
26.70 2.67
3.66 .36
3.70 .37
0.68 .06
0.69 .06
186.62 18.66
374.43 37.44
394.16 39.41
402.12 40.21
403.57 40.35
417.91 41.79
322.45 32.24
328.36 32.83
334.73 33.47
341.26 34.12
27272.11 2727.21
50.79 5.07
147.12 14.71

in B1 try:
=ROUNDDOWN(A1/10,2)
and copy down


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

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