Kako odstraniti vse prazne celice
Želite izbrisati vse celice v aktivni tabeli, ki so prazne? To ni problem z makrom. Naslednji makro izbriše vse prazne celice v aktivni tabeli:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks). Izberite
Izbrisati premik: = xlUp
End Sub
Makro samodejno poišče vse prazne celice v uporabniškem območju aktivne tabele in te celice izbriše. Celice pod njim so premaknjene navzgor. Tako dobite zelo stisnjeno mizo.