כיצד להסיר מעברי שורות (החזרות עגלה) מתאים ב-Excel 2013, 2010 ו-2007

מדריך זה יציג בפניכם שלוש דרכים להסרת החזרות עגלה מהתאים ב-Excel. תלמדו גם איך להחליף מעברי שורות בדמויות אחרות. כל הפתרונות המוצעים פועלים ב-Excel 2013, 2010, 2007 ו-2003.

מעברי שורות יכולים להופיע בטקסט מסיבות שונות. בדרך כלל החזרות עגלה מתרחשות בחוברת עבודה, למשל כאשר טקסט מועתק מדף אינטרנט, כאשר הם כבר נמצאים בחוברת עבודה שהתקבלה מלקוח, או כאשר אנו בעצמנו מוסיפים אותם על ידי לחיצה על מקשים. Alt + Enter.

לא משנה מה הסיבה להם, האתגר כעת הוא להסיר החזרות כרכרה, מכיוון שהם מפריעים לחיפושי ביטויים ומביאים לעומס בעמודות כאשר גלישה מופעלת.

כל שלוש השיטות המוצגות הן די מהירות. בחר את המתאים לך ביותר:

• אנו מסירים את כל מעברי השורות באופן ידני כדי לעשות סדר במהירות על גיליון אחד.
• אנו מסירים מעברי שורה באמצעות נוסחאות ובכך מגדירים עיבוד מורכב של נתוני טקסט בתאים.
• אנו משתמשים במאקרו VBA כדי לנקות מעברי שורות ממספר חוברות עבודה.

הערה: בתחילה, המונחים "החזרת כרכרה" ו"הזנת קו" שימשו בעת עבודה על מכונות כתיבה וציינו שתי פעולות שונות. קורא סקרן יכול למצוא באופן עצמאי מידע מפורט על כך באינטרנט.

מחשבים ותוכנות עיבוד תמלילים תוכננו תוך התחשבות במאפיינים של מכונות כתיבה. זו הסיבה ששני תווים שונים שאינם ניתנים להדפסה משמשים כעת לציון מעבר שורה: החזרת כרכרה (החזרת רכב, CR או ASCII קוד 13) ו תרגום שורה (הזנת קו, קוד LF או ASCII 10). ב-Windows, שני התווים משמשים יחד, ובמערכות *NIX, משתמשים רק בשורות חדשות.

הזהר: שתי האפשרויות נמצאות באקסל. בעת ייבוא ​​מקבצים .טקסט or . Csv הנתונים מכילים בדרך כלל החזרות עגלה והזנות שורות. כאשר מעבר שורה מוזן באופן ידני על ידי לחיצה Alt + Enter, Excel מוסיף רק תו חדש. אם הקובץ . Csv שהתקבל ממעריץ של לינוקס, יוניקס או מערכת דומה אחרת, ואז להתכונן למפגש עם דמות חדשה בלבד.

הסרת הגררה מחזירה ידנית

יתרונות: שיטה זו היא המהירה ביותר.

חסרונות: ללא הטבות נוספות 🙁

כך תוכל להסיר מעברי שורות באמצעות "מצא והחלף":

1. בחר את כל התאים שבהם ברצונך להסיר החזרות עגלה או להחליף אותם בתו אחר.
2. חדשות ועדכונים Ctrl + Hכדי להעלות תיבת דו-שיח מצא והחלף (מצא והחלף).
3. שים את הסמן בשדה למצוא (מצא מה) ולחץ Ctrl + J. במבט ראשון השדה ייראה ריק, אך אם תסתכלו היטב תראו בו נקודה קטנה.
4. ב הוחלף על ידי (החלף עם) הזן כל ערך להוספה במקום החזרות עגלה. בדרך כלל משתמשים ברווח בשביל זה כדי למנוע הדבקה מקרית של שתי מילים סמוכות. אם אתה רק רוצה להסיר מעברי שורות, עזוב את השדה הוחלף על ידי (החלף ב) ריק.
5. לחץ על הכפתור החלף הכל (החלף הכל) ותהנה מהתוצאה!

הסר מעברי שורה באמצעות נוסחאות 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)

   

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 אם 0 < InStr(MyRange, Chr(10)) ואז MyRange = Replace(MyRange, Chr(MyRange), "Chr ") End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub

אם אינך מכיר יותר מדי את VBA, אני ממליץ לך ללמוד את המאמר כיצד להכניס ולהפעיל קוד VBA באקסל.