כיצד למחוק כל שורה אחרת ב- Excel (או כל שורה N)

צפה בוידאו - מחק כל שורה אחרת ב- Excel

לפעמים ייתכן שיהיה עליך למחוק כל שורה אחרת (כלומר, שורות חלופיות), או כל שורה שלישית/רביעית/חמישית ב- Excel.

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

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

יש דרכים טובות יותר לעשות זאת.

במדריך זה אראה לך כמה דרכים למחוק כל שורה אחרת ב- Excel באמצעות טכניקת סינון פשוטה. ואם אתה מגניב להשתמש בקוד מאקרו של VBA, נתתי גם קוד VBA קצר שעושה את זה בלחיצה אחת. השיטות מוצגות בעבודת הדרכה זו עבור כל גירסאות Excel (2007, 2010, 2013 ו- 2016)

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

מחק כל שורה אחרת על ידי סינון מערך הנתונים (באמצעות נוסחה)

אם תוכל איכשהו לסנן את כל השורות הזוגיות או את השורות המוזרות, יהיה קל מאוד למחוק את השורות/הרשומות האלה.

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

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

להלן השלבים לסנן ולאחר מכן למחוק כל שורה אחרת (המכילה נתונים לקנדה):

1. בתא הסמוך לכותרת העמודה האחרונה, הזן את הטקסט עוזר עמוד (או כל טקסט כותרת שתרצה שתהיה בעמודת העזר)
2. בתא שמתחת לכותרת עמודת העוזר, הזן את הנוסחה הבאה: = ISEVEN (ROW ()). העתק נוסחה זו לכל התאים. נוסחה זו מחזירה TRUE עבור כל השורות השוות ו- FALSE עבור כל השורות ODD
3. בחר את מערך הנתונים כולו (כולל התאים שבהם הזנו את הנוסחה בשלב הנ"ל).
4. לחץ על הכרטיסייה נתונים
5. לחץ על סמל המסנן. פעולה זו תחיל מסנן על כל הכותרות במערך הנתונים
6. לחץ על סמל המסנן בתא HelperColumn.
7. בטל את הבחירה באפשרות TRUE (כך שבחרת רק באפשרות FALSE)
8. לחץ על אישור. פעולה זו תסנן את הנתונים ותציג רק את הרשומות שבהן ערך HelperColumn הוא FALSE.
9. בחר את כל התאים המסוננים בעמודת העוזר (לא כולל הכותרת)
10. לחץ לחיצה ימנית על כל אחד מהתאים שנבחרו ולחץ על 'מחק שורה'
11. בתיבת הדו -שיח שנפתחת, לחץ על אישור. פעולה זו תמחק את כל הרשומות הגלויות ותראה רק את שורת הכותרת נכון לעכשיו.
12. לחץ על הכרטיסייה נתונים ולאחר מכן לחץ על סמל המסנן. פעולה זו תסיר את המסנן ותוכל לראות את כל הרשומות הנותרות.

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

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

אם ברצונך למחוק כל שורה אחרת החל מהשורה הראשונה ואילך, בחר באפשרות TRUE בשלב 7 ובטל את הבחירה באפשרות FALSE.

הערה: כאשר אתה מוחק את השורות ב- Excel בשיטה שלמעלה, הוא גם מוחק את כל הנתונים שיש לך במכלול (מלבד הנתונים במערך הנתונים). כאשר אתה משתמש בשיטה זו, וודא שאין לך שום דבר משמאל לימין ממערך הנתונים שאתה מוחק.

למרות שהשיטה לעיל היא מצוינת, יש לה שני חסרונות:

1. עליך להוסיף טור חדש ( עוזר עמוד בדוגמה שלנו למעלה)
2. זה יכול לקחת זמן אם עליך למחוק שורות חלופיות לעשות זאת לעתים קרובות

הדרכה קשורה: מחיקת שורות בהתבסס על ערך תא (או מצב) ב- Excel

מחק כל שורה N על ידי סינון מערך הנתונים (באמצעות נוסחה)

בשיטה שלעיל, הראיתי לך כיצד למחוק כל שורה אחרת (שורה חלופית) ב- Excel.

ואתה יכול להשתמש באותו היגיון למחוק כל שורה שלישית או רביעית גם ב- Excel.

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

השלבים למחיקת כל שורה שלישית זהים כמעט לזו שמכוסה בחלק לעיל (למחיקת שורות חלופיות). ההבדל היחיד הוא בנוסחה המשמשת בשלב 2.

להלן השלבים לביצוע פעולה זו:

1. בתא הסמוך לכותרת העמודה האחרונה, הזן את הטקסט עוזר עמוד (או כל טקסט כותרת שתרצה שתהיה בעמודת העזר)
2. בתא שמתחת לכותרת עמודת העוזר, הזן את הנוסחה הבאה: = MOD (ROW (), 3) = 1. נוסחה זו מחזירה TRUE עבור כל שורה שלישית ו- FALSE עבור כל שורה אחרת.
3. בחר את מערך הנתונים כולו (כולל התאים שבהם הזנו את הנוסחה בשלב הנ"ל).
4. לחץ על הכרטיסייה נתונים
5. לחץ על סמל המסנן. פעולה זו תחיל מסנן על כל הכותרות במערך הנתונים
6. לחץ על סמל המסנן בתא HelperColumn.
7. בטל את הבחירה באפשרות TRUE (כך שבחרת רק באפשרות FALSE)
8. לחץ על אישור. פעולה זו תסנן את הנתונים ותציג רק את הרשומות שבהן ערך HelperColumn הוא FALSE.
9. בחר את כל התאים בעמודת העזר
10. לחץ לחיצה ימנית על כל אחד מהתאים שנבחרו ולחץ על מחק שורה
11. בתיבת הדו -שיח שנפתחת, לחץ על אישור. פעולה זו תמחק את כל הרשומות הגלויות ותראה רק את שורת הכותרת נכון לעכשיו.
12. לחץ על הכרטיסייה נתונים ולאחר מכן לחץ על סמל המסנן. פעולה זו תסיר את המסנן ותוכל לראות את כל הרשומות הנותרות.

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

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

הנוסחה המשמשת בשלב 2 משתמשת בפונקציית MOD - שנותנת את השאר כאשר מספר אחד מחולק במספר השני. כאן השתמשתי בפונקציה ROW כדי לקבל את מספר השורה והיא מחולקת ב -3 (כי אנחנו רוצים למחוק כל שורה שלישית).

מכיוון שמערך הנתונים שלנו מתחיל מהשורה השנייה ואילך (כלומר, שורה מספר 2 מכילה את הרשומה הראשונה), אני משתמש בנוסחה הבאה:= MOD (ROW (), 3) = 1

אני משווה את זה ל -1 ולכל שורה שלישית, נוסחת MOD תיתן את השאר כ- 1.

ניתן להתאים את הנוסחה בהתאם. לדוגמה, אם הרשומה הראשונה של מערך הנתונים שלך מתחילה מהשורה השלישית ואילך, הנוסחה תהיה = MOD (ROW (), 3) = 2

מחק אוטומטית כל שורה אחרת (או שורה N) באמצעות מאקרו VBA (שיטה מהירה)

אם עליך למחוק כל שורה אחרת (או כל שורה n) לעתים קרובות למדי, תוכל להשתמש בקוד VBA ולהזמין אותו בסרגל הכלים לגישה מהירה. זה יאפשר לך למחוק במהירות שורות חלופיות בלחיצה אחת.

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

תת מחיקת_כל_אחר_רוב () Dim Rng כטווח הגדרת Rng = Application.InputBox ("בחר את הטווח (לא כולל כותרות)", "בחירת טווח", סוג: = 8) עבור i = Rng.Rows.Count לשלב אחד -2 אם i Mod 2 = 0 ואז Rng.Rows (i). מחק סוף אם הבא i סוף Sub

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

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

משנה Delete_Every_Third_Row () Dim Rng כהגדרת טווח Rng = Application.InputBox ("בחר את הטווח (לא כולל כותרות)", "בחירת טווח", סוג: = 8) עבור i = Rng.Rows.Count לשלב -3 אם i Mod 3 = 0 ואז Rng.Rows (i). מחק סוף אם הבא i סוף Sub

היכן לשים את קוד המאקרו הזה של VBA?

עליך למקם קוד זה במודול רגיל בעורך VB ב- Excel.

להלן השלבים לפתיחת עורך Vb, הוספת מודול והצבת הקוד בו:

1. העתק את קוד ה- VBA לעיל.
2. עבור לכרטיסייה מפתחים.
3. לחץ על Visual Basic.
4. בעורך VB, לחץ באמצעות לחצן העכבר הימני על כל אחד מאובייקטים של חוברת העבודה.
5. עבור אל הוספה ולחץ על מודול.
6. במודול, הדבק את קוד ה- VBA לעיל.
7. סגור את עורך VB.

ברגע שיש לך את הקוד בעורך VB, תוכל להשתמש בשיטות הבאות להפעלת הקוד:

• הפעל מאקרו מעורך VB (על ידי לחיצה על כפתור ההפעלה הירוק בסרגל הכלים של עורך VB)
• על ידי הצבת הסמן על כל שורה בקוד ושימוש במקש F5
• על ידי הקצאת המאקרו לכפתור/צורה
• על ידי הוספת המאקרו לסרגל הכלים של גישה מהירה

להלן הדרכה מפורטת כיצד להריץ מאקרו ב- Excel.

אם עליך לעשות זאת לעתים קרובות, תוכל לשקול להוסיף את קוד ה- VBA לחוברת העבודה המאקרו האישית. בדרך זו, הוא תמיד יהיה זמין עבורך לשימוש בכל חוברות העבודה.

כאשר יש לך קוד VBA בחוברת עבודה, עליך לשמור אותו כקובץ מאופשר המאקרו (עם סיומת .XLSM)

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

מחק כל טור אחר (או כל טור עשירי)

מחיקת כל שורה חלופית או כל שורה שלישית/רביעית היא קלה מכיוון שתוכל להשתמש באפשרות הסינון. כל שעליך לעשות הוא להשתמש בנוסחה המזהה שורות חלופיות (או כל שורה שלישית/רביעית) ומסננת שורות אלה.

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

לכן, אם עליך למחוק כל עמודה אחרת (או כל עמודה שלישית/רביעית/נ '), עליך להיות קצת יותר יצירתי.

בחלק זה, אראה לך שתי שיטות בהן תוכל למחוק כל עמודה אחרת ב- Excel (ותוכל להשתמש באותה שיטה כדי למחוק כל עמודה שלישית/רביעית/נ 'אם תרצה).

מחק עמודות חלופיות באמצעות נוסחאות ושיטת מיון

נניח שיש לך מערך נתונים כפי שמוצג להלן וברצונך למחוק כל עמודה אחרת (למעט עמודת הכותרת A)

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

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

1. הכנס שורה מעל לשורת הכותרת (לחץ באמצעות לחצן העכבר הימני על כל תא בכותרת, לחץ על הוספה ולאחר מכן לחץ על האפשרות שורה שלמה)
2. הזן את הנוסחה הבאה בתא שמעל העמודה השמאלית ביותר במערך הנתונים והעתק עבור כל התאים: = MOD (COLUMN (), 2)
3. המר את ערכי הנוסחה למספרים. לשם כך, העתק את התאים, לחץ באמצעות לחצן העכבר הימני ועבור אל הדבק מיוחד -> הדבק ערכים.
4. בחר את מערך הנתונים כולו (לא כולל כל כותרות בעמודה). בדוגמה זו, בחרתי B1: G14 (ו- לֹא עמודה א)
5. לחץ על הכרטיסייה נתונים
6. לחץ על סמל המיון
7. בתיבת הדו -שיח מיין, בצע את השינויים הבאים:
   • לחץ על כפתור 'אפשרויות' ובתיבת הדו -שיח שנפתחת, לחץ על 'מיין מימין לימין' ולאחר מכן לחץ על אישור
   • בתפריט הנפתח מיון לפי, בחר שורה 1. זו השורה המכילה את תוצאות הנוסחה
   • בתפריט הנפתח הזמנה, בחר הקטן ביותר לגדול ביותר.
8. לחץ על אישור

השלבים שלעיל ממיינים את כל העמודות ומאגדים את כל העמודות החלופיות במקום אחד (בסוף).

עכשיו אתה יכול לבחור את כל העמודות האלה (שעבורן ערך הנוסחה הוא 1) ולמחוק אותן.

למרות שזה לא הפתרון הטוב ביותר, זה עדיין מבצע את העבודה.

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

מדריך קשור: כיצד למיין ב- Excel (לפי שורות, עמודות, צבעים, תאריכים ומספרים)

מחק עמודות חלופיות באמצעות VBA

דרך מהירה נוספת למחוק עמודות חלופיות היא שימוש בקוד VBA שלהלן:

תת מחיקת_כל_אחרת_קול () Dim Rng כטווח הגדר Rng = Application.InputBox ("בחר את הטווח (לא כולל כותרות)", "בחירת טווח", סוג: = 8) עבור i = Rng.Columns.Count לשלב אחד -2 אם i Mod 2 = 0 לאחר מכן Rng.Columns (i). מחק סוף אם הבא i סוף Sub

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

לאחר שתציין את טווח התאים עם הנתונים, הוא ישתמש ב- For Loop וימחק כל עמודה אחרת.

במקרה שתרצה למחוק כל עמודה שלישית, תוכל להשתמש בקוד שלהלן (ולהתאים בהתאם למחיקת העמודה ה- N)

תת מחיקת_כל_טרייד_קולומון () Dim Rng כטווח הגדר Rng = Application.InputBox ("בחר את הטווח (לא כולל כותרות)", "בחירת טווח", סוג: = 8) עבור i = Rng.Columns.Count לשלב -3 אם i Mod 3 = 0 לאחר מכן Rng.Ellums (i). מחק סוף אם הבא i סוף Sub

השלבים היכן למקם קוד VBA זה וכיצד להשתמש בו מכוסים בסעיף לעיל שכותרתו - "מחק אוטומטית כל שורה אחרת (או שורה N) באמצעות מאקרו VBA (שיטה מהירה)"

מקווה שמצאת הדרכה זו של Excel שימושית.