Cómo eliminar cada otra fila de una hoja de cálculo de Excel

Microsoft Excel es una hoja de cálculo popular que provee herramientas útiles para la entrada de datos, cálculo, gráficos, tablas dinámicas y más. Aunque Excel es un programa complejo, con todas las funciones, que no da a los usuarios la capacidad de eliminar filas alternas de una hoja de cálculo de forma predeterminada. La adición de esta funcionalidad requiere que los usuarios definir una tarea automatizada llamada una macro, a continuación, ejecutar esa macro en las filas de hoja de cálculo que desea cambiar.

Instrucciones

1 Abra el Editor de Visual Basic de Excel. Con la hoja de cálculo en Excel abierta, haga clic en "Herramientas" en el menú en la parte superior de la pantalla, a continuación, seleccione "Macro" y "Editor de Visual Basic." Si utiliza Excel 2003 o más, pase a la siguiente etapa.

los usuarios de Excel 2007 se dará cuenta de que el comando anterior no existe en la versión actual de Excel, y que no hay herramientas de edición de macro aparecerá por defecto. Activar el acceso a estas herramientas haciendo clic en el botón de Office en la esquina superior izquierda de la pantalla, a continuación, hacer clic en el botón "Opciones de Excel" en la parte inferior del menú. Localizar el título con la etiqueta "Opciones principales para trabajar con Excel" en el cuadro de diálogo que aparece, a continuación, seleccione la casilla junto a la opción "Mostrar ficha Programador en la cinta" etiqueta. Haga clic en Aceptar." Seleccione la ficha Programador, haga clic en el botón "Visual Basic".

2 Añadir código de macro. Haga clic en "Insertar" del menú en la parte superior de la ventana del editor de Visual Básico Microsoft y elegir la opción "Módulo". Copiar todo el código que aparece a continuación, péguelo en este módulo:

Delete_Every_Other_Row sub ()
'Dimension variables.
Y = False 'Cambie esto a True si desea

' delete rows 1, 3, 5, and so on.

I = 1
Establecer XRNG = Selección
'Bucle una vez por cada fila de la selección.
Para XCounter = 1 Para xRng.Rows.Count

' If Y is True, then...
If Y = True Then
' ...delete an entire row of cells.
xRng.Cells(I).EntireRow.Delete
' Otherwise...
Else
' ...increment I by one so we can cycle through range.
I = I + 1
End If
' If Y is True, make it False; if Y is False, make it True.
Y = Not Y

Siguiente XCounter
End Sub

3 Ejecutar la macro. Volver a la hoja de cálculo sin cerrar el editor de Visual Basic. Resalte las filas de la fila alterna debe ser eliminado. En Excel 2003 y versiones anteriores, haga clic en la opción del menú "Herramientas", luego selecciona "Macro", seguido por la opción "macros". En Excel 2007, seleccione la ficha Programador, haga clic en "Macros". Para ejecutar la macro en cualquiera de las versiones, seleccione la macro con la etiqueta "Delete_Every_Other_Row", a continuación, haga clic en "Ejecutar". Cada fila de número par de la hoja de cálculo elimina.

Consejos y advertencias

• La macro proporcionado elimina todas las filas de número par en una hoja de cálculo. Eliminar filas impares cambiando la "Y = False" valor en la tercera línea de la macro a "Y = True"