Како уклонити све празне ћелије
Желите да избришете све ћелије у активној табели које су празне? Ово није проблем са макроом. Следећи макро брише све празне ћелије у активној табели:
Суб ЕмптиДелете ()
АцтивеСхеет.УседРанге.СпециалЦеллс (клЦеллТипеБланкс).
Селецтион.Делете Схифт: = клУп
Енд Суб
Макро аутоматски тражи све празне ћелије у корисничком подручју активне табеле и брише те ћелије. Ћелије испод ње су померене нагоре. Тако добијате високо компримовану табелу.