Как удалить все абзацы в 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 или же специального инструмента. Иначе говоря, мы научимся транспонировать таблицу.…

Удаление абзаца в ячейке

VIDEO56

Дата: Пятница, 12.02.2016, 14:08 |
Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262


Репутация:

23

±

Замечаний:
0% ±


Excel 2010

Еще раз всем пламенный привет.
Подскажите пожалуйста можно ли формулой удалить абзацы (Alt+enter) в ячейке. Или только при помощи макроса?


Всем удачного дня!

 

Ответить

_Boroda_

Дата: Пятница, 12.02.2016, 14:10 |
Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

Совсем удалить или заменить на пробел?
удалить

Код

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

на пробел

Код

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


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

VIDEO56

Дата: Пятница, 12.02.2016, 14:36 |
Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262


Репутация:

23

±

Замечаний:
0% ±


Excel 2010

Александр, вай слюшай вальшебник да???
Спасибо!


Всем удачного дня!

 

Ответить

0 / 0 / 0

Регистрация: 22.04.2021

Сообщений: 5

1

22.04.2021, 12:34. Показов 4413. Ответов 9


Студворк — интернет-сервис помощи студентам

Кто знает подскажите, как убрать лишние пустые абзацы в ячейках Excel и отступы красной строки в тексте. (скрин 1)
В ручную никак, более 10 000 наименований

Миниатюры

Убрать пустые абзацы в ячейках Excel
 



0



1234 / 671 / 239

Регистрация: 22.12.2015

Сообщений: 2,093

22.04.2021, 12:51

2

Цитата
Сообщение от cheha
Посмотреть сообщение

лишние пустые абзацы в ячейках Excel

Скопируйте в таблицу Word, замените ^p^p на ^p и скопируйте обратно в Excel.

Цитата
Сообщение от cheha
Посмотреть сообщение

и отступы красной строки в тексте.

Из картинки не ясно, что является отступом. Вероятно — пробел, тогда допустим формулой СЖПРОБЕЛЫ()



0



0 / 0 / 0

Регистрация: 22.04.2021

Сообщений: 5

22.04.2021, 13:26

 [ТС]

3

1.Если брать каждую ячейку и обрабатывать в Ворде, то да, получается. Но у меня более 10 000 ячеек.
При копировании обратно все данные будут перемешены. Здесь нужна либо формула, либо функция Excel’
2. СЖПРОБЕЛЫ() — не помогает.



0



5942 / 3154 / 698

Регистрация: 23.11.2010

Сообщений: 10,524

22.04.2021, 13:40

4

Цитата
Сообщение от cheha
Посмотреть сообщение

Здесь нужна либо формула, либо функция Excel’

Вообще-то нужен файл, а не картинка



0



1234 / 671 / 239

Регистрация: 22.12.2015

Сообщений: 2,093

22.04.2021, 13:52

5

Цитата
Сообщение от Fairuza
Посмотреть сообщение

Вообще-то нужен файл, а не картинка

Это да, кроме автора эксель никто не видел, однако рискну предположить, что даже Word не нужен, достаточно прямо в excel в диалоге ctrl+h в строку поиска забить выражение:
зажать и не отпускать alt и вместе с ним 010, потом отпустить, затем еще раз вбить alt+010
в строке замены просто вбить alt+010

Цитата
Сообщение от cheha
Посмотреть сообщение

не помогает.

Значит первый символ у вас не пробел.



0



0 / 0 / 0

Регистрация: 22.04.2021

Сообщений: 5

22.04.2021, 13:57

 [ТС]

6

Да, прошу прощения, вот пример.



0



1234 / 671 / 239

Регистрация: 22.12.2015

Сообщений: 2,093

22.04.2021, 17:23

7

Лучший ответ Сообщение было отмечено cheha как решение

Решение

Цитата
Сообщение от cheha
Посмотреть сообщение

вот пример.

cheha, насколько я вижу — проблема решается методом «прямо в лоб» просто большим количеством вложенных функций подставить():

Кликните здесь для просмотра всего текста

Код

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;СИМВОЛ(10);"#");СИМВОЛ(9);"#");"# #";"#");"##";"#");"##";"#");"##";"#");"##";"#");"# ";"#");"#";СИМВОЛ(10)))

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



1



0 / 0 / 0

Регистрация: 22.04.2021

Сообщений: 5

22.04.2021, 17:52

 [ТС]

8

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



0



1234 / 671 / 239

Регистрация: 22.12.2015

Сообщений: 2,093

22.04.2021, 17:59

9

Лучший ответ Сообщение было отмечено cheha как решение

Решение

Цитата
Сообщение от cheha
Посмотреть сообщение

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

Если между всеми абзацами — попробуйте вот так:

Код

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;СИМВОЛ(10);"#");СИМВОЛ(9);"#");"# #";"#");"##";"#");"##";"#");"##";"#");"##";"#");"# ";"#");"#";СИМВОЛ(10)&СИМВОЛ(10)))



0



0 / 0 / 0

Регистрация: 22.04.2021

Сообщений: 5

22.04.2021, 18:04

 [ТС]

10

То, что надо. Еще раз огромное спасибо !



0



 

cheha

Пользователь

Сообщений: 4
Регистрация: 22.04.2021

Кто знает подскажите, как убрать лишние пустые абзацы в ячейках Excel и отступы красной строки в тексте. (скрин 1)
В ручную никак, более 10 000 наименований

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

Покажите пример с  несколькими такими ячейками.

 

Mershik

Пользователь

Сообщений: 8277
Регистрация: 03.12.2015

#3

22.04.2021 13:14:50

cheha, выделяете Ваши ячейки и запускаете макрос (сделал как понял)

Код
Sub mrshkei()
Dim arr, i As Long, arr2, rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
arr = Split(cell, Chr(10))
ReDim arr2(1 To 1)
For i = UBound(arr) To LBound(arr) Step -1
    If arr(i) <> Empty Then
        arr2(1) = arr(i) & Chr(10) & Chr(10) & arr2(1)
    End If
Next i
cell = arr2
Next cell
End Sub

Изменено: Mershik22.04.2021 13:15:02

Не бойтесь совершенства. Вам его не достичь.

 

cheha

Пользователь

Сообщений: 4
Регистрация: 22.04.2021

Не получается, возможно я что то неправильно объяснил, прикладываю таблицу для примера

 

Mershik

Пользователь

Сообщений: 8277
Регистрация: 03.12.2015

cheha, что конкретно не получается?

Не бойтесь совершенства. Вам его не достичь.

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

Заменяем исходные пробелы на что-либо безопасное. Заменяем символ переноса строки на пробел. Удаляем сцепки пробелов (бывших СИМВОЛ(10)) на 1 пробел. Меняем пробел на СИМВОЛ(10), возвращаем на место исходные пробелы
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;» «;»//»);СИМВОЛ(10);» «)); » «;СИМВОЛ(10));»//»;» «)
Преобразуем формулы в значения. Удаляем исходные данные или заменяем полученными

 

МатросНаЗебре

Пользователь

Сообщений: 5516
Регистрация: 05.02.2014

#7

22.04.2021 14:02:16

Код
Sub ПовелительницаМаркетинга()
    Dim cl As Range
    Dim s As String
    For Each cl In Intersect(Selection, ActiveSheet.UsedRange)
        With cl
            s = .Value
            Do
                If InStr(s, vbLf & vbLf) = 0 Then Exit Do
                s = Replace(s, vbLf & vbLf, vbLf)
            Loop
            .Value = s
        End With
    Next
End Sub
 

Mershik

Пользователь

Сообщений: 8277
Регистрация: 03.12.2015

#8

22.04.2021 14:10:23

Цитата
МатросНаЗебре написал:
ПовелительницаМаркетинга

:D  

Не бойтесь совершенства. Вам его не достичь.

 

cheha

Пользователь

Сообщений: 4
Регистрация: 22.04.2021

#9

22.04.2021 17:18:44

Цитата
Mershik написал:
cheha , что конкретно не получается?

Разобрался, макрос работает, но некорректно: он заменяет два пустых абзаца на один (красный), но прибавляет пустой абзац к тексту (синий)
Если 3, 4 и более пустых абзацев, вообще ничего не меняется. Скрины приложил.

Удалены картинки. Превышение допустимого размера вложения [МОДЕРАТОР]

 

cheha

Пользователь

Сообщений: 4
Регистрация: 22.04.2021

Друзья всем спасибо, помогли решить вопрос, если кому пригодиться, то ВОТ:
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;СИМВОЛ(10);»#»);СИМВОЛ(9);»#»);»# #»;»#»);»##»;»#»);»##»;»#»);»##»;»#»);»##»;»#»);»# «;»#»);»#»;СИМВОЛ(10)&СИМВОЛ(10)))

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#11

22.04.2021 19:35:17

Формула из сообщения №6 не подошла?

В этой статье я попробую разобрать все самые популярные вопросы связанные с понятием «Абзац в 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).

Одним из наиболее популярных вопросов среди пользователей программы «Эксель» является вопрос о том, каким образом перенести текст внутри ячейки на новую строку нажатием клавиши ENTER, чтобы активная ячейка не менялась и не перескакивала ниже.

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

набирают текст в программе Word или ином редакторе текстовых документов, потом копируют и вставляют уже форматированный текст в ячейку Excel.

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

Существует гораздо более быстрый и простой способ переноса текста в новую строку в ячейках Excel.

Для переноса текста достаточно нажать сочетание клавиш Alt + Enter, после указанного действия курсор переместится на строчку ниже, не перескакивая на новую ячейку, и Вы сможете набирать текст с новой строки. Похожая хитрость есть и для других офисных программ Libro или Open Office, только следует использовать сочетание Ctrl + Enter.

Чтобы проставить вначале списка маркеры в виде жирных точек, можно воспользоваться сочетанием клавиш Alt+7.

Замена абзаца на пробел

Встал в тупик. Подскажите, пожалуйста, как заменить Абзац на Пробел если он есть в тексте в ячейке Excel с помощью макроса?
Обычно для замены использую такой макрос и все работает:

Однако, в случае с Абзацем — не срабатывает.
Использовал в качестве абзаца следующие символы: ^p, ^|, Chr(10) и еще что-то из найденного в инете — точно не помню.
Не помогает.

Может быть, кто-нибудь знает, как справиться с этим?

Замена повторяющихся букв на пробел
есть таблица с 30-ю буквами по горизонтали и по вертикали. если буква повторяется то пишем 1, если.

Замена абзаца
Подскажите, как из текста в текстбоксе убрать все абзацы, сделав все сплошным текстом?

Замена n на пробел
Я считал в массив char с текстового файла текст. Там есть переходы на новые абзацы. Мне их нужно.

Замена Tab, на пробел
Нужно заменить табуляцию в текстовом файле на пробелы. Шарп плохо знаю, так что выручайте. Код.

Surrogate, тоже самое, что и в других случаях.
Нам присылают файлы, в которых в первой колонке идет название, во второй — описание. Вот в этом описании есть абзацы. Насколько знаю, делаются абзацы Excel в отличие от текстовых редакторов клавишами Alt+Enter.

А вот как в макросе заменить эти абзацы на пробелы — не понятно.
Поиск по сайту и ссылки предоставленные администратором (спасибо!), не помогли

Всем большое спасибо за вашу помощь!
Проблема решилась. В результате экспериментов выяснилось, что замена, на самом деле, происходила, но в текстовый файл сохранялся вариант До замены (в коде наверху удалил этот фрагмент ошибочно посчитав ненужным). Почему это происходило — не знаю. Поэтому добавил в код сначала сохранение замененного результата в самом файле Excel и только потом сохранение результата в текстовый файл.
Заработало.

Excel works!

Excel работает за вас

Excel works!

Thanks for Visiting

Абзац в Excel. Как начать с новой строки в ячейке

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

При нажатии клавиши ENTER курсор переходит на ячейку вниз. А надо просто сделать новый абзац в этой же ячейке?

Сам когда-то мучился этим вопросом. Бывает такое, что как раз внутри ячейки надо разделить текст на блоки. Лучше это сделать, разбив на абзацы.

Но все ну очень просто.

ALT+ENTER — и все, и тебя новая строка в той же ячейке. Без проблем.

Часто пользователю Excel необходимо сделать так, чтобы внутри одной ячейки находился текст, который, как бы разбит на абзацы. Некоторые не знают, но, как уже было сказано, делается это, в принципе, просто.

Последовательность действий такая:

Начинаем печатать текст внутри ячейки, а потом, если нам нужно, чтобы следующая строка была отделена от предыдущей жмем Alt Enter (последовательно нажимайте эти две клавиши). После того, как будет нажато Alt Enter можно печатать следующую строку.

Рассмотрим на примере.

Допустим, нам нужно ввести в ячейку такое четверостишье А.И. Бунина.

Лес, точно терем расписной,

Лиловый, золотой, багряный,

Веселой, пестрою стеной

Стоит над светлою поляной.

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

Лес, точно терем расписной,/жмем Alt Enter

Лиловый, золотой, багряный,/жмем Alt Enter

Веселой, пестрою стеной/жмем Alt Enter

Стоит над светлою поляной./жмем Enter

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

Совет: не забудьте потом увеличить немного высоту ячейки (так как, если Вы введете большое количество строк и они будут с нового абзаца — они могут визуально не поместиться в ячейку). Также может потребоваться и увеличение ширины столбца (опять же, в зависимости от длинные фраз может получится так, что визуально будет не четыре абзаца, а больше — это произойдет потому что Excel сам начинает переносить строки в ячейках, находящихся в «узких столбцах»).

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

Эта инструкция познакомит Вас с тремя способами удалить возвраты каретки из ячеек в Excel. Вы также узнаете, как заменить символы переноса строки другими символами. Все предложенные решения работают в Excel 2013, 2010, 2007 и 2003.

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

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

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

Замечание: Первоначально термины “Возврат каретки” и “Перевод строки” использовались при работе на печатных машинках и обозначали две различных операции. Любознательный читатель может самостоятельно найти подробную информацию об этом в интернете.

Компьютеры и программное обеспечение для работы с текстами разрабатывались с учётом особенностей печатных машинок. Вот почему теперь для обозначения разрыва строки используют два различных непечатаемых символа: Возврат каретки (Carriage return, CR или ASCII код 13) и Перевод строки (Line feed, LF или ASCII код 10). В Windows используются оба символа вместе, а в системах *NIX применяется только перевод строки.

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

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

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

Минусы: Никаких дополнительных плюшек

Вот так можно удалить переносы строк при помощи инструмента «Найти и заменить»:

  1. Выделите все ячейки, в которых требуется удалить возвраты каретки или заменить их другим символом.
  2. Нажмите Ctrl+H, чтобы вызвать диалоговое окно Найти и заменить (Find and Replace).
  3. Поставьте курсор в поле Найти (Find what) и нажмите Ctrl+J. На первый взгляд поле покажется пустым, но если посмотрите внимательно, то увидите в нём маленькую точку.
  4. В поле Заменить на (Replace With) введите любое значение для вставки вместо возвратов каретки. Обычно для этого используют пробел, чтобы избежать случайного склеивания двух соседних слов. Если нужно просто удалить переносы строк, оставьте поле Заменить на (Replace With) пустым.
  5. Нажмите кнопку Заменить все (Replace All) и наслаждайтесь результатом!

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

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

В некоторых случаях переносы строк необходимо удалять, чтобы в дальнейшем использовать текст в качестве аргументов функций, не внося изменения в исходные ячейки. Результат можно использовать, например, как аргумент функции ПРОСМОТР (LOOKUP).

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

  1. Добавьте вспомогательный столбец в конце данных. В нашем примере он будет называться 1 line.
  2. В первой ячейке вспомогательного столбца (C2) введите формулу для удаления/замены переносов строк. Ниже приведены несколько полезных формул для различных случаев:
    • Эта формула подходит для использования с комбинациями возврат каретки / перенос строки, характерными для Windows и для UNIX.

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);»»)
=SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),»»)
Следующая формула подходит для замены переноса строки любым другим символом (например, “, ” – запятая + пробел). В таком случае строки не будут объединены и лишние пробелы не появятся.

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);»»);СИМВОЛ(10);», «)
=TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),»»),CHAR(10),», «)
А вот так можно удалить все непечатаемые символы из текста, включая переносы строк:

  • Скопируйте формулу во все ячейки столбца.
  • По желанию, можете заменить исходный столбец новым, с удалёнными переносами строк:
    • Выделите все ячейки в столбце C и нажатием Ctrl+C скопируйте данные в буфер обмена.
    • Далее выделите ячейку B2, нажмите сочетание клавиш Shift+F10 и выберите Вставить (Insert).
    • Удалите вспомогательный столбец.
  • Удаляем переносы строк при помощи макроса VBA

    Плюсы: Создаём один раз – используем снова и снова с любой рабочей книгой.

    Минусы: Требуется хотя бы базовое знание VBA.

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

    Если Вы не слишком близко знакомы с VBA, рекомендую изучить статью о том, как вставить и выполнить код VBA в Excel.

    Понравилась статья? Поделить с друзьями:

    А вот еще интересные статьи:

  • Как удалить все одинаковые символы в word
  • Как удалить все одинаковые значения в excel
  • Как удалить все нули в excel
  • Как удалить все нулевые значения в excel
  • Как удалить все нечетные строки в excel

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии