как можно из ячеек автоматически убрать знак “enter”

[RafaelMirak]

Здравствуйте,

Подскажите пожалуйста как можно из ячеек автоматически убрать знак “enter” а то ни как не получается использовать функцию “текст по столбцам” и вычленить контрагентов.


Заранее спасибо.

[SAS888]

Например, выполнить макрос:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 9 To Cells(Rows.Count, 2).End(xlUp).Row
        Cells(i, 2) = Application.Clean(Cells(i, 2))
    Next
End Sub

Пример во вложении.

[RafaelMirak]

СПАСИБО SAS888!!!

[sima]

народ помогите пожалуйста вот с чем данный макрос мне помог, только остался один нюанс )))

1. как сделать чтоб вместо этого знак был пробел или точка с запятой, а то текст получается сливается с тем что на вверху.

2. нужно чтоб этот макрос был всегда в экселе, а не так чтоб сначала открыть этот файл и потом уже тот который нужно.

За ранее спасибо. Вот образец в котором это надо осправить.

[DiemonStar]

Range("B:B").Replace What:=Chr(10), Replacement:="; ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

можно так сделать.

[sima]

Спасибо БОЛЬШОЕ.
Остался один вопрос как сделать чтоб это макрос был даже при создании нового документа ? или при открытии уже готового файла чтоб он туда подключался ?! это очень важно и нужно ! ! !

За ранее спасибо.

[kuklp]

"За ранее" в Вашем контексте пишется слитно. Поместите свой макрос в личную книгу макросов и будет Вам счастье.

[sima]

Понятно. Спасибо большое.

[ZORRO2005]

Без макросов:

[kuklp]

Сергей, вместо alt+010 можно ctrl+j.