Kustutage kõik tühjad lahtrid

Anonim

Kuidas eemaldada kõik tühjad lahtrid

Kas soovite kustutada kõik aktiivse tabeli tühjad lahtrid? Makro puhul pole see probleem. Järgmine makro kustutab aktiivse tabeli kõik tühjad lahtrid:

Sub EmptyDelete ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks). Valige

Valik. Kustuta Shift: = xlUp

End Sub

Makro otsib automaatselt kõik tühjad lahtrid aktiivse tabeli kasutajapiirkonnast ja kustutab need lahtrid. Selle all olevad rakud nihutatakse ülespoole. Nii saate tugevalt kokkusurutud laua.