Cuando una hoja de cálculo Excel crece para abarcar miles o incluso cientos de miles de filas , la eliminación manual de cada fila individual tardaría una eternidad . Mientras que una ordenación rápida simplemente mover cada fila en blanco en la parte inferior , esencialmente " borrar" , esto no funcionará si usted necesita los datos para permanecer en su pedido actual. Para eliminar filas en blanco sin cambiar el orden de una hoja de trabajo , tendrá que acceder a la consola de Visual Basic de Excel y crear una macro. Instrucciones
1

Abra la hoja de cálculo de Excel que usted necesita desea trabajar . A continuación, pulse " Alt" y " F11 " para abrir la consola de Visual Basic .
2

Haga clic en cualquiera de las entradas del " VBAProject " la partida en el lado izquierdo de la consola de VBA. Mueve el ratón sobre "Insertar" y elegir la opción " Módulo " en la lista de opciones. Se seleccionará automáticamente su nuevo módulo , y la mitad derecha de la consola se convertirá en una página en blanco . Si tiene varias hojas de cálculo abierta , asegúrese de que va a agregar el módulo a la correcta " VBAProject ". El nombre del documento específico se encuentra a la derecha de la " VBAProject " la partida
3

Copie el siguiente código en la parte superior de la página del módulo de relleno : .
< P > Sub DeleteBlankRows ()

Dim x As Long

aplicación

. Cálculo = xlCalculationManual

. ScreenUpdating = False End

Con

el comando " Sub" crea la macro y el comando " Dim " establece una variable que va a utilizar más tarde. Los comandos " ScreenUpdating " "Cálculo " y apagar sus respectivas funciones , por lo que la macro ejecute sin problemas en grandes hojas de cálculo
4

Pega el siguiente código justo debajo de la última serie : .

Con ActiveSheet

Cells.Replace _

Qué: = "", sustitución : = " ", _

LookAt : = xlWhole , MatchCase : = False
< p > En x = . Cells.SpecialCells ( xlCellTypeLastCell ) . Fila _

Para 1 Step -1

Si WorksheetFunction.CountA ( . Filas ( x)) = 0 entonces
< p> ActiveSheet.Rows ( x). Eliminar

End If

Siguiente

el comando " Cells.Replace " , extremo con

que incluye el dos líneas directamente debajo de él , se ve a las celdas que sólo incluyen un espacio en blanco , y reemplaza ese espacio sin nada. El proceso de borrado no reconoce un espacio en blanco como una celda vacía , por lo que sin esta pieza de código, cualquier fila con un espacio en blanco no se eliminan . El comando "For" tiene el código de inicio en la última celda de la hoja y trabajar su camino de regreso a la cima . El " if" comprueba si la fila está en blanco, y luego lo elimina si es
5

Copia y pega el siguiente código directamente debajo de la última pieza de código: .
< p> Con la aplicación

. Cálculo = xlCalculationAutomatic

. ScreenUpdating = True End

Con

End Sub

Este código simplemente pone el " cálculo" y los ajustes " ScreenUpdating " volver a la normalidad y luego cierra el código con " End sub . " Pulse el botón " Alt" y " F11 " para salir de la consola de VBA. Todos los cambios se guardan automáticamente.
6

Haga clic en la pestaña de " desarrollador " en la parte superior de la pantalla. Haga clic en el botón " Macro " para que aparezca una lista de las macros. Seleccione la macro " DeleteBlankRows " y pulse " Ejecutar ". La macro se eliminarán todas las filas en blanco de la hoja de cálculo .