Перейти до основного матеріалу

Як швидко видалити розриви рядків у Excel?

Іноді, коли ви копіюєте деякі дані з веб-сайту або розділяєте свої значення за допомогою Alt + Enter клавіші, ви отримаєте деякі розриви рядків або повернення каретки, якщо ви хочете швидко видалити кілька розривів рядків у Excel, як показано на наступних скріншотах, ви можете зробити це наступним чином:

doc-remove-line-break1 -2 doc-remove-line-break2

Видаліть кілька розривів рядків за допомогою функції Знайти та Замінити

Видаліть кілька розривів рядків за допомогою коду VBA

Видаліть кілька розривів рядків за допомогою Kutools для Excel


стрілка синя права міхур Видаліть кілька розривів рядків за допомогою функції Знайти та Замінити

Ви можете швидко видалити кілька розривів рядків за допомогою функції Знайти та замінити в Excel, обробіть її таким чином:

1. Виберіть діапазон, для якого потрібно видалити кілька розривів рядків.

2. Клацання Головна > Знайти та замінити > заміщати Або натисніть Ctrl + F ярлики та Знайти і замінити відкриється діалогове вікно.

3. Тоді в Знайти те, що , будь ласка, утримуйте кнопку ALT , а потім клацніть цифри 010 з цифрової клавіатури. Залиште Замінити порожнє поле або введіть пробіл. Дивіться знімок екрана:

doc-remove-line-break3

4. А потім клацніть замінити всі кнопку, усі розриви рядків видалено. Дивіться знімок екрана:

doc-remove-line-break2


стрілка синя права міхур Видаліть кілька розривів рядків за допомогою коду VBA

Наступний код VBA також може допомогти вам видалити всі розриви рядків на аркуші. Будь ласка, зробіть так:

1. Клацання Розробник > Візуальний Бейсік або натисніть Alt + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм, потім натисніть кнопку Insert > Модуліта введіть наступний код:

Код 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-break4

3. Потім натисніть OK і всі розриви рядків виділення були видалені.


стрілка синя права міхур Видаліть кілька розривів рядків за допомогою Kutools для Excel

Можливо, іноді ви забудете, як використовувати функцію Знайти та замінити або не знайомі з кодом для видалення множинних розривів рядків, у цій ситуації, Kutools для Excel може допомогти вам вирішити цю проблему.

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

Після встановлення Kutools для Excel виконайте такі дії:

1. Виберіть діапазон, для якого потрібно видалити повернення каретки.

2. Натисніть Кутулс > Текстові інструменти > Видалити символи, див. скріншот:

doc-remove-line-break5

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

doc-remove-line-break6

4. А потім клацніть OK or Застосовувати. Усі розриви рядків буде видалено з вибраних комірок.

Клацніть, щоб дізнатися більше про цю функцію Видалення символів.


Статті по темі:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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