¿Cómo eliminar rápidamente cada otra fila en Excel?

Si desea eliminar rápidamente cada otra fila o columna en Excel, el punto principal es cómo puede seleccionar primero cada otra fila o columna y luego aplicar la operación de eliminación. Este artículo le mostrará algunos trucos sobre cómo seleccionar primero cada otra fila o columna y luego eliminarlas rápidamente.

Eliminar cada otra fila en Excel con el comando Filtro

Eliminar cada otra fila en Excel con código VBA

Eliminar cada otra fila o columna en Excel con Kutools para Excel

Eliminar cada otra fila en Excel con el comando Filtro

El comando Filtro de Microsoft Excel puede ayudarlo a filtrar rápidamente cada otra fila y luego eliminarlas de una vez, por favor, siga los siguientes pasos:

1. En una columna en blanco junto a los datos originales, ingrese 0,1,0,1…,0,1. En este caso, ingresamos los números en la columna auxiliar C. Consulte la siguiente captura de pantalla:

2. Seleccione la columna C, y haga clic en el botón Filtro bajo la pestaña Datos. Luego haga clic en el botón de flecha junto a C1, y solo marque el 0 bajo la opción Seleccionar todo. Consulte la captura de pantalla:

3. Luego, todas las filas con 1 estarán ocultas. Seleccione las filas visibles con 0, y haga clic en Inicio > Eliminar > Eliminar filas de la hoja para eliminar estas filas. Luego elimina cada otra fila, y necesita hacer clic nuevamente en el botón Filtro para mostrar solo las filas con 1. Consulte las capturas de pantalla:

4. Por último, puede eliminar la columna auxiliar C según sea necesario.

Eliminar cada otra fila en Excel con código VBA

De hecho, la macro VBA también es una buena opción para resolver este problema.

1. Mantenga presionadas las teclas Alt + F11 en Excel, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2.  Haga clic en Insertar > Módulo, y pegue la siguiente macro en la Ventana del Módulo.

Código VBA: Eliminar cada otra fila en la selección:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Presione la tecla F5 para ejecutar esta macro. Luego aparece un cuadro de diálogo para seleccionar un rango. Consulte la captura de pantalla:

4.  Luego haga clic en Aceptar, cada otra fila en el rango seleccionado desde la segunda fila se elimina de inmediato, consulte la captura de pantalla:

Eliminar cada otra fila o columna en Excel con Kutools para Excel

Para un usuario principiante de Microsoft Excel, usar una macro VBA es un poco complicado. La utilidad Seleccionar filas y columnas de intervalo de Kutools para Excel puede ayudarlo a eliminar cada otra fila rápidamente.

Después de instalar Kutools para Excel, realice lo siguiente:

1. Seleccione el rango que desea eliminar cada otras filas, y luego aplique esta utilidad haciendo clic en Kutools > Seleccionar > Seleccionar filas y columnas de intervalo….

2. En el cuadro de diálogo Seleccionar filas y columnas de intervalo, especifique la configuración como se muestra en la siguiente captura de pantalla, y haga clic en el botón Aceptar para seleccionar primero cada otras filas.

3. Luego, cada otra fila en la selección está seleccionada y resaltada. Consulte la captura de pantalla:

4. Luego puede eliminar rápidamente las filas seleccionadas haciendo clic en Inicio > Eliminar > Eliminar filas de la hoja para eliminar todas estas filas. Consulte las capturas de pantalla:

Con esta función, también puede eliminar cada n filas o columnas según sea necesario.

¡Descargue y pruebe gratis Kutools para Excel ahora!