¿Cómo insertar un número específico de columnas a intervalos fijos en Excel?

En el uso diario de Excel, es posible que te encuentres en una situación en la que necesites agregar más columnas entre las columnas existentes. Por supuesto, puedes insertar las columnas una por una utilizando la función Insertar. Pero cuando estás frente a una gran cantidad de datos y necesitas insertar tres columnas después de cada segunda o enésima columna, la función Insertar no es aparentemente efectiva. Entonces, ¿cómo puedes completar rápidamente esta tarea? En este tutorial, hablaremos sobre dos métodos sencillos para resolver el problema.

Usa código VBA para insertar un número específico de columnas en blanco en el rango de datos a intervalos fijos

Usa Kutools para Excel para insertar un número específico de columnas en blanco en el rango de datos a intervalos fijos

Podemos usar el siguiente "código VBA" para insertar un número específico de columnas en blanco después de cada enésima columna. Por favor, sigue los siguientes pasos.

1. Presiona las teclas "Alt + F11" en Excel, y se abrirá la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haz clic en "Insertar" > "Módulo" y pega la siguiente macro en la ventana "Módulo".

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Presiona la tecla "F5" para ejecutar este código. Aparecerá un cuadro de diálogo para recordarte que selecciones el "rango de datos" en el que deseas insertar columnas en blanco.

4. Haz clic en el botón "Aceptar". Aparecerá otro cuadro de diálogo; por favor, introduce "el número de intervalos de columnas" en el cuadro "Ingresar intervalo de columnas".

5. Continúa haciendo clic en el botón "Aceptar". Aparecerá el tercer cuadro de diálogo; por favor, especifica "el número de columnas que deseas insertar en cada intervalo" en el cuadro.

6. Haz clic en el botón "Aceptar" para obtener el resultado.

Si no quieres usar el método del código VBA, la función "Insertar Filas y Columnas en Blanco" de "Kutools para Excel" es la solución perfecta para ti. Con esta función, puedes insertar un número específico de columnas en el rango de datos a intervalos fijos con solo unos pocos clics.

1. Selecciona primero el rango de datos existente. Luego haz clic en "Kutools" > "Insertar" > "Insertar Filas y Columnas en Blanco".

2. Aparece el cuadro de diálogo "Insertar Filas y Columnas en Blanco". Puedes ver el rango de datos que seleccionaste en el paso 1 mostrado en el cuadro Rango. Elige la opción "Columnas en blanco" en la sección "Tipo de inserción". Y especifica "el número de intervalos de columnas" y "las columnas que deseas insertar en cada intervalo". Aquí ingresé 1 y 3 respectivamente.

3. Haz clic en el botón "Aceptar" para finalizar la configuración y obtener el resultado.