Подскажите, как внутри ячейки столбец преобразовать в строку?

[spono]

Добрый день!
Есть столбец с ячейками, в каждой из которых существует несколько строк, через запятую расположенны строки одна на другой, образующие столбец внутри ячейки.

Помогите с макросом, чтобы столбец преоразовался в строчку внутри каждой ячейки.

Пример прикреплен к данной теме.

[Poltava]

А зачем вам макрос? используйте формулу =ПЕЧСИМВ() она удалит все непечатаемые символы

[spono]

А зачем вам макрос? используйте формулу =ПЕЧСИМВ() она удалит все непечатаемые символы

Большое Вам спасибо!!! Это то, что нужно.
Эта функция выстраивает все в одну строку!!!

[kuklp]

Код Выделить Развернуть

Sub www()
    Cells.Replace Chr(13), " ", 2
    Cells.Replace Chr(10), " ", 2
End Sub

[spono]

Код Выделить Развернуть

Sub www()
    Cells.Replace Chr(13), " ", 2
    Cells.Replace Chr(10), " ", 2
End Sub

Вам тоже спасибо, предложенный Вами маркос преобразует столбец в строчку внутри каждой ячейки.