Съдържание
Как да премахнете всички празни клетки
Искате ли да изтриете всички клетки в активната таблица, които са празни? Това не е проблем с макрос. Следният макрос изтрива всички празни клетки в активната таблица:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks).
Избор. Изтриване на Shift: = xlUp
End Sub
Макросът автоматично търси всички празни клетки в потребителската област на активната таблица и изтрива тези клетки. Клетките под него са изместени нагоре. Така получавате силно компресирана таблица.
