Как да премахнете нов ред (връщане на каретка) от клетки в Excel 2013, 2010 и 2007

Този урок ще ви запознае с три начина за премахване на връщане на каретка от клетки в Excel. Ще научите също как да заменяте прекъсванията на редовете с други знаци. Всички предложени решения работят в Excel 2013, 2010, 2007 и 2003.

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

Каквато и да е причината за тях, предизвикателството сега е да се премахнат връщанията на каретката, тъй като те пречат на търсенето по фраза и водят до претрупване на колони, когато обвиването е активирано.

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

  • Ние премахваме всички прекъсвания на редове ръчно, за да подредим бързо нещата на един лист.
  • Премахваме прекъсванията на редовете с помощта на формули и по този начин настройваме сложна обработка на текстови данни в клетки.
  • Използваме VBA макрос, за да изчистим прекъсванията на редовете от няколко работни книги.

Забележка: Първоначално термините „връщане на каретка“ и „подаване на ред“ се използват при работа на пишещи машини и обозначават две различни операции. Един любознателен читател може самостоятелно да намери подробна информация за това в Интернет.

Компютрите и софтуерът за текстообработка са проектирани с оглед на характеристиките на пишещите машини. Ето защо два различни непечатаеми знака сега се използват за обозначаване на нов ред: връщане на карета (Връщане на каретка, CR или ASCII код 13) и Превод на линия (Подаване на ред, LF или ASCII код 10). В Windows и двата знака се използват заедно, а в системите *NIX се използват само нови редове.

Бъди внимателен: И двете опции се намират в Excel. При импортиране от файлове . Txt or . csv данните обикновено съдържат връщане на каретка и преместване на ред. Когато нов ред е въведен ръчно чрез натискане Alt + Enter, Excel вмъква само знак за нов ред. Ако файлът . csv получени от фен на Linux, Unix или друга подобна система, тогава се подгответе за среща само със знак за нов ред.

Премахване на връщане на каретката ръчно

Плюсове: Този метод е най-бързият.

Минуси: Без допълнителни бонуси 🙁

Ето как можете да премахнете нови редове с помощта на „Намерете и заменете"

  1. Изберете всички клетки, в които искате да премахнете връщането на каретката или да ги замените с друг знак.Как да премахнете нов ред (връщане на каретка) от клетки в Excel 2013, 2010 и 2007
  2. Натискане Ctrl + Hза да изведете диалогов прозорец Намерете и заменете (Намиране и замяна).
  3. Поставете курсора в полето Да намеря (Намерете какво) и натиснете Ctrl + J. На пръв поглед полето ще изглежда празно, но ако се вгледате внимателно, ще видите малка точка в него.
  4. в Заменен с (Замени с) въведете всяка стойност, която да вмъкнете на мястото на връщане на каретката. Обикновено за това се използва интервал, за да се избегне случайно залепване на две съседни думи. Ако просто искате да премахнете нов ред, напуснете полето Заменен с (Замени с) празно.Как да премахнете нов ред (връщане на каретка) от клетки в Excel 2013, 2010 и 2007
  5. преса Сменете всички (Заменете всички) и се насладете на резултата!Как да премахнете нов ред (връщане на каретка) от клетки в Excel 2013, 2010 и 2007

Премахнете прекъсванията на редовете с помощта на формули на Excel

Плюсове: Можете да използвате последователни или вложени формули за комплексна проверка на текст в обработената клетка. Например, можете да премахнете връщането на карета и след това да намерите допълнителни начални или завършващи интервали или допълнителни интервали между думите.

В някои случаи прекъсванията на редовете трябва да бъдат премахнати, за да се използва по-късно текстът като аргументи на функцията, без да се правят промени в оригиналните клетки. Резултатът може да се използва например като аргумент на функция ВИЖТЕ (ПОГЛЕДНИ НАГОРЕ).

Минуси: Ще трябва да създадете помощна колона и да извършите много допълнителни стъпки.

  1. Добавете спомагателна колона в края на данните. В нашия пример ще се нарича 1 линии.
  2. В първата клетка на спомагателната колона (C2) въведете формулата за премахване/замяна на нов ред. По-долу са дадени няколко полезни формули за различни поводи:
    • Тази формула е подходяща за използване с комбинации за връщане на каретка/подаване на ред в Windows и UNIX.

      =ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);"");СИМВОЛ(10);"")

      =SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),""),CHAR(10),"")

    • Следната формула е подходяща за замяна на нов ред с всеки друг знак (например „, ” – запетая + интервал). В този случай редовете няма да бъдат комбинирани и няма да се появят допълнителни интервали.

      =СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);"");СИМВОЛ(10);", ")

      =TRIM(SUBSTITUTE(SUBSTITUTE(B2,CHAR(13),""),CHAR(10),", ")

    • И ето как можете да премахнете всички непечатаеми знаци от текста, включително прекъсвания на редове:

      =ПЕЧСИМВ(B2)

      =CLEAN(B2)

    Как да премахнете нов ред (връщане на каретка) от клетки в Excel 2013, 2010 и 2007

  3. Копирайте формулата във всички клетки в колоната.
  4. По желание можете да замените оригиналната колона с нова, с премахнати нови редове:
    • Изберете всички клетки в колона C и натискане Ctrl + C копирайте данните в клипборда.
    • След това изберете клетка B2, натиснете клавишната комбинация Shift + F10 и след това Поставете (Вмъкване).
    • Изтрийте помощната колона.

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

Плюсове: Създайте веднъж – използвайте отново и отново с всяка работна книга.

Минуси: Необходими са поне основни познания по VBA.

Макросът VBA в следващия пример премахва връщането на каретката от всички клетки на активния работен лист.

Sub RemoveCarriageReturns() Dim MyRange As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual За всеки MyRange в 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, препоръчвам ви да проучите статията за това как да вмъкнете и изпълните VBA код в Excel.

Оставете коментар