Перейти к основному содержанию

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

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

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

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

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

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


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

Вы можете быстро удалить несколько разрывов строк с помощью функции поиска и замены в 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. Нажмите Кутулс > Текстовые инструменты > Удалить символы, см. снимок экрана:

doc-remove-line-breaks5

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

doc-remove-line-breaks6

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

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


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

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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations