Tecnología

Inicio

Cómo eliminar Cada tercera fila en una hoja de cálculo de Excel

February 12

Microsoft Excel es una aplicación de hoja de cálculo con funciones avanzadas para la manipulación, clasificación y cartografía de datos numéricos. Excel tiene muchas características y funciones disponibles que realizan diversas acciones que el usuario pueda requerir. Cuando la funcionalidad incorporada no cumple con los requisitos del usuario, el lenguaje de programación incluido, Visual Basic para Aplicaciones (VBA), se puede utilizar en su lugar. VBA es un lenguaje de programación robusto disponible para las operaciones que se ejecutan desde el interior de la hoja de cálculo. Una operación como la eliminación de filas en función de los requerimientos del cliente es un ajuste perfecto para VBA.

Instrucciones

1 Abra la hoja de cálculo de Microsoft Excel desde el que se desea borrar cada tercera fila.

2 Añadir datos a doce primeras filas de la hoja de cálculo en la columna "A"

3 Abra el menú de macros pulsando las teclas "F8", "Alt" y.

4 Enter "Deletethree" en el cuadro Nombre de la macro y haga clic en el botón "Crear".

5 Pegue el siguiente código debajo del texto "Sub Deletethree":

"variables Dim.

Y = 1
I = 1

Establecer XRNG = Selección

'Loop para cada fila en la selección

For xCounter = 1 To xRng.Rows.Count

Si Y = 3 A continuación,

"... Eliminar una fila completa de las células.
xRng.Cells (I) .EntireRow.Delete
Y = 1
"De lo contrario ...
Más
"... Me incrementar por uno para desplazarse a través de rango.
I = i + 1
Y = Y + 1
Terminara si

Siguiente XCounter

6 Guardar la macro "Deletethree" pulsando las teclas "S" "Ctrl" y. Cierre la ventana "Microsoft Visual Basic" para volver a la aplicación Excel.

7 Resalte las celdas A1 a A12 en la hoja de cálculo.

8 Pulse la tecla "F8", "Alt" y abrir el menú macro. Seleccione la macro "Deletethree" y haga clic izquierdo en el botón "Ejecutar". Al término de la macro, se retira cada tercera fila.

Consejos y advertencias

  • Cambiar el número en la línea de código "Si Y = 3 A continuación," para borrar filas en un intervalo diferente.
  • No resaltar toda la columna - esto hará que la macro para ejecutar de forma indefinida.