Изтрийте всички празни клетки

Как да премахнете всички празни клетки

Искате ли да изтриете всички клетки в активната таблица, които са празни? Това не е проблем с макрос. Следният макрос изтрива всички празни клетки в активната таблица:

Sub EmptyDelete ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks).

Избор. Изтриване на Shift: = xlUp

End Sub

Макросът автоматично търси всички празни клетки в потребителската област на активната таблица и изтрива тези клетки. Клетките под него са изместени нагоре. Така получавате силно компресирана таблица.