Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как быстро убрать разрывы строк в Excel?

Иногда, когда вы копируете некоторые данные с веб-сайта или разделяете свои значения с помощью Alt + Enter ключей, вы получите несколько разрывов строки или возврата каретки, если вы хотите быстро удалить несколько разрывов строк в Excel, как показано на следующих снимках экрана, вы можете сделать это следующим образом:

doc-remove-line-breaks1 -2 doc-remove-line-breaks2

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

Удалите множественные разрывы строк с помощью кода VBA

Удалите несколько разрывов строк с помощью Kutools for Excel

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.


стрелка синий правый пузырь Удалите множественные разрывы строк с помощью функции поиска и замены

Вы можете быстро удалить несколько разрывов строк с помощью функции поиска и замены в Excel, обработайте ее следующим образом:

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

2. Нажмите Главная > Найти и заменить > Заменять или нажмите кнопку Ctrl + F ярлыки и Найти и заменить диалоговое окно появится.

3. Затем в Найти то, что коробка, пожалуйста, удерживайте ALT ключ, а затем щелкните числа 010 с цифровой клавиатуры. Оставь Заменить пустое поле или введите пробел. Смотрите скриншот:

doc-remove-line-breaks3

4, Затем нажмите Заменить все , все разрывы строк удалены. Смотрите скриншот:

doc-remove-line-breaks2


стрелка синий правый пузырь Удалите множественные разрывы строк с помощью кода VBA

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

1. Нажмите разработчик > Визуальный Бейсик или нажмите Alt + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений, А затем нажмите Вставить > модульи введите следующий код:

Код VBA: удаление нескольких разрывов строк на листе

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с предложением выбрать диапазон, в котором вы хотите удалить разрывы строк, см. снимок экрана:

doc-remove-line-breaks4

3. Затем нажмите OK и все разрывы строк в выделенном фрагменте удалены.


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

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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Получить сейчас

После установки Kutools for Excel выполните следующие действия:

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

2. Нажмите Kutools > Текстовые инструменты > Удалить символы, см. снимок экрана:

doc-remove-line-breaks5

3. В Удалить символы диалоговое окно, отметьте Непечатаемый вариант, и вы можете увидеть результат предварительный просмотр панель, см. снимок экрана:

doc-remove-line-breaks6

4, Затем нажмите OK or Применить. Все разрывы строк будут удалены из выбранных ячеек.

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


Статьи по теме:


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ajay Kumar Mohini · 6 years ago
    Thank You so much yaar. I found it very useful for my day to day office works.
  • To post as a guest, your comment is unpublished.
    Balamurugan · 6 years ago
    Thank you very much. it is really superb
  • To post as a guest, your comment is unpublished.
    meter21 · 7 years ago
    Thank you werry helpfull for my and my MYSQL CSV import :-)
  • To post as a guest, your comment is unpublished.
    Mary Pugh · 7 years ago
    THANK YOU!!! I have been battling blank lines in cell for too long.

    You solved the problem...thank you so much
  • To post as a guest, your comment is unpublished.
    kcjt2009 · 7 years ago
    I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return?

    Sub RemoveCarriage()
    'Update 20131216
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
    Next
    End Sub


    Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.