[Yur-Mash]

Получите.
Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 08.06.2006 (Þðà)
'
' Ñî÷åòàíèå êëàâèø: Ctrl+m
'
ind_col = ActiveCell.Column
For i = 1 To 65536
dl = Len(Cells(i, ind_col))
zn = Cells(i, ind_col).Value
j = 1
Do While j <= dl
sim = Mid(zn, j, 1)
If (sim <> Val(sim)) Then zn = (Left(zn, (j - 1)) + Mid(zn, (j + 1), (dl - j))): j = j - 1
dl = Len(zn)
j = j + 1
Loop
Cells(i, ind_col).Value = zn
Next i

End Sub

проверял у меня но EXCEL XP работает