Eliminar todas las celdas vacías

Anonim

Cómo eliminar todas las celdas vacías

¿Quiere eliminar todas las celdas de la tabla activa que están vacías? Este no es un problema con una macro. La siguiente macro elimina todas las celdas vacías de la tabla activa:

Sub EmptyDelete ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Seleccionar

Selection.Delete Shift: = xlUp

End Sub

La macro busca automáticamente todas las celdas vacías en el área de usuario de la tabla activa y elimina estas celdas. Las celdas debajo de él se desplazan hacia arriba. Entonces obtienes una tabla altamente comprimida.