העתק את טווח התאים הנוכחי של Excel לטבלה חדשה באמצעות המאקרו VBA

תוכן העניינים

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

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

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

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

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

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

אזור עותק משנה ()
אזור מקור עמום כטווח
Dim NewSheet כ גליון עבודה
הגדר אזור מקור = ActiveCell.CurrentRegion
הגדר NeuesBlatt = חוברות עבודה. הוספת גיליונות עבודה (1)
אזור המקור. העתק יעד: = NeuesBlatt.Range ("A1")
סיום תת

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

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

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

wave wave wave wave wave