Sub test()
With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
addr = .Address(0, 0)
For i = 0 To 9: .Replace i, "": Next
.Value = Evaluate("IF(ISTEXT(" & addr & "),LEFT(" & addr & ",FIND(""§"",SUBSTITUTE(" & addr & ",RIGHT(TRIM(" & addr & "),1),""§"",LEN(" & addr & ")-LEN(SUBSTITUTE(" & addr & ",RIGHT(TRIM(" & addr & "),1),""""))),1))," & addr & ")")
End With
End Sub