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

[Николя]

Попробуй вот это
=СЖПРОБЕЛЫ

[Furtivo]

SAS888, что же он не округляет их, если записать это число вручную. Там нет запятых, там нечего округлять, требуется только убрать пробелы. Проблема не решена. Если вы решите ее - выложите, пожалуйста, файл, чтобы я могла это увидеть.
зы. мне не нужно в дальнейшем ничего делать с этими числами (это база), пусть они будут в текстовом формате, но они должны быть. Пока же я нашла только один способ - все копировать в Word и там убирать пробелы (заменять их)

[Furtivo]

Николя, опишите подробнее, куда это записать?

[ZORRO2005]

Furtivo

мне не нужно в дальнейшем ничего делать с этими числами (это база), пусть они будут в текстовом формате, но они должны быть

=ПОДСТАВИТЬ(A1;" ";"")
http://www.programmersforum.ru/showp...54&postcount=8

[SAS888]

Если не помогает замена пробела на "пустоту", которую Вам предлагали уже на нашем форуме, то, скорее всего у Вас в строке не пробелы, а какие-то другие символы, которые требуется удалить. Попробуйте воспользоваться следующим:
Например, для ячейки "A1"

Sub ConvStr()

    Dim i As Integer, NewF As String, Code As Integer
    For i = 1 To Len([A1])
        Code = Asc(Mid([A1], i, 1))
        If Code > 47 And Code < 59 Then NewF = NewF & Mid([A1], i, 1)
    Next
    [A1] = NewF

End Sub

P.S. Чтобы после этого не производилось округление - формат ячейки должен быть текстовым.

[Николя]

Делаем формат текстовым,одно но, у меня отображат другое число,а не то что задано: 42306 840 5 0704 0061 680-это задано,42306840507040000000-это отобразилось.А еще можно попробывать Ctrl+f (найти и заменить)в параметрах задаем по столбцам,в найти-пробел,в заменить на-ничего не ставим.Выделяем тот столбец в котором это надо сделать.В ахиве тоже пара примеров.

[Николя]

да еще попробуйте задать точность как на экране

[Николя]

А вот ссылка на обсуждение даной проблемы
http://forum.msexcel.ru/empty-t413.0...;topicseen#new

[Николя]

Тут описано несколько вариантов решения

[Exo]

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

Если не помогает замена пробела на "пустоту", которую Вам предлагали уже на нашем форуме, то, скорее всего у Вас в строке не пробелы, а какие-то другие символы, которые требуется удалить. Попробуйте воспользоваться следующим:
Например, для ячейки "A1"

Sub ConvStr()

    Dim i As Integer, NewF As String, Code As Integer
    For i = 1 To Len([A1])
        Code = Asc(Mid([A1], i, 1))
        If Code > 47 And Code < 59 Then NewF = NewF & Mid([A1], i, 1)
    Next
    [A1] = NewF

End Sub

P.S. Чтобы после этого не производилось округление - формат ячейки должен быть текстовым.

а если нужно убрать пробелы в диапазоне? как это сделать?

интересно. что бы пользователь сам выбирал диапазон....

вот пример http://webfile.ru/2105823

З.Ы. кодсимвл выдает код 160 , хотя у обычного пробела 32. Видимо по этому не подходят решения которые смог найти на форуме.