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

[AlexZZZ]

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

[VictorM]

Наверное так

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

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

у меня работает

[AlexZZZ]

Большое спасибо за подсказку!

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

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

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

[VictorM]

Ну эт кому как больше нравится
да и от условий зависит.
Главное, что работает.