העתק נתונים מגליון אקסל אחד למשנהו באמצעות מאקרו

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

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

אזור העתק משנה ()
Dim Quelltab כגיליון עבודה
לעמעם כרטיסיית יעד כגליון עבודה
עמום תא כטווח
דלפק מונה כל עוד
מונה = 1
טווח = "A1: A10"
הגדרת כרטיסיית מקור = ActiveWorkbook.Worksheets ("טבלה 1")
הגדר כרטיסיית יעד = ActiveWorkbook.Worksheets ("טבלה 2")
עבור כל תא ב- SourceTab.Range ("A1: A10")
תאי טבלת מטרות (מונה, 1) = תא
מונה = מונה + 1
התא הבא
סיום תת

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

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

האזור A1: A10 מועתק במאקרו. אם ברצונך להשתמש באזור אחר, התאם את המאקרו בהתאם.

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

כדי להיכנס למאקרו, הקש ALT F11 ב- Excel כדי להציג את עורך VBA. השתמש בפקודה INSERT - MODULE כדי להוסיף גיליון מודול ריק. כדי להפעיל את המאקרו ישירות מ- Excel, השתמש בצירוף המקשים ALT F8.

העתק דף עבודה שלם בתוך חוברת עבודה

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

Sub CopyActiveTable ()
ActiveSheet.Copy After: = גליונות עבודה (גליונות עבודה. ספירה)
סיום תת

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