Sub a()
Dim Plg As Range, c As Range, str$
With CreateObject("VBscript.RegExp")
.Global = True
.Pattern = "\d*(\.\d+)?"
Set Plg = ActiveSheet.Range([A1], [A65536].End(xlUp))
For Each c In Plg
str = .Execute(c.Text)(0)
c.Offset(, 1) = _
.Replace(c.Text, ""): c = str
Next c
End With
Set Plg = Nothing
End Sub