как обнаружить перевод строки...

[Old_Man_nsk]

не получается обнаружить перевод строки в конце строки (записанный через chr(10) или Alt + Enter ), если нет его, до добавить, если больше одного, то оставить один, спасибо


'-------проверка на наличе chr(10)и добавление, если нет--------------------------
n_pp = Worksheets(nameListS).Range("O2").V alue 'последняя занятая строка
Application.ScreenUpdating = False
it = 6 'строка реальная
Do While it <= n_pp 'кол строк
str = Cells(it, 5).Value
str_1 = Right(str_1, 1)
If str_1 <> Chr(10) Then 'содерж строки
str = str & Chr(10)
Cells(it, 5).Value = str
End If '
it = it + 1
Loop

в str_1 = Right(str_1, 1) показывает ""

[Marchuk]

может быть ты так хотел
str_1 = Right(str, 1)

[Old_Man_nsk]

Сообщение от Marchuk

может быть ты так хотел
str_1 = Right(str, 1)

спасибо, глаз уже замылился...