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 .