убрать лишнии пробелы

[мария2507]

В столбце А (n строк) введены символьные строки (предложения), отдельные слова отделяются друг от друга несколькими пробелами. В столбце В отразить предложения без лишних пробелов

[Serge 007]

СЖПРОБЕЛЫ

?

[мария2507]

надо модуль написать((

[The_Prist]

Sub Get_Correct_String()
dim li as long
for li = 1 to cells(rows.count,1).end(xlup).row
Cells(2,li) = Application.Trim(Cells(1,li))
next li
end sub

А может и такой вариант прокатит:

Sub Get_Correct_String_2()
Dim li As Long
With Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
.Offset(, 1).Value = Application.Trim(.Value)
End With
End Sub

[мария2507]

а можно что нибудь попроще???


Sub пробелы()
i = 2
While Cells(i, 2) <> Empty

ВОТ СЮДА НАДО ЧТО ТО НАПИСАТЬ


i = i + 1
Wend
End Sub





там что то вроде через Len. Если находим пробел и после него тоже пробел, тогда его удаляем.
ну или что то типа этого

[The_Prist]

Я так полагаю это задание от препода. Тогда зачем морочите людям головы? Здесь есть спец.раздел для студентов. И можно было сразу огласить условия Вашей задачи, а не выкладывать по крупицам информацию по исходным данным. Пишите ВСЕ УСЛОВИЯ СРАЗУ. Какие еще циклы Вы проходили? Какие функции? Т.к. можно и так сделать, но боюсь и это не устроит...

Sub пробелы()
i = 2
While Cells(i, 2) <> Empty
Cells(i, 2) = Replace(Cells(i, 1),"  "," ")
i = i + 1
Wend
End Sub

[мария2507]

информацию всю сразу дала!! просто Вы написали непонятными функциями!
это не работает((

а про отдельный раздел не знала, ща напишу тогда там....

[Dophin]

ахаха)))

все работает, это у Вас руки кривые.

[мария2507]

ИНТЕРЕСНО ПОЧЕМУ КРИВЫЕ????

я ввожу предложение с несколькими пробелами!!! а у меня как было, так все и осталось!!!!(я про последний модуль)

[Dophin]

во второй столбец? начиная со второй строки?))

пример приложите уже, а то Вы тут до завтра будете народ терзать