Страница 1 из 1

Удаление переноса строк в ячейках

Добавлено: 13 май 2008, 15:36
AlexZZZ
Добрый день, коллеги! Подскажите, пожалуйста, как найти на рабочем листе все переносы строк в ячейках (Alt+Enter) и удалить их? Заранее благодарен!

Re: Удаление переноса строк в ячейках

Добавлено: 13 май 2008, 16:01
VictorM
Наверное так

Код: Выделить всё

Sub заменить()
Worksheets(1).UsedRange.Replace _
What:=Chr(10), Replacement:="", LookAt:=xlPart
End Sub
у меня работает ;)

Re: Удаление переноса строк в ячейках

Добавлено: 13 май 2008, 16:44
AlexZZZ
Большое спасибо за подсказку!

У меня заработало так:

Код: Выделить всё

Cells.Replace What:=Chr(10), Replacement:=""

Re: Удаление переноса строк в ячейках

Добавлено: 13 май 2008, 16:47
VictorM
Ну эт кому как больше нравится ;)
да и от условий зависит.
Главное, что работает.