Columna de inserción de Excel VBA

En Excel, si queremos insertar una columna, existen múltiples formas de hacerlo. Podemos hacer clic a la derecha y seleccionar Insertar columna de la lista del menú desplegable o usar Ctrl + Shift + Plus (+) Tecla juntos. Pero, ¿qué sucede si también automatizamos este proceso creando una macro a través de VBA? Esto es bastante útil cuando estamos trabajando en la creación de una macro de gran estructura de codificación o agregando una columna o varias columnas, que también es una tarea a realizar. VBA tiene una columna completa y la función Insertar se usa para insertar una nueva columna.

¿Cómo insertar columna en Excel VBA?

Aprenderemos cómo insertar una columna en Excel usando el código VBA con algunos ejemplos.

Puede descargar esta plantilla de Excel para insertar columnas de VBA aquí - Plantilla de Excel para insertar columnas de VBA

Ejemplo # 1 - Columna de inserción de VBA

Tenemos una tabla de 2 columnas y 11 filas como se muestra a continuación. Ahora automatizaremos el proceso de inserción de columnas de diferentes maneras.

Para esto, siga los pasos a continuación:

Paso 1: Primero inserte un nuevo módulo en VBA, desde la opción de menú Insertar como se muestra a continuación.

Paso 2: Ahora comience una subcategoría en el nombre de la función realizada como Columna de inserción de VBA o en cualquier otro nombre como se muestra a continuación.

Código:

 Sub VBAColumn1 () End Sub

Paso 3: Primero, seleccione el rango de celdas o columnas completas donde queremos insertar una columna, seguido del comando Insertar como se muestra a continuación. El comando Insertar permitirá insertar cualquier fila o columna o celda en la columna o celda de Rango seleccionada.

Código:

 Sub VBAColumn1 () Rango ("B: B"). Insertar End Sub

Paso 4: Ahora seleccione el rango de celdas como referencia desde donde queremos insertar una columna como se muestra a continuación.

Código:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4") End Sub

Paso 5 : Como se explica en la explicación, utilizaremos la columna completa con la función Insertar como se muestra a continuación. Esto permitirá que la columna se inserte.

Código:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4"). EntireColumn.Insert End Sub

Paso 6: Ahora compile el código presionando la tecla funcional F8 y luego haga clic en el botón Reproducir para ejecutar el código completo que se encuentra debajo de la barra de menú como se muestra a continuación. Notaremos que entre la columna 1 y la columna 2, se insertarán dos nuevas columnas en blanco como se muestra a continuación.

Ejemplo # 2 - Columna de inserción de VBA

Hay otro método para insertar una columna. Este método incluye una combinación de varios comandos.

Paso 1: inserte un nuevo módulo desde el menú Insertar.

Paso 2: Y escriba una subcategoría en el nombre de la función Realizada como se muestra a continuación o en cualquier otro nombre.

Código:

 Sub VBAColumn2 () End Sub

Paso 3: Con la ayuda de la variable de dimensión DIM con cualquier alfabeto o nombre, defínalo como Rango, digamos Columna como se muestra a continuación.

Código:

 Sub VBAColumn2 () Dim Column As Range End Sub

Paso 4: Ahora, siguiendo el Rango, use una función Establecer con la columna de dimensión definida como se muestra a continuación, seguida de un signo igual ("=").

Código:

 Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub

Paso 5: ahora use la función de aplicación que es VBA integrado con un rango definido de columna completa B.

Código:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") End Sub

Paso 6: Ahora use la variable Columna con la función Insertar como se muestra a continuación.

Código:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert End Sub

Paso 7: podemos cambiar para insertar una columna a la derecha o izquierda con la ayuda del comando Shift. Normalmente, la columna se inserta en la dirección Derecha siempre desde la celda o columna seleccionada de referencia.

Código:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Paso 8: Por último, seleccione el formato de referencia de origen desde la derecha o debajo, que es para Columna o Fila, según el tipo de inserción.

Código:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Paso 9: ahora está completo. Podemos compilar el código y ejecutarlo. Veremos que se agregará una nueva columna entre Colum1 y Column2 como se muestra a continuación.

Ejemplo # 3 - Columna de inserción de VBA

Este ejemplo es otra forma más fácil de insertar una columna en VBA.

Paso 1: inserte un nuevo módulo

Paso 2: agregue una subcategoría en el nombre de la columna de inserción de VBA como se muestra a continuación.

Código:

 Sub VBAColumn3 () End Sub

Paso 3: Primero seleccione la columna o la referencia de celda donde queremos agregar una columna con la ayuda de Seleccionar como se muestra a continuación.

Código:

 Sub Columnas VBAColumn3 () ("B: B"). Seleccione End Sub

Paso 4: en la segunda línea, use el comando Selección junto con la función Insertar como se muestra a continuación.

Código:

 Sub Columnas VBAColumn3 () ("B: B"). Seleccione Selección. Inserte Fin Sub

Paso 5: Por último, seleccione la posición donde queremos desplazar la nueva columna insertada, ya sea derecha o izquierda con la ayuda de la función Shift. La selección de colocar una nueva columna depende del requisito del individuo.

Código:

 Sub Columnas VBAColumn3 () ("B: B"). Seleccione Selection.Insert Shift: = xlToRight End Sub

Paso 6: Esto completa nuestro código. Ahora podemos compilar el código para encontrar si hay algún error. Si no se encuentra ningún error, ejecute el código. Veremos que se agregará una nueva columna entre la columna1 y la columna2 como se muestra a continuación.

Ejemplo # 4 - Columna de inserción de VBA

En este ejemplo, aprenderemos cómo agregar nuevas columnas después de cada columna ya en pie.

Paso 1: Ahora inserte un módulo desde el menú de inserción.

Paso 2: Después de eso, agregue una subcategoría en el nombre de Columna de inserción de VBA con una secuencia de números.

Código:

 Sub VBAColumn4 () End Sub

Paso 3: ahora usa DIM para definir una variable en cualquier nombre. Hemos utilizado Columna como Entero (en caso de que se usen números)

Código:

 Sub VBAColumn4 () Dim Column As Integer End Sub

Paso 4: a una columna después de cada columna llena de pie, seleccionaremos y utilizaremos la Columna (2) para agregar una nueva columna como se muestra a continuación.

Código:

 Sub VBAColumn4 () Columna tenue como columnas enteras (2). Seleccione End Sub

Paso 5: Abra un bucle For-Next, donde escribiremos las condiciones para insertar una columna una tras otra como se muestra.

Código:

 Sub VBAColumn4 () Columna tenue como columnas enteras (2). Seleccione para el siguiente extremo Sub

Paso 6: Como solo tenemos 2 columnas en nuestros datos de muestra, podríamos agregar solo una nueva columna de esas columnas solamente. Por lo tanto, estamos utilizando 0 a 2 rango de columnas de secuencia.

Código:

 Sub VBAColumn4 () Columna tenue como columnas enteras (2). Seleccione Columna = 0 a 2 Siguiente Fin Sub

Paso 7: Con la ayuda de la función ActiveCell, use WholeColumn para insertar como se muestra a continuación.

Código:

 Sub VBAColumn4 () Columna tenue como columnas enteras (2). Seleccione Columna = 0 a 2 ActiveCell.EntireColumn.Insert Next End Sub

Paso 8: Con la ayuda de la función ActiveCell, use Offset para colocar la columna recién agregada. Estamos usando la posición 0 y 2.

Código:

 Sub VBAColumn4 () Columna atenuada como columnas enteras (2). Seleccione Columna = 0 a 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Seleccione Next End Sub

Paso 9: Ahora compile el código y ejecútelo, si no se encuentra ningún error. Veremos, después de la columna 1 y la columna 2, se agregan nuevas columnas.

Pros de la columna de inserción de Excel VBA

  • Es útil al agregar rápidamente una nueva columna en cualquier rango de celdas.
  • Es fácil de implementar incluso si la estructura del código es enorme.
  • Si estamos trabajando en un código enorme, una nueva columna se convierte en una necesidad para completar el código, el uso de los ejemplos anteriores facilitará la tarea.

Cosas para recordar

  • Si está utilizando el ejemplo 4, recuerde seleccionar el rango de columnas hasta que la tabla sea aplicable.
  • Guardar el archivo en macro enable excel, guarda el código.
  • Inserte solo las columnas aplicables y requeridas para evitar que se agreguen columnas innecesarias.

Artículos recomendados

Esta es una guía para la columna de inserción de VBA. Aquí discutimos cómo insertar Columna en Excel usando el código VBA junto con ejemplos prácticos y una plantilla de Excel descargable. También puede consultar nuestros otros artículos sugeridos:

  1. Función VBAOKUP VBA
  2. Función DCOUNT en Excel
  3. VBA Copy Paste
  4. Función COMBINAR en Excel

Categoría:

VBA