Как убрать пробелы в числах!!

[SAS888]

Где-то так:

Sub ConvRange()

    Dim x As Range, i As Integer, NewF As String, Code As Integer, Cell
    Set x = Application.InputBox("Укажите ячейку (диапазон)", Type:=8)
    
    For Each Cell In x
        For i = 1 To Len(Cell.Value)
            Code = Asc(Mid(Cell.Value, i, 1))
            If Code > 47 And Code < 59 Then NewF = NewF & Mid(Cell.Value, i, 1)
        Next
        Cell.Value = NewF: NewF = ""
    Next
    x.NumberFormat = "0"
    
End Sub

При запросе ячейки, можно просто выделить требуемый диапазон и нажать OK.

[Exo]

SAS888 снимаю шляпу, все как всегда работает безупречно

Спасибо!

[Exo]

хех, не все так хорошо обработка убирает минусы, что не допустимо

можно как-то исправить?

[SAS888]

Строку

If Code > 47 And Code < 59 Then NewF = NewF & Mid(Cell.Value, i, 1)

Замените на

If Code > 47 And Code < 59 Or Code = 45 Then NewF = NewF & Mid(Cell.Value, i, 1)

[nosferaty]

Подскажите плиз, ваш код убирает до кучи еще и запятые, какой код у запятой? на 44 почему то не реагирует и вычищает все кроме цифр....
расширить диапазон 43-59 запятые оставляет, но получаем ругань от экселя что число сохранено в текстовом формате, и опять приходится вручную преобразовывать каждую ячейку

[SAS888]

Так преобразуйте результат операций со строками в число:

Sub ConvRange()

    Dim x As Range, i As Integer, NewF As String, Code As Integer, Cell
    Set x = Application.InputBox("Укажите ячейку (диапазон)", Type:=8)
    On Error Resume Next
    For Each Cell In x
        For i = 1 To Len(Cell.Value)
            Code = Asc(Mid(Cell.Value, i, 1))
            If Code > 43 And Code < 59 Then NewF = NewF & Mid(Cell.Value, i, 1)
        Next
        Cell.Value = CDbl(NewF): NewF = ""
    Next
    
End Sub

[nosferaty]

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

Так преобразуйте результат операций со строками в число:

Спасибо
я просто не силен в VBA, а тут вот понадобилось

[vladtr]

Без VBA все довольно просто:
1. Копируем пробел из любой ячейки где есть он в числе
2. Выделяем диапазон ячеек в котором необходимо убрать эти пробелы
3. Используем поиск с заменой, где в качестве поиска вставляем скопированный пробел, а в заменить - ничего не ставим и делаем просто заменить все. И результат сразу же видим.