Fila de inserción de VBA

Insertar una fila en VBA es algo diferente de insertar una columna en VBA, en las columnas usamos el método de columna completa, pero para insertar filas usamos el método de hoja de trabajo con el comando insertar para insertar una fila, también proporcionamos una referencia de fila donde queremos insertar otra fila similar a las columnas.

Insertar fila con VBA Excel

Podemos realizar la mayoría de las acciones que hacemos en Excel con la codificación VBA. Podemos copiar, pegar, eliminar y podemos hacer muchas más cosas a través del lenguaje VBA. "Insertar fila" es uno de los métodos que usamos a menudo en Excel. En este artículo, le mostraremos cómo realizar el método de inserción de filas en VBA.

¿Cómo insertar una fila en Excel VBA?

A continuación se muestran los diversos métodos de uso de VBA para insertar una fila en Excel.

Método n. ° 1: uso del método de inserción

En VBA para insertar una fila, necesitamos usar una técnica similar a la que hemos usado en la hoja de trabajo de Excel. En VBA necesitamos usar el objeto de rango para insertar la fila.

Por ejemplo, mire el siguiente código.

Código:

 Sub InsertRow_Example1 () Rango ("A1"). Insertar End Sub

Este código se moverá hacia abajo de la celda A1 hasta la B1 e insertará la única celda.

Esto causará muchos problemas en términos de manejo de datos. Esto solo moverá la celda mencionada hacia abajo y todas las demás columnas asociadas permanecerán iguales.

Método n. ° 2: uso de la propiedad de fila completa

En la fila de inserción superior podemos utilizar varios métodos. El siguiente método insertará toda la fila encima de la celda seleccionada.

Paso 1: menciona primero la dirección de la celda .

Código:

Sub InsertRow_Example2 () Rango ("A1"). End Sub

Paso 2: En lugar de simplemente usar, seleccione la propiedad " Fila completa ".

Código:

Sub InsertRow_Example2 () Rango ("A1"). EntireRow. End Sub

Paso 3: Después de acceder a toda la propiedad de la fila, use el método de inserción .

Código:

 Sub InsertRow_Example2 () Rango ("A1"). EntireRow.Insert End Sub

Esto insertará la fila encima de la celda A1. Como A1 es la primera fila, bajará por la celda A1 hasta B1.

Como puede en la imagen de arriba, debe insertar la fila completa, no la celda individual.

Método n. ° 3: uso de números de fila

En el ejemplo anterior, acabamos de usar la dirección de celda única e insertamos la fila. Sin embargo, también podemos insertarlos usando números de fila.

Suponga que desea insertar una fila debajo de la quinta fila, primero debemos mencionar los números de fila usando el objeto RANGE.

Código:

Sub InsertRow_Example3 () Rango ("6: 6"). End Sub

Dado que hemos mencionado toda la fila como 6: 6, necesitamos usar la propiedad Entire Row aquí, podemos usar directamente el método "INSERT".

Código:

 Sub InsertRow_Example3 () Range ("6: 6"). Insert End Sub

Esto también insertará la fila completa, no la celda individual.

En caso de que desee insertar dos filas debajo de la quinta fila, primero debemos seleccionar 2 filas y luego usar el método INSERT.

 Sub InsertRow_Example3 () Range ("6: 7"). Insert End Sub

Esto insertará dos filas debajo de la quinta fila.

De esta manera, podemos insertar tantas filas como sea posible en la hoja de trabajo.

Método n. ° 4: uso de la propiedad de celda activa

Podemos usar la propiedad Active Cell VBA para insertar filas. La celda activa no es más que una celda actualmente seleccionada.

Suponga que está en la celda B5 y desea insertar una fila arriba, puede usar la propiedad de celda activa.

 Sub InsertRow_Example4 () ActiveCell.EntireRow.Insert End Sub

Esto insertará la fila encima de la celda activa.

Método n. ° 5: uso de la propiedad de celda activa con función de compensación

Supongamos que desea insertar una fila después de 2 filas de la celda activa, necesitamos usar la función de compensación para compensar el número de filas.

Suponga que está en la celda B5.

Si desea insertar la fila después de la segunda fila de la celda activa, podemos usar el siguiente código.

Código:

 Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub

Esto insertará una fila después de la sexta fila.

Insertar filas alternativas

La inserción de filas alternativas es a menudo con la que me he encontrado muchas veces. Para ver la siguiente imagen de datos.

Ahora necesitamos insertar filas alternativas. Necesitamos usar bucles para insertar cada fila alternativa.

Código:

 Sub InsertRow_Example6 () Dim K As Integer Dim X As Integer X = 1 Para K = 1 a 4 celdas (X, 1) .EntireRow.Insert X = X + 2 Siguiente K End Sub

Esto insertará filas como esta.

Puede descargar este VBA Insert Row Excel aquí. Plantilla de Excel de fila de inserción de VBA