Excel как убрать абзац в ячейке excel

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

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


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

 

Ответить

Как удалить переносы строк (возвраты каретки) из ячеек в 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​

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

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

0 / 0 / 0

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

Сообщений: 5

1

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


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

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

Миниатюры

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



0



1232 / 670 / 238

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

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

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



1232 / 670 / 238

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

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

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



1232 / 670 / 238

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

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

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



1232 / 670 / 238

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

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

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



Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше

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

В этой статье

  • Уменьшение междустрочных интервалов в ячейке

  • Увеличение междустрочных интервалов в ячейке

  • Замена текста ячейки надписью

Уменьшение междустрочных интервалов в ячейке

Если текст расположен в ячейке слишком широко, вы можете уменьшить междустрочные интервалы. Часто можно улучшить читаемость, изменив выравнивания текста для сближения строк.

  1. Щелкните правой кнопкой мыши необходимую ячейку и выберите пункт Формат ячеек в контекстном меню.

    В контекстном меню выберите элемент "Формат ячеек".

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

    Вкладка "Выравнивание" в диалоговом окне "Формат ячеек"

  3. Нажмите кнопку OK. Текст расположен равномерно.

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

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

К началу страницы

Увеличение междустрочных интервалов в ячейке

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

  1. Щелкните правой кнопкой мыши необходимую ячейку и выберите пункт Формат ячеек в контекстном меню.

  2. На вкладке Выравнивание в раскрывающемся списке по вертикали выберите пункт Распределенное.

  3. Нажмите кнопку ОК.

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

К началу страницы

Замена текста ячейки надписью

Если вам нужно изменить только несколько ячеек с текстом, можно вставить поверх нее текстовое поле. Используя вместо ячейки текстовое поле, вы можете более контролировать форматирование текста.

  1. Дважды щелкните необходимую ячейку, выделите весь текст и нажмите клавиши CTRL+X.

    Текст выделен.

  2. Щелкните другую ячейку, чтобы отменить выделение.

  3. При необходимости измените высоту строки.

  4. На вкладке Вставить щелкните Надпись.

    Нажмите кнопку "Надпись".

  5. Наведите указатель на левый верхний угол необходимой ячейки, щелкните и, удерживая кнопку мыши, нарисуйте поле для надписи по размеру ячейки. Если после создания надписи вам потребуется изменить ее размер, перетащите угловые маркеры выделения.

  6. Щелкните надпись, чтобы выделить ее, а затем нажмите клавиши CTRL+V для вставки скопированного текста.

    В текстовое поле вставлен новый текст.

  7. Выделите весь текст надписи, щелкните его правой кнопкой мыши и в контекстном меню выберите пункт Абзац.

    В контекстном меню выберите элемент "Абзац".

  8. Выберите подходящие междустрочные интервалы.

    Изображение диалогового окна "Абзац" для изменения отступов и интервалов в текстовом поле

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

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

К началу страницы

См. также

Добавление, копирование или удаление надписи

Изменение формата ячейки

Нужна дополнительная помощь?

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

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

Шаги в этой статье предполагают, что у вас есть лист, содержащий ячейки с отступом. Если вы выполните следующие шаги, и отступ не будет удален, тогда у вас могут быть пробелы, предшествующие вашим данным, в отличие от форматирования отступа. Если это так, то вам больше повезет с функцией Excel TRIM. Например, если у вас есть данные в ячейке A1, которые содержат пробелы, которые вы хотите удалить, введите формулу «= TRIM (А1)» в пустую ячейку удалит пробелы из данных. Вы можете узнать больше о функции TRIM здесь.

  • Откройте свой лист Excel, содержащий отступ, который вы хотите удалить.
  • Выберите ячейки, содержащие отступ, который вы хотите удалить. Если вы хотите удалить все отступы с рабочего листа, нажмите «Ctrl + A» на клавиатуре или нажмите серую кнопку над заголовком строки 1 и слева от заголовка столбца А. Оба этих варианта выберут весь лист.
  • выберите ячейки с отступом

  • Нажмите на «Главная» вкладка в верхней части окна.
  • нажмите вкладку "Главная"

  • Нажмите на «Уменьшить отступ» кнопку в разделе выравнивания ленты, пока отступ не будет удален. В зависимости от количества отступов, добавленных в ячейку (и), вам может понадобиться нажать эту кнопку несколько раз.
  • как удалить отступ в ячейке в Excel 2013

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

    Когда вы импортируете данные в Microsoft Excel из внешнего источника, такого как веб-страницы или Microsoft Word, в ячейках часто появляются пустые отступы. Как убрать отступ внутри ячеек? Вместо того чтобы удалять каждый отступ в ячейке по одному, мы познакомим вас с простым способом быстрого удаления отступов внутри ячеек.

    • Убрать отступы с ячеек командой Уменьшить отступ
    • Убрать отступы пробела с ячейками с помощью Kutools for Excel

    стрелка синий правый пузырьУбрать отступы пробела с ячейками с помощью Kutools for Excel

    Некоторые отступы сделаны с пустым пространством. Итак, мы можем использовать Kutools for Excel’s Удалить пробел инструмент для быстрого удаления всех отступов, сделанных с пустым пространством в выделенных областях.

    Kutools for Excel включает более 100 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

    Шаг 1: Выберите диапазон, с которым вы будете работать.

    Шаг 2: щелкните значок Кутулс >> Текстовые инструменты >> Удалить пробелы….

    выстрел-удалить-отступы-3

    Шаг 3. В диалоговом окне «Удалить пробел» установите флажок Все лишние места вариант и нажмите OK.

    выстрел-удалить-отступы-4

    Тогда вы увидите, что все отступы, сделанные пустым пространством, немедленно удаляются.


    стрелка синий правый пузырьУбрать отступы с ячеек командой Уменьшить отступ

    Чаще всего пользователи устанавливают отступы с помощью команды «Увеличить отступ» или настройки отступов. Если импортированные данные содержат такие отступы, вы можете удалить их с помощью Уменьшить отступ команда.

    Шаг 1: Выберите диапазон, в котором вы хотите удалить отступы.

    Шаг 2: нажмите Главная >> Уменьшить отступ кнопку.

    выстрел-удалить-отступы-2

    Затем он удаляет отступ, кроме отступов на пробел.

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


    Лучшие инструменты для работы в офисе

    Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

    • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
    • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
    • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
    • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
    • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
    • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
    • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
    • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
    • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

    вкладка kte 201905


    Вкладка Office: интерфейс с вкладками в Office и упрощение работы

    • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
    • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
    • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

    офисный дно

    Комментарии (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));»//»;» «)
    Преобразуем формулы в значения. Удаляем исходные данные или заменяем полученными

     

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

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

    Сообщений: 5507
    Регистрация: 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 как текстовый редактор