Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как вставить разрыв строки перед "_2._"?
 
#1
01.06.2013 16:16:28
Добрый день, форумчане.
Подскажите, пожалуйста, как в выделенных ячейках в фрагментах текста "_2._" первый пробел заменить на абзац (а не на знак абзаца)?

Т.е., исходной таблице в каждой ячейке список из нескольких пунктов представляется в одну строку (без абзацев). Типа "1. ..... 2. ....... 3. ....... 4. ......"
Как из сделать, что бы в каждой ячейке перед "2._" вставился абзац (разрыв строки)?
Что бы в одной ячейке текст выглядел так:
1. .....
2. .......
3. ........
4. ....
Я пробовал заменой вставлять знак "¶", например, "2._" заменить на "¶2._". Оно и заменилось, но именно так, со знаком. А разрыв строки так и не появился, т.е. по прежнему пишется в одну строку, только добавился знак "¶".
А как повставлять "реальные" абзацы в выделенных ячейках?
 
 
 
#2
01.06.2013 16:34:13
Цитата
iam1968 пишет: ... Подскажите...
1. Не превращать XL в редактор текста. Или  - 1 мысль, 1 строка - в один обзац/ячейку.
2. Прикладывать реальный пример в реальных структуре и форматах.
3. Откуда и как появился в вашем XL знак "¶", или не XL у вас вовсе?!. ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#3
01.06.2013 16:45:18
1) Да я и не превращаю в редактор...
Просто уже есть такая таблица. А распечатать надо в удобном для восприятия виде (т.е. в данном случае не ст рокой, а списком).
2) Пример прилагаю.
3) Знак абзац "живёт" в Эксель во Вставка, Символы, Специальные знаки.
Изменено: iam1968 - 01.06.2013 16:54:59
 
 
 
#4
01.06.2013 17:04:09
Попробовал перебросить ячейки в Ворд, в нём повставлял абзацы заменой. Всё нормально.
А при вставке из Ворда в Эксель, каждая ячейка с абзацами разбивается на несколько ячеек, по абзацу в каждой. Всё ломается. Ёлы-палы...
 
 
 
#5
01.06.2013 17:17:07
В Excel это живет или СИМВОЛ(10), или Alt+Enter в ячейке.
 
 
 
#6
01.06.2013 17:18:42
Макрос для выделенных ячеек
Код
Public Sub InsNewLine()
    Static pReg As Object
    Dim Cell As Range
    If Not TypeOf Selection Is Range Then Exit Sub
    If pReg Is Nothing Then
        Set pReg = CreateObject("VBScript.RegExp")
        pReg.Global = True: pReg.Pattern = " (?=\d+\. )"
    End If
    For Each Cell In Selection
        Cell.Value = pReg.Replace(Cell.Value, vbLf)
    Next Cell
End Sub

Успехов
Изменено: anvg - 01.06.2013 17:22:57
 
 
 
#7
01.06.2013 17:59:05
Всем спасибо.
Выход такой.
Заменой проставляем в нужных для абзаца местах какой-то не встречающийся символ, например "%%".
Выделяем интересующие ячейки.
Включаем дополнительную клавиатуру (Num Lock). Заменить.
Найти "%%".
Становимся на Заменить на. Нажимаем и держим Alt. С дополнительной клавиатуры вводим "010" (при этом в строке "заменить на" ничего не отображается!!!). Отпускаем Alt. Заменить всё. С данным пунктом всё готово.
Повторяем процедуру для остальных пунктов, перед которыми надо повставлять абзацы.
Изменено: iam1968 - 01.06.2013 18:05:06
 
 
 
#8
01.06.2013 21:14:43
iam1968, то есть Андрей(anvg) зря для Вас старался?
Изменено: KuklP - 01.06.2013 21:14:58
Я сам - дурнее всякого примера! ...
 
 
 
#9
02.06.2013 06:44:18
Сергей, доброе утро.
Да не беспокойтесь, видимо ТС хочет решения только без использования макросов... А то он в них ничего не понимает  :o , только вот забыл об этом в вопросе упомянуть.
Изменено: anvg - 02.06.2013 06:48:03
 
 
 
Страницы: 1
Читают тему
Наверх