ubiquitour.com

Como borrar cada otra fila automáticamente en Excel 2003

Microsoft Office tiene un montón de funciones programadas que le ayudarán a automatizar las ecuaciones y funciones complicadas. No existe ninguna función programada para eliminar cada otra fila en Excel, pero usted puede crear su propio haciendo una macro en la herramienta de Editor de Visual Basic. Macros grabación comandos, y puede crear usted mismo. Una vez creada la macro correcta, puede utilizar esta función en Excel para eliminar automáticamente todas las otras celdas 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 de la celda A2 y escribe "2" en la celda A3. Repita este proceso hasta que tenga los números del 1 al 5 en las celdas A1 a A9. Las celdas siguientes deben tener los siguientes números: "1" A1, "2" para A3, A5, "4" para A7 "3" 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ódulo".

4 La siguiente macro de copiar y pegarlo en la hoja de Visual Basic:

Sub Delete_Every_Other_Row()

' Dimensión variables.

Y = False ' esto cambie a True si desea

' borrar las filas 1, 3, 5 y así sucesivamente.

I = 1

Set xRng = selección

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

Para xCounter = 1 a xRng.Rows.Count

' Si es True, entonces...

Si Y = True entonces

'... .delete toda una hilera de células.

xRng.Cells(I). EntireRow.Delete

' Lo contrario...

Otra cosa

'.. .increment lo uno por lo que podemos recorrer de gama.

I = I + 1

End If

' Si Y es verdad, que sea falso; Si es falso, que sea verdadero.

Y = no Y

XCounter siguiente

End Sub

5 Haga clic en "Cerrar y volver a Microsoft Excel" para salir, entonces prueba la macro poniendo filas A1 a A9 en la hoja de cálculo Excel que hiciste anteriormente. 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". Se eliminarán las filas alternas y números del 1 al 5 se mostrarán ahora en las celdas A1 a A5.