ikboy

try this:

1. Sub zz()
   
2. Dim a, rg As Object
   
3. Set rg = CreateObject("vbscript.regexp")
   
4. a = Range("a1:a" & [a1048576].End(3).Row).Value
   
5. rg.Pattern = "[^\d+\.]"
   
6. For i = 2 To UBound(a)
   
7.     a(i, 1) = CDbl(rg.Replace(a(i, 1), ""))
   
8. Next
   
9. [b1].Resize(i - 1, 1) = a
   
10. End Sub

½Æ»s¥N½X

1. Function z#(rng As Range)
   
2. Dim a, rg As Object
   
3. Set rg = CreateObject("vbscript.regexp")
   
4. a = rng.Value
   
5. With rg
   
6.     .Pattern = "[^\d+\.]"
   
7.     z = .Replace(a, "")
   
8. End With
   
9. End Function

½Æ»s¥N½X