Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 Как можно разнести текст по столбцам помещая точки к буквам?  [new]
Nameme
Member

Откуда:
Сообщений: 2
Приветствую Вас, уважаемые форумчане.

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

Пример: дер. Новая

Через ПСТР будет

д
е
р
.

Н
о
в
а
я

Как вывести «р.» в один столбец, а не на два?

Или к примеру Перер-ва разбить аналогично, только «р-« так же поместить в одну ячейку, а не в 2.

Пробовал через Если сравнивать, не получается, много проверок и в итоге не корректно как то.
Заранее благодарю за ответы.
21 авг 18, 16:14    [21649734]     Ответить | Цитировать Сообщить модератору
 Re: Как можно разнести текст по столбцам помещая точки к буквам?  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 19569
Сделай это пользовательской функцией.
21 авг 18, 16:21    [21649748]     Ответить | Цитировать Сообщить модератору
 Re: Как можно разнести текст по столбцам помещая точки к буквам?  [new]
Nameme
Member

Откуда:
Сообщений: 2
Akina,

без макросов никак?...
21 авг 18, 17:18    [21649816]     Ответить | Цитировать Сообщить модератору
 Re: Как можно разнести текст по столбцам помещая точки к буквам?  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 621
Боюсь, и макрос не поможет.... в VBA лезть надо.....
21 авг 18, 18:58    [21649890]     Ответить | Цитировать Сообщить модератору
 Re: Как можно разнести текст по столбцам помещая точки к буквам?  [new]
iMrTidy
Member

Откуда:
Сообщений: 773
Nameme,

Хоть бы пример нормальный выложили.
21 авг 18, 20:01    [21649947]     Ответить | Цитировать Сообщить модератору
 Re: Как можно разнести текст по столбцам помещая точки к буквам?  [new]
Казанский
Member

Откуда:
Сообщений: 1307
Nameme,
для первой буквы и тяните вправо. В слове должно быть не более одного символа ".";"-"

=ПСТР($A1;СТОЛБЕЦ(A1)+ИЛИ(ЕЧИСЛО(НАЙТИ({".";"-"};ЛЕВБ($A1;СТОЛБЕЦ(A1)))));1+ИЛИ(ПСТР($A1;СТОЛБЕЦ(B1);1)={".";"-"}))
21 авг 18, 22:22    [21650058]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить