Удаление пробелов внутри строки

[Maxx]

Добрый день!

В Excele имеются скопированные из другой программы числа,
но они отображены с пробелами и имеют формат "Общий".

Пример: ячейка А1 содержит 19 025,26
ячейка А2 содержит 198 955 645,45 и т.д.

Цикл сделать не проблема, но как удалить пробел(ы) внутри строки?

Функция Replace(значение ячеки, " ", "") не помогает

Итог: требуется получить числовые значения!

[IgorGO]

отметить диапазон, назначить формат "число" или "общий", выполнить "найти и заменить", найти пробелы, заменить на "ничего"

[Maxx]

IgorGO, конечно же я это умею и знаю. Дело в том, что таких столбцов около 10 и данные обновляются часто.

Поэтому

отметить диапазон, назначить формат "число" или "общий", выполнить "найти и заменить", найти пробелы, заменить на "ничего"

- очень муторно.

Надо с помощью макроса, который уже помимо этой функции, форматирует еще кучу всего.

Вот файлик:

[EducatedFool]

Работает медленно (обрабатывает лист за 2 секунды), но работает:

Sub замена()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Cells
        If InStr(1, cell.Text, Chr(160)) Then cell = Replace(cell, Chr(160), "")
    Next cell
End Sub

[SAS888]

Не раз сталкивался с проблемой символа [пробел].
Кроме кода символа = 160 (что редко встречается), в таблице ANSI есть еще и код символа = 32. Нужно бы контролировать оба.
А макрос можно немного упростить:

Sub замена2()
    Application.ScreenUpdating = False: ActiveSheet.UsedRange.Replace What:=" ", Replacement:=""
End Sub

[Maxx]

SAS888, Ваш код не работает, вернее работает, но ячейки, содержащие цифры, не обрабатывает.

EducatedFool, Ваш код работает, НО он к сожалению, делает тоже, что и код, записанный макрорекодером, т.е.

Примет: в ячейке I2 есть цифра 4 408,2041

после обработки она превращается в 44 082 041

а надо 4 408,2041 только в числовом формате

Что делать?

Вот файлик уже с Вашими кодами:

[EducatedFool]

Пробуем:

Sub замена()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Intersect(ActiveSheet.UsedRange, Range("C:C,E:E,G:G,I:I,K:K,N:N"))
        If InStr(1, cell.Text, Chr(160)) Then
            cell = Replace(Replace(cell, Chr(160), ""), ",", ".")
        End If
    Next cell
End Sub

[Maxx]

У-а-у! Все прекрасно работает!

Огромнейшее СПАСИБО!

[SAS888]

SAS888, Ваш код не работает, вернее работает, но ячейки, содержащие цифры, не обрабатывает.

Совершенно верно. Это как раз и есть разница в кодах символов пробела: 32 в тексте и 160 в числах. Обратите внимание, что код от EducatedFool работает с точностью до наоборот.

[sam00]

Dim s As String, s1 As String
Dim i As Integer
s = [a4].Value
For i = 1 To Len(s)
s1 = s1 & Mid(s, i, 1) & " "
Next
[a4].Value = s1

Этот макрос добавляет по пробелу между символами. А как сделать обратный, чтобы в ячейке A1 между символами убирался лишь один пробел? К примеру: Из "П р и в е т__к а к__д е л а" получить "Привет как дела" (где "__" - двойной пробел)