убрать пробелы

[zetrix]

Faceless
Подскажите пожалуйста, как убрать пробелы в строчке Excel? Например:

шла саша по шоссе

а надо чтобы было

шласашапошоссе

Все написано в одной ячейке.

Noor
все очень просто....
----------------------------------------------------------------
Sub Замена()

ActiveCell.Select
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
---------------------------------------------------------------
добавляешь на панель кнопку и прописываешь в ней выполнение макрома (ЗАМЕНА). Работать будет в этом документе где создал.
Если нужно что бы работало во всех открываемых документах, то сохраняешь как (надстройку) и пихаешь в папку
C:\Program Files\Microsoft Office\Office\XLStart\

[Shavminator]

А почему вот это
Sub Замена()
ActiveCell.Select
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
неработает в offiсe 2007?
в offiсe 2003 работает отлично
может я что нибудь сделал не так?

[SAS888]

У меня в Excel 2007 Portable - работает нормально.
Если угодно, попробуйте так:

a = Split(Application.Trim(ActiveCell), " ")
    For Each x In a
        MyString = MyString & x
    Next
    ActiveCell = MyString

[IgorGO]

ПОДСТАВИТЬ(текст;стар_текст;нов_тек ст;номер_вхождения)

[Shavminator]

Получилось
Огромное всем спасибо

[Old_Man_nsk]

как убрать лишние переводы строки в ячейке, бывают по 2 -5 штук, в зависимости от пользователя, или просто любой символ из предварительно заготовленной таблицы

[SAS888]

Попробуйте выделить требуемый диапазон и выполнить макрос:

Sub Замена()

    For Each x In Array(Chr(10), Chr(13))
        Selection.Replace What:=x, Replacement:="", LookAt:=xlPart
    Next

End Sub

[Old_Man_nsk]

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

Попробуйте выделить требуемый диапазон и выполнить макрос:

Sub Замена()

    For Each x In Array(Chr(10), Chr(13))
        Selection.Replace What:=x, Replacement:="", LookAt:=xlPart
    Next

End Sub

спасибо, вроде понятно

Можно еще, оне выдают вот такое в ячейке, например: в 1 й строке 3 перевода (два лишних), далее 2 перевода (один лишний), могут и пробел вставить...

Омская гуманитарная академия


Адрес: Челюскинцев 4-я,*2а

Тел./факс: 28−47−42 и т.д.

[EducatedFool]

Попробуйте такой вариант:

Sub Замена()
    Dim cell As Range
    For Each cell In Selection.Cells
        While InStr(1, cell, " " & vbLf) > 0:  cell = Replace(cell, " " & vbLf, vbLf): Wend
        While InStr(1, cell, vbLf & " ") > 0:  cell = Replace(cell, vbLf & " ", vbLf): Wend
        While InStr(1, cell, vbLf & vbLf) > 0:  cell = Replace(cell, vbLf & vbLf, vbLf): Wend
    Next cell
End Sub

[Old_Man_nsk]

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

Попробуйте такой вариант:

Sub Замена()
    Dim cell As Range
    For Each cell In Selection.Cells
        While InStr(1, cell, " " & vbLf) > 0:  cell = Replace(cell, " " & vbLf, vbLf): Wend
        While InStr(1, cell, vbLf & " ") > 0:  cell = Replace(cell, vbLf & " ", vbLf): Wend
        While InStr(1, cell, vbLf & vbLf) > 0:  cell = Replace(cell, vbLf & vbLf, vbLf): Wend
    Next cell
End Sub

Спасибо, попробую