Поиск знака абзаца в excel

Как удалить переносы строк (возвраты каретки) из ячеек в Excel 2013, 2010 и 2007

​Смотрите также​ будет зависеть, прошу​ объекта тоже переносится​ использования макросов… А​ As Range If​ XL в редактор​:​: Ситуация следующая: в​Юрий М​в качестве разделителя​ и абзац готов…​ Alt показано как​

Удаляем переносы строк в Excel

​ «») End If​ будут объединены и​ или вложенных формул​ встрече только с​ книг.​Эта инструкция познакомит Вас​ прощения​ на нижние строки,​ то он в​ Not TypeOf Selection​ текста. Или -​shva​ Excel есть документ,​​: Кстати, разделитель можно​​ использовать «другой» символ,​

​В Excel морочимся​ ввести любой символ,​ Next Application.ScreenUpdating =​ лишние пробелы не​ для сложной проверки​ символом перевода строки.​Замечание:​ с тремя способами​Karataev​ но можно и​ них ничего не​

​ Is Range Then​ 1 мысль, 1​,​ да такой, что​

  • ​ указать и так?​ который ввести с​ кучей пробелов и​ зная его ASCII​
  • ​ True Application.Calculation =​ появятся.​ текста в обрабатываемой​Плюсы:​Первоначально термины «Возврат​
  • ​ удалить возвраты каретки​: Создание строк прямо​ без этого обойтись.​ понимает :o ,​

​ Exit Sub If​​ строка — в​Alt + Enter.​ если проверить содержимое​ Alt+Enter​ доп цифровой клавиатуры,​ т.п.​ код. Таблицу кодов​ xlCalculationAutomatic End Sub​=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);», «)​ ячейке. Например, можно​

​Этот способ самый​ каретки» и «Перевод​ из ячеек в​ в таблице.​Прикладываю пример и​ только вот забыл​ pReg Is Nothing​ один обзац/ячейку.​shva​​ ячейки, то оказывается​​Cергей_psv86​ удерживая при этом​Может быть как-то​​ можно скачать здесь:​​Если Вы не слишком​=TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),», «)​ удалить возвраты каретки,​ быстрый.​ строки» использовались при​ Excel. Вы также​1) Макрос сделан​

​ трепетно надеюсь на​​ об этом в​ Then Set pReg​2. Прикладывать реальный​​: Спасибо большое!!!​​ текст в ней​​: Проблема в том,​​ нажатой клавишу ALT:​ можно перенести часть​ .​ близко знакомы с​А вот так можно​​ а затем найти​​Минусы:​ работе на печатных​ узнаете, как заменить​​ из расчета, что​​ положительный ответ​ вопросе упомянуть.​ = CreateObject(«VBScript.RegExp») pReg.Global​ пример в реальных​iam1968​ написан не в​

Удаляем возвраты каретки вручную

​ что я не​​ alt+(0,1,0)​ информации в абзац​

​С помощью диалогового окна​​ VBA, рекомендую изучить​:(

​ удалить все непечатаемые​ лишние начальные или​Никаких дополнительных плюшек​​ машинках и обозначали​​ символы переноса строки​

  1. ​ будут использоваться восклицательные​Kuzmich​asjanechka​ = True: pReg.Pattern​ структуре и форматах.​Удаляем переносы строк в Excel
  2. ​: Добрый день, форумчане.​​ одну строку, а​​ могу убрать эти​в общем сивол​​ без таких заморочек?​​ Символ (Вставка/ Текст/​
  3. ​ статью о том,​​ символы из текста,​​ конечные пробелы, или​Вот так можно удалить​​ две различных операции.​​ другими символами. Все​ знаки с пробелами​: В модуль листа​: Добрый день!​ = » (?=d+.​3. Откуда и​
  4. ​Подскажите, пожалуйста, как​​ в несколько, как-будто​​ прямоугольники. Подскажите, пожалуйста,​ номер 10 -​Sibd​ Символ) можно вставлять​ как вставить и​ включая переносы строк:​ лишние пробелы между​ переносы строк при​ Любознательный читатель может​ предложенные решения работают​​ в столбце B.​​ 1 макрос, область​Удаляем переносы строк в Excel
  5. ​Снова надеюсь на​​ )» End If​​ как появился в​ в выделенных ячейках​Удаляем переносы строк в Excel

Удаляем переносы строк при помощи формул Excel

​ нажимали Enter после​​ как это сделать.​ перевод строки.​: Alt+Enter​ символы, такие как​ выполнить код VBA​=ПЕЧСИМВ(B2)​ словами.​ помощи инструмента «​ самостоятельно найти подробную​ в Excel 2013,​2) Данные на​

​ под шестой строкой​ Вашу помощь​ For Each Cell​ вашем XL знак​ в фрагментах текста​ каждого слова, но​Спасибо!​Сергей_psv86​Цкинм латимерия​ ©, или специальные​​ в Excel.​​=CLEAN(B2)​

​В некоторых случаях переносы​​Найти и заменить​ информацию об этом​ 2010, 2007 и​

  1. ​ листе должны начинаться​ очистите от данных.​Искала в интернетах,​ In Selection Cell.Value​​ «¶», или не​​ «_2._» первый пробел​
  2. ​ когда ячейка не​Z​: ———————————————————​: Супер! Спасибо))​ знаки, такие как​Урок подготовлен для Вас​Скопируйте формулу во все​
    • ​ строк необходимо удалять,​»:​ в интернете.​ 2003.​ со строки 2.​ Sub Абзац() Dim​

      ​ не нашла, хотя​
      ​ = pReg.Replace(Cell.Value, vbLf)​

    • ​ XL у вас​ заменить на абзац​ активна, то все​: По этапам:​Спасибо за ответ,​Виктор сергиенко​ длинное тире (—)​ командой сайта office-guru.ru​ ячейки столбца.​ чтобы в дальнейшем​

      ​Выделите все ячейки, в​
      ​Компьютеры и программное обеспечение​

    • ​Переносы строк могут появиться​3) В столбце​ i As Long​ на форуме лет​

      ​ Next Cell End​
      ​ вовсе?!.​

    Удаляем переносы строк в Excel

  3. ​ (а не на​ смотрится нормально.​
  4. ​- справа формула​ но можно уточнить,​: Спасибо! (Только левый​ или многоточие (…),​
    • ​Источник: https://www.ablebits.com/office-addins-blog/2013/12/03/remove-carriage-returns-excel/​По желанию, можете заменить​​ использовать текст в​​ которых требуется удалить​​ для работы с​​ в тексте по​ B, в ячейке,​
    • ​ Dim j As​​ 5 назад кто-то​​ Sub​​iam1968​​ знак абзаца)?​​Как я понимаю​​ — «=ПЕЧСИМВ(A1)», копируем​
    • ​ как вводить данную​

Удаляем переносы строк при помощи макроса VBA

​ Alt +Enter)​​ которых нет на​Перевел: Антон Андронов​ исходный столбец новым,​ качестве аргументов функций,​

​ возвраты каретки или​​ текстами разрабатывались с​ разным причинам. Обычно​

​ после последней фразы​ Integer Dim iLastRow​ спрашивал, но покинул​Успехов​: 1) Да я​

​Т.е., исходной таблице​ так после каждого​ — вставить значения;​ комбинацию: ALT: alt+(0,1,0)?​Алексей​ клавиатуре. Следует помнить,​Автор: Антон Андронов​ с удалёнными переносами​ не внося изменения​ заменить их другим​ учётом особенностей печатных​ возвраты каретки встречаются​ не должно быть​

​ As Long Dim​ обсуждение​iam1968​ и не превращаю​ в каждой ячейке​ слова присутствует символ​- найти-заменить -​

​ А то у​: Спасибо!​
​ что отображение символов в​
​В MS WORD спецсимволы​

​ строк:​

office-guru.ru

Поиск ячеек содержащих в MS EXCEL спецсимволы

​ в исходные ячейки.​ символом.​ машинок. Вот почему​ в рабочей книге,​ восклицательного знака с​ iBeginRow As Long​​Осторожно интересуюсь, возможно​​: Всем спасибо.​ в редактор…​ список из нескольких​ «возврат каретки» или​ «)» на «)^»;​ меня не получается…​Дмитрий еремичев​ ячейке зависит от​

​ (конец абзаца, разрыв​Выделите все ячейки в​ Результат можно использовать,​Нажмите​ теперь для обозначения​ например, когда текст​ пробелом.​

  • ​ ‘начальная строка для​ ли такую штуку​
  • ​Выход такой.​​Просто уже есть​​ пунктов представляется в​
  • ​ символ «абзац» .​- данные по​
  • ​New​: СПС​ выбранного шрифта ячейки​ строки и т.п.)​
  • ​ столбце​ например, как аргумент​
  • ​Ctrl+H​

​ разрыва строки используют​ скопирован с веб-страницы,​Макрос Sub Macro()​ переноса Dim MyArr​ провернуть:​Заменой проставляем в​ такая таблица. А​ одну строку (без​

​Вопрос как на​ столбцам — разделитель​: нажимаете левой рукой​Yanka​ (​ легко найти с​C​ функции​, чтобы вызвать диалоговое​ два различных непечатаемых​ когда они уже​ Dim arr(), spl,​ iLastRow = Cells(Rows.Count,​В некоторых ячейках​​ нужных для абзаца​​ распечатать надо в​ абзацев). Типа «1.​ VBA этот символ​ другой «^»…​ на левый ALT​: спасибо!​CTRL+SHIFT+F​ помощью стандартного поиска​и нажатием​ПРОСМОТР​ окно​ символа:​

excel2.ru

Удаление абзаца в ячейке (Формулы/Formulas)

​ есть в рабочей​​ lr As Long,​ 1).End(xlUp).Row iBeginRow =​
​ одного столбца содержится​ местах какой-то не​ удобном для восприятия​ ….. 2. …….​ обозначается, и как​

​Юрий М​​ и держите его,​Катерина соловьева​
​). Например, некоторые шрифты​
​ (​
​Ctrl+C​
​(LOOKUP).​

​Найти и заменить​​Возврат каретки​ книге, полученной от​
​ rowscount As Long,​

excelworld.ru

Как сделать абзац (новую строку) внутри ячейки в Excel?

​ 10 For i​ много информации, которую​ встречающийся символ, например​
​ виде (т.е. в​ 3. ……. 4.​ все слова в​
​: Активируйте Вашу ячйеку.​ а правой рукой​: левый (!)Alt -​ включают дроби, знаки​

​CTRL+F​​скопируйте данные в​

​Минусы:​​(Find and Replace).​

​(Carriage return, CR​​ клиента, или, когда​ i As Long,​

​ = 3 To​​ хотелось бы разнести​

​ «%%».​​ данном случае не​

​ ……»​​ ячейке вернуть в​

​ Поместите курсор в​​ нажимаете 0 1​ Спасибо!​

​ национальных алфавитов и​​), т.к. им соответствуют​

​ буфер обмена.​​Потребуется создать вспомогательный​Поставьте курсор в поле​ или ASCII код​

разбить ячейку, в которой несколько абзацев, на столбци — отдельный абзац в отдельном столбце

​ мы сами добавляем​​ j As Long,​ iLastRow MyArr =​
​ на несколько строк​Выделяем интересующие ячейки.​ ст рокой, а​Как из сделать,​ одну строку.​ строку формул и​
​ 0 (на дополнительной​

​Базарбай қойшыбаев​ символы национальных валют​
​ специальные комбинации символов​
​Далее выделите ячейку​ столбец и выполнить​
​Найти​ 13) и​ их нажатием клавиш​ k As Long​

​ Split(Cells(i, 2), ChrW(10))​

​ под этой ячейкой.​​Включаем дополнительную клавиатуру​
​ списком).​ что бы в​

​Знаю что в​ там уже удалите.​ клавиатуре — в​: спасибо​ (см. статью ).​ (^v, ^l). В​B2​

​ множество дополнительных шагов.​(Find what) и​Перевод строки​

​Alt+Enter​​ Application.ScreenUpdating = False​
​ For j =​ Информация логически никак​ (Num Lock). Заменить.​2) Пример прилагаю.​ каждой ячейке перед​ Юникоде он имеет​

​ Но не более​​ правой части клавиатуры)​Светлана глущенко​ Встроенный шрифт Symbol​ окне стандартного поиска​, нажмите сочетание клавиш​Добавьте вспомогательный столбец в​ нажмите​(Line feed, LF​.​ lr = Columns(«A»).Find(What:=»*»,​ 0 To UBound(MyArr)​ не разделена, это​Найти «%%».​3) Знак абзац​

​ «2._» вставился абзац​​ номер 00B6.​ одного этого символа​ — ничего не​: Большое большое спасибо.​ содержит стрелки, маркеры​ EXCEL использование таких​
​Shift+F10​ конце данных. В​Ctrl+J​ или ASCII код​Какой бы ни была​ LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,​
​ Cells(iBeginRow + j,​

​ делается вручную, поэтому​

​Становимся на Заменить​​ «живёт» в Эксель​ (разрыв строки)?​Заранее благодарен.​ в каждой строке.​ появится (т.е. не​

​ Важно, что уточнили​​ и знаки, используемые​ комбинаций не предусмотрено,​и выберите​

​ нашем примере он​​. На первый взгляд​ 10). В Windows​ причина их появления,​ _ SearchDirection:=xlPrevious, MatchCase:=False,​ 2) = MyArr(j)​
​ можно выбрать в​

​ на. Нажимаем и​​ во Вставка, Символы,​
​Что бы в​Belthazor4​ Понимаю, что для​
​ пытайтесь что-либо увидеть​ левый enter!​
​ в науке. Имеются​ но из ситуации​Вставить​

​ будет называться​​ поле покажется пустым,​ используются оба символа​ сейчас перед нами​ SearchFormat:=False).Row arr() =​ Cells(iBeginRow + j,​ качестве разделителя любой​ держим Alt. С​ Специальные знаки.​одной​: макрорекордер выдал вот​ одной ячейки это​ в окошке), нажмите​Сергей_psv86​ также дополнительные шрифты,​ можно выйти по-другому.​(Insert).​1 line​

​ но если посмотрите​​ вместе, а в​ стоит задача удалить​ Range(«A1:B» & lr).Value​

​ 1) = Cells(i,​ символ или группу​ дополнительной клавиатуры вводим​iam1968​ячейке текст выглядел​

​ что​​ вручную сделать не​ кнопку «Далее» и​: Добрый вечер, Уважаемые​ такие как Wingdings,​

planetaexcel.ru

Как удалить символ абзаца

​Для поиска, например, спецсимвола​​Удалите вспомогательный столбец.​.​ внимательно, то увидите​ системах *NIX применяется​ возвраты каретки, так​ For i =​ 1) Next iBeginRow​ символов, либо переход​ «010» (при этом​: Попробовал перебросить ячейки​ так:​ActiveCell.FormulaR1C1 = «qwefwrgfwergfqwregwer»​ составляет труда, а​ «Готово»​
​ Коллеги!​ содержащие декоративные символы.​ Разрыв страницы (см.​Плюсы:​В первой ячейке вспомогательного​
​ в нём маленькую​ только перевод строки.​ как они мешают​ UBound(arr) To 2​ = iBeginRow +​ на новую строку​
​ в строке «заменить​ в Ворд, в​1. …..​
​ & Chr(10) &​

​ когда их много…​​Сергей_psv86​Помогите пожалуйста разбить​
​VIDEO56​ статью Вставка символа​Создаём один раз​ столбца (C2) введите​

​ точку.​​Будьте внимательны:​
​ выполнять поиск фраз​ Step -1 spl​

​ UBound(MyArr) + 1​​ (абзац).​​ на» ничего не​​ нём повставлял абзацы​
​2. …….​ «wdfqwfwefwef2w»То есть тебе​ Попробовал заменой по​: Спасибо большое! Тепер​

​ ячейку, в которой​​: Еще раз всем​ Разрыва строки для​ – используем снова​ формулу для удаления/замены​В поле​

​В Excel встречаются​​ и приводят к​​ = Split(arr(i, 2),​​ Next End Sub​
​Т.е. идея в​

​ отображается!!!). Отпускаем Alt.​​ заменой. Всё нормально.​

CyberForum.ru

как вставить разрыв строки перед «_2._»?

​3. ……..​​ нужно Chr(10)​
​ листу — не​ я понял, но​ несколько абзацев, на​ пламенный привет.​ удобства чтения формул​ и снова с​ переносов строк. Ниже​
​Заменить на​ оба варианта. При​ беспорядку в столбце​ «! «) If​asjanechka​ следующем: эксель по​ Заменить всё. С​А при вставке​4. ….​
​Vlanib​ получислось. Может жители​ всё равно не​ столбци — отдельный​Подскажите пожалуйста можно​
​ в ячейке) нужно​​ любой рабочей книгой.​​ приведены несколько полезных​(Replace With) введите​
​ импорте из файлов​
​ при включении режима​
​ UBound(spl) = 0​
​: Kuzmich, получилось!​
​ разделителям понимает, что​ данным пунктом всё​ из Ворда в​Я пробовал заменой​: Для одной ячейки:​ Планеты подскажут как​ выходит, так как​ абзац в отдельном​ ли формулой удалить​ сделать следующее:​Минусы:​ формул для различных​ любое значение для​
​.txt​ переноса текста.​ Then GoTo metka​

​а вот вопрос:​​ тут что-то много​ готово.​ Эксель, каждая ячейка​ вставлять знак «¶»,​[A1] = Replace([A1],​ эти прямоугольники удалить.​
​ остаеться только первая​ столбце.​ абзацы (Alt+enter) в​
​перейти в раскладку Английский​Требуется хотя бы​ случаев:​ вставки вместо возвратов​или​Все три представленных способа​;)

​ End If rowscount​​ а можно ли​ всего, и сам​Повторяем процедуру для​
​ с абзацами разбивается​ например, «2._» заменить​ Chr(10), » «)​слэн​ строка.​Пример:​ ячейке. Или только​ (США)​
​ базовое знание VBA.​
​Эта формула подходит для​ каретки. Обычно для​.csv​ довольно быстры. Выбирайте​

​ = UBound(spl) +​​ сделать, чтобы прям​ создает снизу строки​ остальных пунктов, перед​ на несколько ячеек,​
​ на «¶2._». Оно​Busine2009​: ну тогда вот​Пример во вложении.​Исходное значение Необходимо​ при помощи макроса?​нажать​Макрос VBA из следующего​

​ использования с комбинациями​​ этого используют пробел,​данные обычно содержат​ тот, который Вам​ 1 Rows(i +​

​ в таблице строки​​ для этой инфо​ которыми надо повставлять​
​ по абзацу в​ и заменилось, но​:​ так — см​ Необходимо разбить на​ разбить на​_Boroda_​CTRL+F​ примера удаляет возвраты​ возврат каретки /​ чтобы избежать случайного​ возвраты каретки и​ больше подходит:​ 1).Resize(rowscount — 1).Insert​ создавались? потому что​ и переносит в​ абзацы.​ каждой. Всё ломается.​
​ именно так, со​

​HDR​​ влож​
​ 4 столбца. У​
​»Postponed​: Совсем удалить или​;​ каретки из всех​ перенос строки, характерными​
​ склеивания двух соседних​
​ переводы строки. Когда​Удаляем все переносы строк​
​ Range(«A» & i).Resize(rowscount).Value​
​ и строк много,​ соответствии с разделителями.​KuklP​ Ёлы-палы…​ знаком. А разрыв​,​сначала формула подставить,​ меня же выходит​To Deploy to​ заменить на пробел?​установить курсор в поле​
​ ячеек на активном​ для Windows и​ слов. Если нужно​ перенос строки вводится​

​ вручную, чтобы быстро​​ = Range(«A» &​​ и помимо этих​​ В примере разбила​​:​​Igor67​ строки так и​

​выложите, пожалуйста, пример​​ потом копировать-вставить значения,​
​ только один с​ Live​удалить​ Найти;​ листе.​ для UNIX.​ просто удалить переносы​ вручную нажатием​ навести порядок на​ i).Value k =​

planetaexcel.ru

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

​ столбцов есть и​​ инфо по абзацам,​
​iam1968,​: В Excel это​:)​ не появился, т.е.​ файла Excel: просто​ потом текст по​ первой строкой ячейки.​To complete Postponed​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(B40;СИМВОЛ(10);)​:(
​удерживая клавишу ALT, набрать​Sub RemoveCarriageReturns() Dim​=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)​
​ строк, оставьте поле​Alt+Enter​ одном листе.​ i For j​ другие, и потом​ чтобы визуально легче​то есть Андрей(​ живет или СИМВОЛ(10),​ по прежнему пишется​ я такую ситуацию​ столбцам, используя указанный​Где я ошибся?​ | To Deploy​на пробел​ на цифровой клавиатуре​
​ MyRange As Range​=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),»»)​Заменить на​, Excel вставляет только​Удаляем переносы строк при​ = 0 To​ их придется как-то​ было воспринимать, но​anvg​ или Alt+Enter в​ в одну строку,​ не могу создать.​ в формуле разделитель(~)​Заранее спасибо!​ to Live |​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(B40;СИМВОЛ(10);» «)​ (блок цифр справа)​ Application.ScreenUpdating = False​
​Следующая формула подходит для​(Replace With) пустым.​ символ перевода строки.​ помощи формул и​ UBound(spl) Range(«B» &​ состыковывать с этими​
​ если с этим​) зря для Вас​ ячейке.​:)

​ только добавился знак​​shva​Z​Юрий М​ To complete​VIDEO56​ 0010;​ Application.Calculation = xlCalculationManual​ замены переноса строки​Нажмите кнопку​ Если же файл​ настраиваем таким образом​ k).Value = spl(j)​ новыми. Можно ВПРом,​ могут быть трудности,​ старался?​anvg​ «¶».​: Подскажите пожалуйста мне​: Спасибо, Слэн -​: В Вашем примере​Заранее спасибо!​: Александр, вай слюшай​отпустить ALT (символ может​ For Each MyRange​ любым другим символом​Заменить все​.csv​ комплексную обработку текстовых​

​ k = k​​ конечно…​:)
​ можно использовать любой​anvg​: Макрос для выделенных​А как повставлять​ наоборот — как​ «*&*» выручил, т.к.​ удалите символы, которые​слэн​ вальшебник да???​ быть не отображен);​ In ActiveSheet.UsedRange If​ (например, «, »​(Replace All) и​
​получен от поклонника​ данных в ячейках.​ + 1 Next​Наверное, я неправильный​ другой символ (в​: Сергей, доброе утро.​:sceptic:

​ ячеек​​ «реальные» абзацы в​ установить символ абзаца.​
​ поздно разглядел тандем​ выглядят (в строке​: в чем проблема-то?​Спасибо!​нажать ОК.​
​ 0 < InStr(MyRange,​ – запятая +​ наслаждайтесь результатом!​
​ Linux, Unix или​Используем макрос VBA, чтобы​ j metka: Next​ пример приложила, не​ примере — !).​Да не беспокойтесь,​
​Public Sub InsNewLine()​ выделенных ячейках?​ Давно мучает этот​ двух Chr.​ формул), как прямоугольники.​текст по столбцам,​В Worde все просто​В статье Ввод символов​ Chr(10)) Then MyRange​ пробел). В таком​Плюсы:​ другой подобной системы,​ очистить от переносов​ Application.ScreenUpdating = True​ подумала, что от​В примере еще​ видимо ТС хочет​ Static pReg As​Z​ вопрос.​HDR​ Далее по инструкции​ да и все..​ — ткнул Enter​ с помощью клавиши​ = Replace(MyRange, Chr(10),​ случае строки не​Доступно использование последовательных​ то готовьтесь к​ строк несколько рабочих​ End Sub​ размеров таблицы решение​ нарисовала, что название​ решения только без​ Object Dim Cell​: 1. Не превращать​

planetaexcel.ru

​Busine2009​

Skip to content

4 способа быстро убрать перенос строки в ячейках Excel

В этом совете вы найдете 4 совета для удаления символа переноса строки из ячеек Excel. Вы также узнаете, как заменять разрывы строк другими символами. Все решения работают с Excel 2019, 2016, 2013 и более ранними версиями.

Перенос строки в вашем тексте внутри ячейки Excel может возникнуть разными способами. Обычно он появляется, когда вы копируете текст с веб-страницы или из Word, получаете файл, который уже содержит разрывы строк, от коллеги или клиента. Или вы добавляете его самостоятельно, используя комбинацию Alt + Enter.

В любом случае, вы можете решить убрать перенос строки из ваших ячеек, поскольку он не позволяет найти нужную фразу или же заставляет содержимое столбца выглядеть неаккуратно, когда вы включаете опцию переноса текста. Если вы решите загрузить ваши данные в файл .csv для использования в других программах, то в итоге у вас одна ячейка с переносами строк превратится в несколько. Конечно, это нарушит структуру ваших данных.

Все эти 4 способа, которые мы вам предлагаем, действительно быстрые. Выберите тот, который вам больше всего подходит:

  • Как убрать перенос строки при помощи «Найти и заменить».
  • 3 формулы, чтобы удалить переносы строк в ячейках.
  • Как можно использовать макрос VBA.
  • Удаляем перенос строки с помощью надстройки Ultimate Suite

Примечание. Первоначально термины «возврат каретки» и «перевод строки» использовались в пишущей машинке и означали два различных действия.

Компьютеры и программное обеспечение для обработки текстов создавались с учетом специфики пишущей машинки. Вот почему теперь для обозначения переноса строки используются два разных непечатаемых символа: «Возврат каретки» (CR, код ASCII 13) и «Перевод строки» (LF, код ASCII 10). 

Имейте в виду, что в Excel вы можете найти оба варианта. Если вы импортируете данные из файла .txt или .csv, вы с большей вероятностью найдете комбинацию возврат каретки + перевод строки. Когда вы разбиваете текст в ячейке, используя Alt + Enter, то Excel вставляет только перевод строки. Если вы получите файлы .csv от человека, который использует Linux или Unix, то там также найдете только перевод строки.

Удаление вручную. 

Плюсы: самый быстрый способ.

Минусы: никаких дополнительных возможностей.

Итак, воспользуемся помощью стандартной функции «Найти и заменить»:

избавиться от переводов строки при помощи инструмента Найти и заменить

  1. Выделите все позиции, которые вы хотите обработать.
  2. Нажмите Ctrl + H, чтобы открыть диалоговое окно «Найти и заменить».
  3. В поле » Найти» введите Ctrl + J. Оно будет выглядеть пустым, но вы увидите крошечную точку.
  4. В поле «Заменить на» введите любое значение для замены. Обычно это пробел, чтобы избежать случайного «слипания» двух слов. Если вам нужно просто удалить разрывы строк, оставьте поле пустым.
  5. Нажимаем кнопку «Заменить все» и наслаждаемся результатом!

Удалите разрывы строк с помощью формул Excel.

Плюсы: вы можете использовать вложенные формулы для более сложной обработки текста в ячейках. Например, можно удалить символы перевода строки, а затем удалить лишние начальные и конечные пробелы, а также пробелы между словами.

Или вам может потребоваться удалить перевод строки, чтобы использовать ваш текст в качестве аргумента другой функции без изменения исходных ячеек. Например, если вы хотите использовать результат в качестве аргумента функции ВПР.

Минусы: вам нужно создать вспомогательный столбец и выполнить некоторое количество дополнительных действий.

  1. Добавьте вспомогательный столбец в конец ваших данных. Вы можете назвать его «В одну строку».
  2. В первой его позиции (C2) введите формулу для удаления или замены переносов строк. Здесь мы представим вам несколько полезных формул для разных случаев:

Удаление возврата каретки и перевода строки как в Windows, так и в UNIX.

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)

Заменяем перенос строки любым другим символом (например, запятая + пробел). В этом случае строки не будут «слипаться» и лишние пробелы не появятся.

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;СИМВОЛ(13);», «);СИМВОЛ(10);», «))

Или же можно обойтись и без запятой, просто заменив пробелом:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;СИМВОЛ(13);» «);СИМВОЛ(10);» «))

Если вы хотите удалить из текста все непечатаемые символы, включая в том числе и переносы строк:

=ПЕЧСИМВ(A4)

как удалить перевод строки в ячейке при помощи формулы Excel

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

При желании вы можете заменить исходный столбец на тот, в котором были удалены переносы строк:

  1. Выделите все данные в столбце В и нажмите Ctrl + C, чтобы скопировать данные в буфер обмена.
  2. Теперь выберите А2 и нажмите Shift + F10 + V.
  3. Удалите вспомогательный столбец В.

Макрос VBA для замены переноса строки на пробел.

Плюсы: создав один раз, макрос можно повторно использовать в любой книге, поместив его в персональную книгу макросов.

Минусы: желательно иметь базовые знания VBA. Или воспользуйтесь нашей подробной инструкцией.

Макрос VBA из приведенного ниже примера заменяет на пробел символ возврата каретки из всех ячеек на текущем активном листе.

Sub RemoveCarriageReturns()
Dim MyRange As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each MyRange In ActiveSheet.UsedRange
If 0 < InStr(MyRange, Chr(10)) Then
MyRange = Replace(MyRange, Chr(10), » «)
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Если вы не очень хорошо знаете VBA, просто следуйте рекомендациям ниже:

  1. Нажмите Alt + F11, чтобы открыть редактор Visual Basic.
  2. Щелкните правой кнопкой мыши имя книги на панели «Project — VBAProject » (в верхнем левом углу окна редактора) и выберите «Вставить» -> «Модуль» в контекстном меню.
  3. Скопируйте код VBA и вставьте его в правую панель редактора VBA ( окно « Module1 »).
  4. Сохраните книгу как «книгу Excel с поддержкой макросов».
    Нажмите Crl + S, затем нажмите кнопку «Нет» в диалоговом окне предупреждения «Следующие функции не могут быть сохранены в книге без макросов».
  5. Откроется диалоговое окно «Сохранить как». Выберите «Книга Excel с поддержкой макросов» из раскрывающегося списка «Тип файла». Нажмите кнопку «Сохранить».
  6. Нажмите Alt + Q , чтобы закрыть окно редактора и вернуться к своей книге.
  7. Если вы хотите запустить код VBA, который вы добавили, как описано в разделе выше: нажмите Alt + F8, чтобы открыть диалог «Макросы».
  8. Затем выберите нужный макрос из списка «Имя макроса» и нажмите кнопку «Выполнить».

Но если какая-либо формула возвращает возврат каретки, я боюсь, что с этим ничего нельзя поделать. Макрос не может найти, где именно в формуле происходит возврат каретки, поэтому он обрабатывает результат формулы, а не формулу как таковую.

Удаляем перенос строки с помощью надстройки Ultimate Suite.

Если вы являетесь пользователем Ultimate Suite for Excel , то вам не нужно тратить время на какие-либо из вышеперечисленных манипуляций. Все, что требуется, — это 3 быстрых шага:

  1. Выберите одну или несколько ячеек, в которых вы хотите удалить переносы строк.
  2. На ленте Excel перейдите на вкладку Ablebits Data  и нажмите кнопку «Преобразовать (Convert)» .
  3. На панели «Преобразовать текст» выберите переключатель «Конвертировать перенос строки в (Convert line break to)», введите в поле «заменяющий» символ (это может быть точка с запятой, точка, запятая, пробел) и нажмите кнопку «Преобразовать (Convert)» .

В нашем примере мы заменяем каждый перенос строки пробелом:

В результате у вас будет аккуратно организованная таблица с однострочными адресами, как это изображено на рисунке выше. Такой же результат мы получали выше и при помощи формул, но занимало это гораздо больше времени.

Это далеко не единственный инструмент для упрощения работы с текстом. Вы можете удалить лишние пробелы, изменить регистр символов, добавить текст в начале в конце, перед или после выбранных символов, удалить непечатаемые символы, извлечь часть текста по позиции или после указанных символов, извлечь числа из текста, разделить текст по столбцам или строкам и многое другое. Подробнее вы можете ознакомиться с этими возможностями на страничке обзора инструментов работы с текстом.

Если вам интересно попробовать этот и еще 60 инструментов для экономии времени для Excel, вы можете загрузить пробную версию Ultimate Suite . Вы будете приятно удивлены, когда найдете решения для самых сложных и утомительных задач в Excel всего в несколько кликов!

Итак, теперь вы легко можете убрать либо заменить символ переноса строки в вашей таблице Excel.

Ещё о работе с текстом в Excel:

Формула ЗАМЕНИТЬ и ПОДСТАВИТЬ для текста и чисел В статье объясняется на примерах как работают функции Excel ЗАМЕНИТЬ (REPLACE в английской версии) и ПОДСТАВИТЬ (SUBSTITUTE по-английски). Мы покажем, как использовать функцию ЗАМЕНИТЬ с текстом, числами и датами, а также…
Как сделать диаграмму Ганта Думаю, каждый пользователь Excel знает, что такое диаграмма и как ее создать. Однако один вид графиков остается достаточно сложным для многих — это диаграмма Ганта.  В этом кратком руководстве я постараюсь показать…
Как сделать автозаполнение в Excel В этой статье рассматривается функция автозаполнения Excel. Вы узнаете, как заполнять ряды чисел, дат и других данных, создавать и использовать настраиваемые списки в Excel. Эта статья также позволяет вам убедиться, что вы…
Быстрое удаление пустых столбцов в Excel В этом руководстве вы узнаете, как можно легко удалить пустые столбцы в Excel с помощью макроса, формулы и даже простым нажатием кнопки. Как бы банально это ни звучало, удаление пустых…
6 способов быстро транспонировать таблицу В этой статье показано, как столбец можно превратить в строку в Excel с помощью функции ТРАНСП, специальной вставки, кода VBA или же специального инструмента. Иначе говоря, мы научимся транспонировать таблицу.…

В этой статье я попробую разобрать все самые популярные вопросы связанные с понятием «Абзац в Excel». Чаще всего меня спрашивают, как перенести часть формулы на новую строку, чтобы формула удобно читалась. Но есть и другие вопросы: как удалить символ абзаца (переноса строки), как сделать, чтобы текст в ячейке перемещался на новую строку автоматически или наоборот, можно ли задать абзац прямо в формуле? Обо всем поподробнее:

Абзац — как мы все знаем, часть текста, отделенная от остального новой строкой. Эта новая строка записывается в большинстве программных продуктов отдельным символом. В Excel такой символ можно даже применять в формулах.

Содержание

  • Абзац в Excel. Как использовать новую строку в формуле?
  • «Подскажите, а как саму формулу разделить на новые строки?»
  • Как перенести текст не меняя ничего внутри него. Формат Перенос текста?
  • Как удалить символ абзаца из ячейки, нескольких ячеек?
  • Как вставить символ абзаца в ячейку или поле поиска (диалоговое окно)?
  • Похожие статьи

Абзац в Excel. Как использовать новую строку в формуле?

Если записать сцепление текста, то текст будет записываться в одну строку (если не применять формат «Перенос текста», см. ниже).

Абзац в Excel

А что делать, если надо разделить текст по абзацам в одной ячейке в формуле? В Excel символ абзаца значится под номером 10.

Запишем вместо

=C3&" "&C4&" "&C5

Формулу

=C3&" "&СИМВОЛ(10)&C4&" "&СИМВОЛ(10)&C5

И получим разделение текста по абзацам:

Абзац в Excel

«Подскажите, а как саму формулу разделить на новые строки?»

Частый вопрос. Удобно и красиво записать саму формулу, разделяя ее новыми строками. Это сильно упрощает читаемость формулы, особенно, если она длинная. Используйте комбинацию Alt + Enter, для переноса текста в строке формул. У меня даже есть отдельная заметка об этом, насколько это удобно.

Абзац в Excel 33

Как перенести текст не меняя ничего внутри него. Формат Перенос текста?

Как мы знаем, данные внутри ячейки Excel могут иметь множество форматов. Так же и текст, например, формат выравнивание по центру. Формат же Перенос текста позволяет сделать автоматический перевод текста на новую строку по словам в зависимости от длины текста и ширины ячейки. Перейдите на вкладе Главная в раздел Выравнивание и нажмите на кнопку Перенос Текста:

Абзац в Excel 4

Если вам необходимо поместить большой текст в Excel, то я рекомендую пользоваться специальной возможностью для вставки текста.

Как удалить символ абзаца из ячейки, нескольких ячеек?

Подробно как удалять любые символы в ячейках написано в отдельной статье. Здесь же мы рассмотрим самый распространенный способ — инструмент Найти и заменить. Выделите диапазон ячеек, где надо найти и удалить символ абзаца, нажмите горячую клавишу Ctrl+H и в появившемся окне в поле Найти: вставьте символ абзаца, а в поле Заменить: ничего не вставляйте (будет т.н. пусто) и нажмите Заменить все.

А где же взять сам символ абзаца?

Как вставить символ абзаца в ячейку или поле поиска (диалоговое окно)?

Выберите, куда нужно вставить символ. Чтобы добавить абзац в продуктах MS Office, есть 2 способа:

  1. Как мы писали выше, нажмите Alt + Enter, эта универсальная комбинация вставляет абзац
  2. Зажмите Alt и нажмите 1 и, не отпуская Alt, сразу ноль. Эти действия вставляют символ под номером 10.

Кстати, левый Alt у многих может и не сработать, пользуйтесь правым Altом на вашей клавиатуре!

Пример файла здесь

Часто требуется внутри одной ячейки Excel сделать перенос текста на новую строку. То есть переместить текст по строкам внутри одной ячейки как указано на картинке. Если после ввода первой части текста просто нажать на клавишу ENTER, то курсор будет перенесен на следующую строку, но другую ячейку, а нам требуется перенос в этой же ячейке.

Перенос строки в Excel в одной ячейке

Это очень частая задача и решается она очень просто — для переноса текста на новую строку внутри одной ячейки Excel необходимо нажать ALT+ENTER (зажимаете клавишу ALT, затем не отпуская ее, нажимаете клавишу ENTER)

Как перенести текст на новую строку в Excel с помощью формулы

Иногда требуется сделать перенос строки не разово, а с помощью функций в Excel. Вот как в этом примере на рисунке. Мы вводим имя, фамилию и отчество и оно автоматически собирается в ячейке A6

Как сделать переност строки в Excel с помощью формулы

Для начала нам необходимо сцепить текст в ячейках A1 и B1 (A1&B1), A2 и B2 (A2&B2), A3 и B3 (A3&B3)

После этого объединим все эти пары, но так же нам необходимо между этими парами поставить символ (код) переноса строки. Есть специальная таблица знаков (таблица есть в конце данной статьи), которые можно вывести в Excel с помощью специальной функции СИМВОЛ(число), где число это число от 1 до 255, определяющее определенный знак. Например, если прописать =СИМВОЛ(169), то мы получим знак копирайта ©

Нам же требуется знак переноса строки, он соответствует порядковому номеру 10 — это надо запомнить. Код (символ) переноса строки — 10 Следовательно перенос строки в Excel в виде функции будет выглядеть вот так СИМВОЛ(10)

Примечание: В VBA Excel перенос строки вводится с помощью функции Chr и выглядит как Chr (10)

Итак, в ячейке A6 пропишем формулу

=A1&B1&СИМВОЛ(10)&A2&B2&СИМВОЛ(10)&A3&B3

В итоге мы должны получить нужный нам результат. Обратите внимание! Чтобы перенос строки корректно отображался необходимо включить «перенос по строкам» в свойствах ячейки. Для этого выделите нужную нам ячейку (ячейки), нажмите на правую кнопку мыши и выберите «Формат ячеек… »

формат ячейкив Excel

В открывшемся окне во вкладке «Выравнивание» необходимо поставить галочку напротив «Переносить по словам» как указано на картинке, иначе перенос строк в Excel не будет корректно отображаться с помощью формул.

Перенос по строкам в формате ячеек

Как в Excel заменить знак переноса на другой символ и обратно с помощью формулы

Можно поменять символ перенос на любой другой знак, например на пробел, с помощью текстовой функции ПОДСТАВИТЬ в Excel

Как заменить перенос строки на пробел в Excel

Рассмотрим на примере, что на картинке выше. Итак, в ячейке B1 прописываем функцию ПОДСТАВИТЬ:

=ПОДСТАВИТЬ(A1;СИМВОЛ(10); » «)

A1 — это наш текст с переносом строки; СИМВОЛ(10) — это перенос строки (мы рассматривали это чуть выше в данной статье); » » — это пробел, так как мы меняем перенос строки на пробел

Если нужно проделать обратную операцию — поменять пробел на знак (символ) переноса, то функция будет выглядеть соответственно:

=ПОДСТАВИТЬ(A1; » «;СИМВОЛ(10))

Напоминаю, чтобы перенос строк правильно отражался, необходимо в свойствах ячеек, в разделе «Выравнивание» указать «Переносить по строкам».

Как поменять знак переноса на пробел и обратно в Excel с помощью ПОИСК — ЗАМЕНА

Бывают случаи, когда формулы использовать неудобно и требуется сделать замену быстро. Для этого воспользуемся Поиском и Заменой. Выделяем наш текст и нажимаем CTRL+H, появится следующее окно.

Заменить код переноса строки на пробел с помощью Поиск-Замена в Excel

Если нам необходимо поменять перенос строки на пробел, то в строке «Найти» необходимо ввести перенос строки, для этого встаньте в поле «Найти», затем нажмите на клавишу ALT, не отпуская ее наберите на клавиатуре 010 — это код переноса строки, он не будет виден в данном поле.

После этого в поле «Заменить на» введите пробел или любой другой символ на который вам необходимо поменять и нажмите «Заменить» или «Заменить все».

Кстати, в Word это реализовано более наглядно.

Если вам необходимо поменять символ переноса строки на пробел, то в поле «Найти» вам необходимо указать специальный код «Разрыва строки», который обозначается как ^l В поле «Заменить на: » необходимо сделать просто пробел и нажать на «Заменить» или «Заменить все».

Заменить перенос строки на пробел с помощь Найти Заменить в Excel

Вы можете менять не только перенос строки, но и другие специальные символы, чтобы получить их соответствующий код, необходимо нажать на кнопку «Больше >> », «Специальные» и выбрать необходимый вам код. Напоминаю, что данная функция есть только в Word, в Excel эти символы не будут работать.

Специальные символы для поиск-замены

Как поменять перенос строки на пробел или наоборот в Excel с помощью VBA

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

1. Меняем пробелы на переносы в выделенных ячейках с помощью VBA

Sub ПробелыНаПереносы() For Each cell In Selection cell.Value = Replace (cell.Value, Chr (32), Chr (10)) Next End Sub

2. Меняем переносы на пробелы в выделенных ячейках с помощью VBA

Sub ПереносыНаПробелы() For Each cell In Selection cell.Value = Replace (cell.Value, Chr (10), Chr (32)) Next End Sub

Код очень простой Chr (10) — это перенос строки, Chr (32) — это пробел. Если требуется поменять на любой другой символ, то заменяете просто номер кода, соответствующий требуемому символу.

Коды символов для Excel

Ниже на картинке обозначены различные символы и соответствующие им коды, несколько столбцов — это различный шрифт. Для увеличения изображения, кликните по картинке.

Коды символов

Переносы строк внутри одной ячейки, добавляемые с помощью сочетания клавиш Alt+Enter — дело весьма частое и привычное. Иногда их делают сами пользователи, чтобы добавить красоты длинному тексту. Иногда такие переносы добавляются автоматически при выгрузке данных из каких-либо рабочих программ (привет 1С, SAP и т.д.) Проблема в том, что на такие таблицы приходится потом не просто любоваться, а с ними работать — и вот тогда эти невидимые символы переноса могут стать проблемой. А могут и не стать — если уметь правильно с ними обращаться.

Давайте-ка мы разберёмся в этом вопросе поподробнее.

Удаление переносов строк заменой

Если нам нужно избавиться от переносов, то первое, что обычно приходит в голову — это классическая техника «найти и заменить». Выделяем текст и затем вызываем окно замены сочетанием клавиш Ctrl+H или через Главная — Найти и выделить — Заменить (Home — Find&Select — Replace). Одна неувязочка — не очень понятно, как ввести в верхнее поле Найти (Find what) наш невидимый символ переноса строки. Alt+Enter тут, к сожалению, уже не работает, скопировать этот символ непосредственно из ячейки и вставить его сюда тоже не получается.

Поможет сочетание Ctrl+J — именно оно является альтернативой Alt+Enter в диалоговых окнах или полях ввода Excel:

Замена переносов строк на пробел

Обратите внимание, что после того, как вы поставите мигающий курсор в верхнее поле и нажмёте Ctrl+J — в самом поле ничего не появится. Не пугайтесь — это нормально, символ-то невидимый :)

В нижнее поле Заменить (Replace with) либо ничего не вводим, либо вводим пробел (если хотим не просто удалить переносы, а заменить их на пробел, чтобы строки не склеились в единое целое). Останется нажать на кнопку Заменить всё (Replace All) и наши переносы исчезнут:

Исправленный текст

Нюанс: после выполнения замены введённый с помощью Ctrl+J невидимый символ остаётся в поле Найти и может помешать в дальнейшем — не забудьте его удалить, установив курсор в это поле и несколько раз (для надёжности) нажав на клавиши Delete и Backspace.

Удаление переносов строк формулой

Если нужно решить задачу именно формулами, то можно использовать встроенную функцию ПЕЧСИМВ (CLEAN), которая умеет очищать текст от всех непечатаемых символов, включая и наши злополучные переносы строк:

Удаление переносов строк формулой

Такой вариант, однако, не всегда бывает удобен, т.к. строки после этой операции могут склеиваться между собой. Чтобы этого не происходило, нужно не просто удалять символ переноса, а заменять его на пробел (см. следующий пункт).

Замена переносов строк формулой

А если хочется не просто удалить, а именно заменить Alt+Enter на, например, пробел, то потребуется уже другая, чуть более сложная конструкция:

Замена переноса строки на пробел формулой

Чтобы задать невидимый символ переноса мы используем функцию СИМВОЛ (CHAR), которая выводит символ по его коду (10). А потом функция ПОДСТАВИТЬ (SUBSTITUTE) ищет в исходных данных наши переносы и заменяет их на любой другой текст, например, на пробел.

Деление на столбцы по переносу строки

Знакомый многим и очень удобный инструмент Текст по столбцам с вкладки Данные (Data — Text to Columns) тоже может замечательно работать с переносами строк и разделить текст из одной ячейки на несколько, разбив его по Alt+Enter. Для этого на втором шаге мастера нужно выбрать вариант пользовательского символа-разделителя Другой (Custom) и использовать уже знакомое нам сочетание клавиш Ctrl+J как альтернативу Alt+Enter:

Деление на столбцы по Alt+Enter

Если в ваших данных может встречаться несколько переносов строк подряд, то можно их «схлопнуть», включив флажок Считать последовательные разделители одним (Treat consecutive delimiters as one).

После нажатия на Далее (Next) и прохождения всех трёх шагов мастера мы получим желаемый результат:

Результат деления

Обратите внимание, что до выполнения этой операции необходимо вставить справа от разделяемого столбца достаточное количество пустых колонок, чтобы образовавшийся текст не затёр те значения (цены), которые были справа.

Деление на строки по Alt+Enter через Power Query

Ещё одной любопытной задачей является деление многострочного текста из каждой ячейки не на столбцы, а на строки:

Деление на строки по Alt+Enter

Вручную такое делать долго, формулами — сложно, макросом — не каждый напишет. А на практике подобная задача встречается чаще, чем хотелось бы. Самым простым и лёгким решением будет использовать для этой задачи возможности надстройки Power Query, которая встроена в Excel начиная с 2016 года, а для более ранних версий 2010-2013 её можно совершенно бесплатно скачать с сайта Microsoft.

Чтобы загрузить исходные данные в Power Query их нужно сначала преобразовать в «умную таблицу» сочетанием клавиш Ctrl+T или кнопкой Форматировать как таблицу на вкладке Главная (Home — Format as Table). Если по каким-то причинам вы не хотите или не можете использовать «умные таблицы», то можно работать и с «глупыми». В этом случае просто выделите исходный диапазон и дайте ему имя на вкладке Формулы — Диспетчер имен — Создать (Formulas — Name Manager — New).

После этого на вкладке Данные (если у вас Excel 2016 или новее) или на вкладке Power Query (если у вас Excel 2010-2013) можно жать на кнопку Из таблицы / диапазона (From Table/Range), чтобы загрузить нашу таблицу в редактор Power Query:

Грузим нашу таблицу в Power Query

После загрузки выделим столбец с многострочным текстом в ячейках и выберем на Главной вкладке команду Разделить столбец — По разделителю (Home — Split Column — By delimiter):

Деление столбца на строки в Power Query

Скорее всего, Power Query автоматически распознает принцип деления и сам подставит условное обозначение #(lf) невидимого символа переноса строки (lf = line feed = перенос строки) в поле ввода разделителя. Если нужно, то другие символы можно выбрать из выпадающего списка в нижней части окна, если включить предварительно галочку Разделить с помощью специальных символов (Split by special characters).

Чтобы всё разделилось на строки, а не не столбцы — не забудьте переключить селектор Строки (By rows) в группе расширенных параметров.

Останется только нажать на ОК и получить желаемое:

Результаты

Готовую таблицу можно выгрузить обратно на лист с помощью команды Закрыть и загрузить — Закрыть и загрузить в… на вкладке Главная (Home — Close&Load — Close&Load to…).

Важно отметить, что при использовании Power Query необходимо помнить о том, что при изменении исходных данных результаты автоматически не обновляются, т.к. это не формулы. Для обновления нужно обязательно щёлкнуть правой кнопкой мыши по итоговой таблице на листе и выбрать команду Обновить (Refresh) или нажать кнопку Обновить всё на вкладке Данные (Data — Refresh All).

Макрос для деления на строки по Alt+Enter

Для полноты картины давайте упомянем решение предыдущей задачи ещё и с помощью макроса. Откройте редактор Visual Basic с помощью одноимённой кнопки на вкладке Разрабочик (Developer) или сочетания клавиш Alt+F11. В появившемся окне вставьте новый модуль через меню Insert — Module и скопируйте туда нижеприведённый код:

Sub Split_By_Rows()
    Dim cell As Range, n As Integer

    Set cell = ActiveCell

    For i = 1 To Selection.Rows.Count
        ar = Split(cell, Chr(10))         'делим текст по переносам в массив
        n = UBound(ar)                    'определяем кол-во фрагментов
        cell.Offset(1, 0).Resize(n, 1).EntireRow.Insert             'вставляем пустые строки ниже
        cell.Resize(n + 1, 1) = WorksheetFunction.Transpose(ar)     'вводим в них данные из массива
        Set cell = cell.Offset(n + 1, 0)                            'сдвигаемся на следующую ячейку
    Next i
End Sub

Вернитесь в Excel и выделите ячейки с многострочным текстом, который надо разделить. Затем воспользуйтесь кнопкой Макросы на вкладке Разработчик (Developer — Macros) или сочетанием клавиш Alt+F8, чтобы запустить созданный макрос, который и проделает за вас всю работу:

Работа макроса разделения на строки по Alt+Enter

Вуаля! Программисты — это, на самом деле, просто очень ленивые люди, которые лучше один раз как следует напрягутся, чтобы потом ничего не делать :)

Ссылки по теме

  • Зачистка текста от мусора и лишних символов
  • Замена текста и зачистка от неразрывных пробелов функцией ПОДСТАВИТЬ
  • Как разделить слипшийся текст на части в Excel

Like this post? Please share to your friends:
  • Поиск запятой в ячейке excel
  • Поиск записи в таблице excel
  • Поиск задвоенных значений excel
  • Поиск заглавных букв excel
  • Поиск зависимостей в данных excel