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 esos métodos que solemos utilizar 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
Fila de inserción superior, en realidad podemos usar 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. Dado que A1 es la primera fila, se moverá hacia abajo de la celda A1 hasta B1.
Como puede ver en la imagen de arriba, debe insertar toda la fila, 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, necesitamos 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 Desplazamiento 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, entonces podemos usar el siguiente código.
Código:
Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow.Insert End Sub
Esto insertará fila después de la 6 ª 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 For K = 1 To 4 Cells (X, 1) .EntireRow.Insert X = X + 2 Next 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
