מחק את כל התאים הריקים

כיצד להסיר את כל התאים הריקים

רוצה למחוק את כל התאים בטבלה הפעילה ריקים? זו לא בעיה עם מאקרו. המאקרו הבא מוחק את כל התאים הריקים בטבלה הפעילה:

Sub EmptyDelete ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks).

Selection. מחיקת Shift: = xlUp

סיום תת

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