מחק שורות ריקות ב- Excel (עם ובלי VBA)

בעת עבודה עם מערכי נתונים גדולים ב- Excel, ייתכן שיהיה עליך לנקות את הנתונים כדי להמשיך להשתמש בהם. שלב נפוץ לניקוי נתונים הוא מחיקת שורות ריקות מתוכו.

כעת ישנן דרכים שונות שבהן תוכל להשתמש בכך:

  • עבור לכל שורה ריקה ומחק אותה באופן ידני (מייגע מדי וגוזל זמן).
  • מיין את כל מערך הנתונים כך שכל השורות הריקות יהיו בתחתית (עובד אך משנה את מערך הנתונים).
  • השתמש בטכניקה מיוחדת של Go To (או מאקרו) כדי לבחור את כל התאים הריקים בבת אחת ולמחוק את השורות (דרך ללכת).

מחק שורות ריקות (שורות ריקות) ב- Excel

במדריך זה תלמדו שתי דרכים לבחור במהירות את התאים הריקים במערך נתונים:

  • שימוש בתיבת הדו -שיח מעבר למיוחד.
  • שימוש במאקרו VBA.

לאחר שבחרת את התאים הריקים, תוכל למחוק אותם בקלות.

שימוש בטכניקת Go-To Special למחיקת שורות ריקות ב- Excel

נניח שיש לך מערך נתונים כפי שמוצג להלן:

הנתונים לעיל מכילים שלוש שורות ריקות.

להלן השלבים למחיקה מהירה של שורות ריקות (שורות ריקות) ממערך הנתונים הזה.

  • בחר את מערך הנתונים כולו (A1: C13 במקרה זה).
  • הקש על מקש F5. הוא יפתח את תיבת הדו -שיח עבור אל.
    • תוכל לקבל תיבת דו -שיח זו מבית -> עריכה -> חפש ובחר -> עבור אל.
  • בתיבת הדו -שיח עבור אל, לחץ על הלחצן מיוחד. פעולה זו תפתח את תיבת הדו -שיח עבור אל מיוחד.
  • בתיבת הדו -שיח מעבר למיוחד, בחר ריק.
  • לחץ על אישור.

פעולה זו תבחר את כל התאים הריקים במערך הנתונים.

כעת, לאחר שבחרת את כל השורות הריקות, להלן השלבים למחיקת השורות הבאות:

  • לחץ לחיצה ימנית על כל אחד מהתאים שנבחרו ובחר מחק.
  • בתיבת הדו -שיח מחק, בחר 'כל השורה'.
  • לחץ על אישור.

זה ימחק מיידית את כל השורות הריקות במערך הנתונים.

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

להלן סרטון המראה כיצד להשתמש בשלבים לעיל כדי למחוק שורות ריקות ב- Excel.

שימוש במאקרו VBA למחיקת שורות ריקות ב- Excel

למרות שטכניקת 'Go-To Special' היא מהירה בהרבה מכל שיטה רגילה אחרת, אם העבודה שלך מחייבת אותך למחוק שורות ריקות מספר פעמים באותו חוברת עבודה, שימוש במאקרו פשוט של VBA יכול להיות מהיר יותר.

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

למרות שניתן לעשות זאת באמצעות תיבת הדו -שיח Excel Go To Special, אם תיצור מאקרו ותוסיף אותו לסרגל הכלים לגישה מהירה, תוכל לבחור את כל התאים הריקים בלחיצת כפתור (ותחסוך לך כמה קליקים).

להלן השלבים ליצירת קוד VBA לבחירת תאים/שורות ריקות ב- Excel:

  • כאשר חוברת העבודה נבחרה, הקש ALT + F11. פעולה זו תפתח את חלון עורך VB.
  • בעורך VB, תהיה חלונית סייר פרויקטים בצד שמאל. אם אינך יכול למצוא אותו, עבור אל תצוגה -> סייר הפרויקטים.
  • לחץ לחיצה ימנית על כל אחד מהאובייקטים של חוברת העבודה שבה אתה עובד ועבור אל הוספה -> מודול.
  • בחלון המודול, העתק והדבק את הקוד הבא:
    Sub SelectBlanks () Selection.SpecialCells (xlCellTypeBlanks). בחר End Sub

  • סגור את חלון עורך VB או הקש Alt + F11 כדי לחזור לגליון העבודה.
  • לחץ באמצעות לחצן העכבר הימני על אחת מהכרטיסיות בסרט ובחר התאמה אישית של סרגל הכלים לגישה מהירה.
  • בתיבת הדו-שיח אפשרויות Excel, תחת הפקודות בחר מהתפריט הנפתח, בחר פקודות מאקרו.
  • בחר את מאקרו SelectBlanks ולחץ על הלחצן הוסף.
  • לחץ על אישור.

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

פעולה זו תבחר את כל השורות הריקות ולאחר מכן תמחק אותן.

הערה:

  • מכיוון שחוברת עבודה זו מכילה קוד VBA, הקפד לשמור אותו בפורמט .xls או .xlsm.
  • שימוש במאקרו מה- QAT יעבוד אך ורק עבור חוברת העבודה שבה יש לך את קוד המאקרו. אם אתה רוצה שזה יעבוד בחוברת עבודה אחרת, יהיה עליך להכניס אליו את הקוד (כפתור המאקרו ב- QAT יהיה זמין בכל חוברות העבודה). אם אתה רוצה שזה יהיה זמין בכל חוברות העבודה, שקול ליצור תוסף.
זְהִירוּת: אתה יכול גם למחוק את השורות הריקות באמצעות המאקרו, אך מכיוון שלא ניתן לבטל כל דבר שנעשה על ידי המאקרו, כדאי למחוק את השורות באופן ידני.

אז אלה שתי דרכים פשוטות שבהן תוכל להשתמש מחק שורות ריקות ב- Excel (עם ובלי VBA).

אני מקווה שמצאת הדרכה שימושית!

תוכל לעזור בפיתוח האתר, שיתוף הדף עם החברים שלך

wave wave wave wave wave