Excel 2013, 2010 жана 2007-жылы уячалардан сызыктарды (каретканын кайтарууларын) кантип алып салуу керек

Бул окуу куралы сизди Excelдеги уячалардан каретка кайтарымын жок кылуунун үч жолу менен тааныштырат. Сиз ошондой эле сызыктарды башка символдор менен алмаштырууну үйрөнөсүз. Бардык сунушталган чечимдер Excel 2013, 2010, 2007 жана 2003-жылы иштейт.

Ар кандай себептерден улам текстте сызыктар пайда болушу мүмкүн. Көбүнчө кареталарды кайтаруу иш китебинде пайда болот, мисалы, текст веб-баракчадан көчүрүлгөндө, алар кардардан алынган иш китебинде болгондо же биз аларды баскычтарды басуу менен өзүбүз кошкондо. Alt+Enter.

Алардын себеби кандай болсо да, азыр кыйынчылык вагон кайтарымын алып салуу болуп саналат, анткени алар фразаларды издөөгө тоскоол болуп, ороп коюу иштетилгенде мамыча башаламандыкка алып келет.

Бардык үч сунушталган ыкмалар абдан тез. Сизге эң ылайыктуусун тандаңыз:

  • Бардык сызыктарды бир баракта тез иретке келтирүү үчүн кол менен жок кылабыз.
  • Биз формулаларды колдонуу менен сызыктарды алып таштайбыз жана ошентип клеткалардагы тексттик маалыматтарды комплекстүү иштетүүнү орнотобуз.
  • Биз VBA макросун бир нече иш китептериндеги сызыктарды тазалоо үчүн колдонобуз.

Эскертүү: Адегенде «Каретаны кайтаруу» жана «Сызыктык берүү» терминдери машинкаларда иштөөдө колдонулган жана эки башка операцияны билдирген. Кызыккан окурман интернеттен бул тууралуу толук маалыматты өз алдынча таба алат.

Компьютерлер жана текстти иштетүүчү программалык камсыздоо машинкалардын өзгөчөлүктөрүн эске алуу менен иштелип чыккан. Мына ошондуктан азыр эки башка басып чыгарууга мүмкүн эмес символдор саптын үзүлүшүн көрсөтүү үчүн колдонулат: вагон кайтаруу (Ташуу кайтаруу, CR же ASCII коду 13) жана Саптык которуу (Line feed, 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() MyRange Диапазон катары күңүртөттү Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ActiveSheet.UsedRange ичиндеги ар бир MyRange үчүн If 0 < InStr(MyRange, Chr(10)) Анда MyRange(10) = Replace(XNUMX), " ") End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Эгерде сиз VBA менен жакшы тааныш эмес болсоңуз, мен сизге VBA кодун Excelге кантип киргизүү жана аткаруу боюнча макаланы окуп чыгууну сунуштайм.

Таштап Жооп