צפה בוידאו - הכנס שורה ריקה אחרי כל שורה ב- Excel
אנשים שעובדים עם מערכות נתונים גדולות זקוקים לעיתים לדברים פשוטים כגון הוספה/מחיקה של שורות או עמודות.
אמנם יש כבר הרבה דרכים שונות (ופשוטות) להוסיף שורות ב- Excel, אך בכל הנוגע להוספת שורה ריקה אחרי כל שורה אחרת (או כל שורה שלישית או רביעית), הדברים מסתבכים מעט.
הכנס שורה ריקה אחרי כל שורה אחרת
במדריך זה אראה לך כמה דרכים פשוטות באמת להכניס שורה ריקה אחרי כל שורה במערך הנתונים הקיים (או כל שורה n).
מכיוון שאין דרך ישירה להוסיף שורות בין השורות, השיטה המכוסה במאמר זה הן פתרונות לעקיפת הבעיה, ואם אתה מרגיש בנוח עם VBA, תוכל לעשות זאת בלחיצה אחת.
שימוש בעמוד עוזר ובתכונת המיון
נניח שיש לך מערך נתונים כפי שמוצג להלן וברצונך להוסיף ריק בין השורות הקיימות.
להלן השלבים להוספת שורות ריקות בין השורות הקיימות:
- הכנס עמודה ריקה משמאל למערך הנתונים. לשם כך, לחץ באמצעות לחצן העכבר הימני על כותרת העמודות של העמודה השמאלית ביותר ולחץ על הוספה.
- הזן את הטקסט 'HelperColumn' ב- A1 (תוכל להשתמש בכל טקסט שתרצה)
- הזן 1 בתא A2 ו -2 בתא A3.
- בחר את שני התאים והנח את הסמן בפינה השמאלית התחתונה של הבחירה. כאשר הסמן משתנה לסמל פלוס, לחץ עליו פעמיים. זה ימלא את העמודה כולה במספרים הולכים וגדלים
- עבור אל התא המלא האחרון בעמודת העזר ולאחר מכן בחר את התא שמתחתיו.
- הזן 1 בתא זה ו -2 בתא שמתחתיו
- בחר את שני התאים והנח את הסמן בפינה השמאלית התחתונה של הבחירה.
- כאשר הסמן משתנה לסמל פלוס, לחץ עליו וגרור אותו כלפי מטה. זה ימלא סדרת מספרים (בדיוק כפי שהגענו בשלב 3). ודא שאתה מקבל יותר מספרים ממה שיש לך במערך הנתונים. לדוגמה, אם יש 10 רשומות במערך הנתונים, הקפד למלא לפחות 10 תאים בשלב זה. לאחר שתסיים, מערך הנתונים שלך ייראה כפי שמוצג להלן.
- בחר את מערך הנתונים כולו (כולל כל התאים בעמודת העזר).
- לחץ על הכרטיסייה נתונים
- לחץ על האפשרות מיון
- בתיבת הדו -שיח מיין, השתמש בהגדרות הבאות:
- מיין לפי: עוזר
- מיין לפי: ערך התא
- סדר: מהקטן עד הגדול ביותר
- לחץ על אישור. זה ייתן לך את מערך הנתונים כפי שמוצג להלן.
- מחק את עמודת העזר.
תוכל להבחין שברגע שתלחץ על אישור בתיבת הדו -שיח מיון, היא מסדרת מחדש את השורות באופן מיידי ועכשיו יש לך שורה ריקה אחרי כל שורה במערך הנתונים שלך.
במציאות, זה לא ממש הכנסת שורה ריקה. שיטת מיון זו היא פשוט סידור מחדש של הנתונים על ידי הצבת שורות ריקות מתחת למערך הנתונים בין השורות במערך הנתונים.
תוכל גם להרחיב את אותו ההיגיון ל- הכנס שורה ריקה אחרי כל שתי שורות או כל שלוש שורות.
נניח שיש לך את מערך הנתונים כפי שמוצג להלן ואתה רוצה לקבל שורה ריקה אחרי כל שתי שורות.
להלן השלבים לביצוע פעולה זו:
- הכנס עמודה ריקה משמאל למערך הנתונים. לשם כך, לחץ באמצעות לחצן העכבר הימני על כותרת העמודות של העמודה השמאלית ביותר ולחץ על הוספה.
- הזן את הטקסט 'HelperColumn' ב- A1 (תוכל להשתמש בכל טקסט שתרצה)
- הזן 1 בתא A2 ו -2 בתא A3.
- בחר את שני התאים והנח את הסמן בפינה השמאלית התחתונה של הבחירה. כאשר הסמן משתנה לסמל פלוס, לחץ עליו פעמיים. זה ימלא את העמודה כולה במספרים הולכים וגדלים
- עבור אל התא המלא האחרון בעמודת העזר ולאחר מכן בחר את התא שמתחתיו.
- הזן 2 בתא זה ו -4 בתא שמתחתיו. אנו משתמשים במספרים בכפלים של 2 מכיוון שאנו רוצים שורה ריקה אחת אחרי כל שתי שורות.
- בחר את שני התאים והנח את הסמן בפינה השמאלית התחתונה של הבחירה.
- כאשר הסמן משתנה לסמל פלוס, לחץ עליו וגרור אותו כלפי מטה. זה ימלא סדרת מספרים (בדיוק כפי שהגענו בשלב 3). ודא שאתה מקבל מספר גדול יותר ממה שיש לך במערך הנתונים. לדוגמה, אם יש 10 רשומות במערך הנתונים, ודא שאתה מקבל לפחות עד למספר 10.
- בחר את מערך הנתונים כולו (כולל כל התאים בעמודת העזר).
- לחץ על הכרטיסייה נתונים
- לחץ על האפשרות מיון
- בתיבת הדו -שיח מיין, השתמש בהגדרות הבאות:
- מיין לפי: עוזר
- מיין לפי: ערך התא
- סדר: מהקטן עד הגדול ביותר
- לחץ על אישור. זה ייתן לך את מערך הנתונים הסופי כפי שמוצג להלן (עם שורה ריקה אחרי כל שורה שנייה במערך הנתונים)
- מחק את עמודת העזר.
באופן דומה, במידה ותרצה להוסיף שורה ריקה אחרי כל שורה שלישית, השתמש במספר 3, 6, 9 וכן הלאה בשלב 5.
שימוש בקוד VBA פשוט
אמנם אתה צריך הרבה דרכים לעקיפת הבעיה כדי להוסיף שורות ריקות חלופיות באקסל, אך עם VBA הכל חתיכת עוגה.
עם קוד VBA פשוט, כל שעליך לעשות הוא לבחור את מערך הנתונים שבו ברצונך להוסיף שורה ריקה אחרי כל שורה, ופשוט להפעיל את הקוד (לוקח לחיצה אחת).
להלן קוד VBA שיכניס שורה ריקה אחרי כל שורה במערך הנתונים:
Sub InsertAlternateRows () 'קוד זה יוסיף שורה אחרי כל שורה בבחירה' קוד זה נוצר על ידי Sumit Bansal מ- trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 ל- CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). בחר הבא ואני מסיים תת
הקוד הנ"ל סופר את מספר השורות הכולל בבחירה ומשתמש בלולאה For Next כדי לעבור בין כל שורה ולהכניס שורה ריקה אחרי כל שורה קיימת במערך הנתונים.
להלן השלבים למיקום קוד VBA זה בעורך VB ב- Excel:
- העתק את הקוד לעיל
- עבור לכרטיסייה מפתחים ולחץ על האפשרות Visual Basic. פעולה זו תפתח את עורך VB. תוכל גם להשתמש בקיצור המקשים ALT + F11
- בעורך VB, לחץ באמצעות לחצן העכבר הימני על כל אובייקט בסייר הפרויקטים
- העבר את הסמן מעל האפשרות הוספה ולאחר מכן לחץ על מודול. זה יכניס מודול חדש
- בחלון קוד המודול, הדבק את הקוד לעיל.
לאחר שהקוד נמצא בעורך VB, כעת תוכל להשתמש בקוד זה להוספת שורות ריקות אחרי כל שורה אחרת במערך הנתונים.
להלן השלבים לשימוש בקוד להוספת שורות ריקות אחרי כל שורה:
- בחר את מערך הנתונים כולו (למעט שורת הכותרת)
- לחץ על הכרטיסייה מפתחים (אם אין לך את הכרטיסייה מפתחים, לחץ כאן כדי ללמוד כיצד להשיג אותה)
- לחץ על האפשרות 'פקודות מאקרו'
- בתיבת הדו -שיח מאקרו, בחר את המאקרו - 'InsertAlternateRows'
- לחץ על הפעלה
זהו זה!
השלבים שלעיל יכניסו מיידית שורות ריקות לסירוגין במערך הנתונים.
ישנן דרכים רבות ושונות להפעלת מאקרו ב- Excel. לדוגמה, אם עליך לעשות זאת לעתים קרובות למדי, תוכל להוסיף מאקרו זה לסרגל הכלים לגישה מהירה כך שתוכל להריץ אותו בלחיצה אחת.
תוכל לקרוא עוד על דרכים שונות להפעלת פקודות מאקרו כאן.
במקרה שתרצה להוסיף שורה ריקה אחרי כל שורה שנייה, תוכל להשתמש בקוד שלהלן:
תת InsertBlankRowAfterEvery2ndRow () 'קוד זה יוסיף שורה אחרי כל שורה שנייה בבחירה' קוד זה נוצר על ידי Sumit Bansal מ- trumpexcel.com Dim rng כ- Range Dim CountRow כמספר שלם i כמספר שלם rng = Selection CountRow = rng .EntireRow.Count For i = 1 ל- CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). בחר הבא ואני מסיים תת
מקווה שמצאת הדרכה שימושית.
