Poista kaikki tyhjät solut

Anonim

Kuinka poistaa kaikki tyhjät solut

Haluatko poistaa kaikki aktiivisen taulukon tyhjät solut? Tämä ei ole ongelma makron kanssa. Seuraava makro poistaa kaikki aktiivisen taulukon tyhjät solut:

Sub EmptyDelete ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Valitse

Poista vaihto: = xlUp

End Sub

Makro etsii automaattisesti kaikki tyhjät solut aktiivisen taulukon käyttäjäalueelta ja poistaa nämä solut. Sen alla olevat solut siirtyvät ylöspäin. Joten saat erittäin pakatun pöydän.