Delete the last number if the number format is *.***

Hello everyone and happy new year.....


I have a problem that breaks my brain for a lot of days now.

I have this data on my excel file in "A" Column:

UD Maracena vs Guadix 27/12/2015 12:45
2.666
3.20
2.45
(+97) Atletico Sanluqueno CF vs Coria CF 27/12/2015 13:00
1.75
3.50
4.20
(+95) CD Ronda vs Atletico Mancha Real 27/12/2015 13:00
4.333
3.80
1.666
(+96) CD San Roque de Cadiz vs CD herena 27/12/2015 13:00
2.00
3.40
3.40

Before I convert my data with a big macro, I want to delete the last number of every cell that is in format "0.000" I want to make it like this: "0.00" and change it to "General" format and keep the dot "."

So:
1: Delete the last number of every cell that is "*.***" and make it "*.**"
2: Change the format of those cells to "General"
3: Keep the dot (because every time I change those cells to general format, I lose the dot)

I use excel 2013.
This is my test file: dot.xlsm

Please help me with that, thanks everyone and I wish the best for 2016...

Originally Posted by jindon

If you want to convert 2,666 or 2.666 to 2.66 then try

Sub test()
    Dim r As Range, temp
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\d+)[,.](\d{2})\d*"
        For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
            If .test(r.Text) Then
                temp = r.Text
                r.NumberFormat = "0.00"
                r.Value = .Replace(temp, "$1.$2")
            End If
        Next
    End With
End Sub

Thank you very much , it works, thanks.....