Преобразовать в цифры

[GLM]

Всем Привет! Как преобразовать эти цифры в нормальные(без пробелов). И чтобы можно было использовать математические формулы.

[Watcher_1]

С помощью макроса так

Sub TextBox1_Click()
    i = 1
    Do
        i = i + 1
        DoEvents
        If Range("A" & i) = "" Then Exit Do
        Range("B" & i) = Val(Replace(Range("A" & i), Chr(160), ""))
    Loop
End Sub

[Serge 007]

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;".";",");СИМВОЛ(160);)

[SAS888]

Ну, тогда еще вариант. Без формул и без циклов.

Sub Conv()
    Range([A2], Cells(Rows.Count, 1).End(xlUp)).Copy [B2]
    [B:B].Replace Chr(160), ""
End Sub

[Serge 007]

Сообщение от SAS888

Ну, тогда еще вариант. Без формул и без циклов.

Тогда можно и без макросов тоже обойтись
Ctrl+H
Найти: . (точка, скопированная из ячейки с "цифрами")
Заменить: , (запятая)
Заменить все
Найти: (пробел, скопированный из ячейки с "цифрами")
Заменить: (оставляем пусто)
Заменить все

[SAS888]

Тогда можно и без макросов тоже обойтись...

Конечно, вариантов много. Я за то, чтобы делать минимальное количество "телодвижений". А макрос можно запускать и по событию изменения в ячейках. Обратите внимание, что в предложенном мною варианте точка никак не обрабатывается и никак не мешает получению нужных значений.