מאקרו VBA לשרשור עמודות נתונים ב- Excel

דוגמה למאקרו Visual Basic for Applications (VBA)

Sub ConcatColumns()

   Do While ActiveCell <> ""  'Loops until the active cell is blank.

      'The "&" must have a space on both sides or it will be
      'treated as a variable type of long integer.

      ActiveCell.Offset(0, 1).FormulaR1C1 = _
         ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)

      ActiveCell.Offset(1, 0).Select
   Loop

End Sub

הערה: המשפט ActiveCell.Offset(0, 1). ניתן להחליף את FormulaR1C1 במשפט ActiveCell.Offset(0, 1). הנוסחה. ניתן להשתמש בהם עם הצלחה שווה אם אתה משתמש בטקסט ובהמספרים בלבד (לא בנוסחאות). R1C1 המשמש בסוף המשפט הראשון מתייחס לשורה אחת, עמודה אחת והוא הטופס המשמש בדוגמאות בעזרה.
 

כיצד להשתמש במאקרו ב- Microsoft Office Excel 2007

1. פתח את חוברת העבודה המכילה את הנתונים.

2. הקש ALT+F11 כדי להפעיל את עורך Visual Basic.

3. בתפריט הוספה , לחץ על מודול כדי להוסיף מודול. הקלד את המאקרו בחלון הקוד של המודול.

4. בתפריט קובץ , לחץ על סגור וחזור אל Microsoft Excel.

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

6. לחץ על התא העליון בעמודה השמאלית של הנתונים שברצונך לשרשר. לדוגמה, אם התאים A1:A100 ו- B1:B100 מכילים נתונים, לחץ על תא B1.

7. לחץ על הכרטיסיה מפתחים. אם הכרטיסיה מפתחים אינה מוצגת, בצע את הפעולות הבאות:

   1. לחץ על לחצן Microsoft Office ולאחר מכן לחץ על אפשרויות Excel.

   2. לחץ על פופולרי.

   3. לחץ כדי לבחור בתיבת הסימון הצג את הכרטיסיה 'מפתחים' ברצועת הכלים.

   4. לחץ על אישור כדי לסגור את תיבת הדו-שיח אפשרויות Excel.

8. לחץ על פקודות מאקרו בקבוצה קוד.

9. בחר את המאקרו ConcatColumns ולאחר מכן לחץ על הפעל.

כיצד להשתמש במאקרו ב- Microsoft Office Excel 2003 ובגרסאות קודמות של Excel

1. פתח את חוברת העבודה המכילה את הנתונים.

2. הקש ALT+F11 כדי להפעיל את עורך Visual Basic.

3. בתפריט הוספה , לחץ על מודול כדי להוסיף מודול. הקלד את המאקרו בחלון הקוד של המודול.

4. בתפריט קובץ , לחץ על סגור וחזור אל Microsoft Excel.

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

6. לחץ על התא העליון בעמודה השמאלית של הנתונים שברצונך לשרשר. לדוגמה, אם התאים A1:A100 ו- B1:B100 מכילים נתונים, לחץ על תא B1.

7. בתפריט כלים , הצבע על פקודות מאקרו ולאחר מכן לחץ על מאקרו. בחר את המאקרו ConcatColumns ולאחר מכן לחץ על הפעל.