Как в Excel на VBA добиться проверки на 2 переноса строки в конце значения ячейки?

Question

[freshlemon]

Подскажите пожалуйста, как сделать так, что бы текст в ячейке из любого из трёх вариантов:
"Текст"

"Текст
"

"Текст

"

Становился таким:
"Текст

"

Нужно что бы в конце значений ячеек было 2 переноса строки

Comments

[Akina]

Текст - всегда однострочный?
Если да - попробуй

cell.value = TRIM(REPLACE(cell.value, CHR(10), "")) & CHR(10) & CHR(10)

Ещё лучше WorksheetFunction.Trim, которая чистит кратные пробелы.

Обращаю внимание - та же формула НЕ сработает, если её использовать в пользовательской функции, переносы строки в значении функции будут обрезаны при присвоении через формулу, их надо добавить в самой формуле.

Answer 1

[Elvis]

https://stackoverflow.com/questions/10024402/how-t...
Думаю что вам нужно сделать рекурсию на определение последнего символа и удалять его пока не закончатся переносы строк. А когда закончатся - добавить два.

Answer 2

[Константин Цветков]

Добавить два, удалить то что, больше двух.

Comments

[freshlemon]

Спасибо, о таком подходе не подумал
Но не получается подступиться к самим переносам строки
char(10) пробовал, vbLf и vbNewLine тоже.
Проверку не получается реализовать.

[Константин Цветков]

freshlemon, Не надо проверять. Замените 3 переноса на 2 три раза для верности.