Прескочи на основното съдържание

Как бързо да премахнете прекъсванията на редовете в Excel?

Автор: Xiaoyang Последна промяна: 2013-12-16

Понякога, когато копирате някои данни от уебсайта или разделяте стойностите си с Alt + Enter клавиши, ще получите няколко нови реда или връщане на каретка, ако искате бързо да премахнете няколко нови реда в Excel, както са показани следните екранни снимки, можете да го направите по следния начин:

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

Премахнете множество прекъсвания на редове с функцията за намиране и замяна

Премахнете множество прекъсвания на редове с VBA код

Премахнете множество прекъсвания на редове с Kutools за Excel


стрелка син десен балон Премахнете множество прекъсвания на редове с функцията за намиране и замяна

Можете бързо да премахнете множество прекъсвания на редове с функцията за намиране и замяна в Excel, моля, обработете я по следния начин:

1. Изберете диапазона, който искате да премахнете няколко прекъсвания на редове.

2. Щракнете Начало > Намерете и заменете > Сменете или кликнете Ctrl + F преки пътища и a Търсене и заместване ще изскочи диалогов прозорец.

3. След това в Намерете това, кутия, моля, задръжте ALT клавиш и след това щракнете върху цифри 010 от цифровата клавиатура. Остави Заменете със празно поле или въведете интервал. Вижте екранна снимка:

doc-remove-line-breaks3

4, И после щракнете върху Замести всички бутон, всички нови линии са премахнати. Вижте екранна снимка:

doc-remove-line-breaks2


стрелка син десен балон Премахнете множество прекъсвания на редове с VBA код

Следният VBA код също може да ви помогне да изтриете всички нови редове в работен лист. Моля, направете следното:

1. Щракнете Софтуерен Инженер > Visual Basic или натиснете 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 за Excel

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

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Махни го сега

След като инсталирате Kutools за Excel, моля, направете следните стъпки:

1. Изберете диапазона, който искате да премахнете връщането на каретката.

2. Кликнете Kutools > Инструменти за текстове > Премахване на символи, вижте екранна снимка:

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 за 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