Cómo eliminar automáticamente cada otra fila en Excel 2003

Microsoft Office tiene una gran cantidad de funciones programadas para ayudar a automatizar las funciones y ecuaciones complicadas. No hay una función programada para borrar cada dos filas en Excel, pero usted puede crear su propia haciendo una macro en la herramienta Editor de Visual Basic. Comandos de macros de registro, y usted puede crear su propia cuenta. Una vez creada la macro correcta, puede utilizar esta función en Excel para eliminar automáticamente todas las demás células en la hoja de cálculo simplemente ejecutando la macro en las celdas resaltadas.

Instrucciones

1 Abra un nuevo libro en Excel y escriba el número "1" en la celda A1. Saltar la celda A2 y escribe "2" en la celda A3. Repita este proceso hasta que tenga los números del 1 al 5 introducidos en las celdas A1 a A9. Las siguientes células deben tener los siguientes números: "1" para A1, "2" para A3, "3" para A5, "4" para A7 y "5" para A9.

2 Haga clic en "Herramientas" y seleccione "Macro". Haga clic en "Editor de Visual Basic."

3 Seleccione la ficha "Insertar" y haga clic en "módulos".

4 Copia el siguiente macro y lo pega en la hoja de Visual Basic:

Delete_Every_Other_Row sub ()

'Dimension variables.

Y = False 'Cambie esto a True si desea

"Eliminar las filas 1, 3, 5, y así sucesivamente.

I = 1

Establecer XRNG = Selección

'Bucle una vez por cada fila de la selección.

Para XCounter = 1 Para xRng.Rows.Count

'Si Y es cierto, entonces ...

Si Y = entonces verdad

"... Eliminar una fila completa de las células.

xRng.Cells (I) .EntireRow.Delete

"De lo contrario ...

Más

"... Me incrementar por uno, así que puede completar un ciclo a través del rango.

I = i + 1

Terminara si

'Si Y es cierto, que sea falso; Y si es falso, que sea cierto.

Y = Y No

Siguiente XCounter

End Sub

5 Haga clic en "Cerrar y volver a Microsoft Excel" para salir, a continuación, probar la macro, poniendo de relieve las filas de A1 a A9 en la hoja de cálculo Excel que hizo previamente. Haga clic en "Herramientas", luego "Macro" y haga clic en "Macros".

6 Seleccione "Delete_Every_Other_Row" en el menú Macro y haga clic en "Ejecutar". Las filas alternas se eliminarán y los números del 1 al 5 ahora se mostrarán en las celdas A1 a A5.