Cómo utilizar "Si Declaración" en Excel para eliminar filas en blanco

Cuando una hoja de cálculo de Excel crece para abarcar miles o incluso cientos de miles, de filas, la eliminación manual de cada fila individual llevaría para siempre. Si bien una especie rápida sería simplemente mover cada fila en blanco en la parte inferior, esencialmente "borrar", esto no va a funcionar si necesita los datos para mantenerse en su orden 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 Excel que es necesario que desea trabajar. A continuación, pulse "Alt" y "F11" para abrir la consola de Visual Basic.

2 Haga clic en cualquiera de las entradas bajo el "VBAProject" la partida en el lado izquierdo de la consola de VBA. Mueva su ratón sobre "Insertar" y seleccione "módulo" de la lista de opciones. Su nuevo módulo se seleccionará automáticamente, y la mitad derecha de la consola se convertirá en una página en blanco. Si tiene varias hojas de cálculo abierta, estar seguro de que va a agregar el módulo a la correcta "VBAProject." El nombre del documento específico se encuentra a la derecha del encabezado "VBAProject".

3 Copia el código siguiente a la parte superior de la página en blanco del módulo:

DeleteBlankRows sub ()

Dim x As Long

con la aplicación

.Calculation = XlCalculationManual

.ScreenUpdating = False

Terminar con

El comando "Sub" crea la macro y el "Dim" mandato establece una variable que se va a utilizar más tarde. La comandos "ScreenUpdating" "Cálculo" y apagan sus respectivas funciones, por lo que la macro funcionar sin problemas en grandes hojas de cálculo.

4 Pegue el siguiente código justo debajo de la última serie:

con ActiveSheet

Cells.Replace _

Qué: = "", Reemplazo: = "", _

LookAt: = xlWhole, MatchCase: = False

Para x = .Cells.SpecialCells (xlCellTypeLastCell) .Row _

Para -1 Paso 1

Si WorksheetFunction.CountA (.Rows (x)) = 0 Entonces

ActiveSheet.Rows (x) .Delete

Terminara si

Siguiente

Terminar con

El comando "Cells.Replace", que incluye las dos líneas directamente debajo de ella, busca cualquier célula que basta con incluir un espacio en blanco, en lugar de que el espacio sin nada. El proceso de eliminación no reconoce un espacio en blanco como una celda vacía, por lo que sin esta pieza de código, cualquier fila con sólo un espacio en blanco no se quedase eliminado. La "Para" comando tiene el código de inicio en la última celda de la hoja y trabajar su camino de regreso a la cima. "Si los" controles de los estados para ver si la fila está en blanco, y luego lo elimina si lo es.

5 Copiar y pegar el siguiente código directamente debajo de la última pieza de código:

con la aplicación

.Calculation = XlCalculationAutomatic

.ScreenUpdating = True

Terminar con

End Sub

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

6 Haga clic en la pestaña "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 eliminará todas las filas en blanco de la hoja de cálculo.