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

En su uso diario de Excel, es posible que se encuentre con una situación en la que necesite agregar más columnas entre las columnas existentes. Por supuesto, puede insertar las columnas una por una utilizando la función Insertar. Pero cuando se enfrenta a una gran cantidad de datos y necesita insertar tres columnas después de cada segunda o enésima columna, la función Insertar aparentemente no es efectiva. Entonces, ¿cómo puedes terminar rápidamente la tarea? En este tutorial, hablaremos sobre dos métodos fáciles para resolver el problema.

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

Inserte un número específico de columnas en blanco en el rango de datos a intervalos fijos con una característica sorprendente

---

Podemos usar lo siguiente Código VBA para insertar un número específico de columnas en blanco después de cada n-ésima columna. Por favor, haga lo siguiente.

1. presione el Alt + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Módulo y pegue la siguiente macro en el Módulo Ventana.

Código de VBA: inserte un número específico de columnas en los datos a intervalos fijos

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. presione el F5 clave para ejecutar este código. Aparecerá un cuadro emergente para recordarle que seleccione el rango de datos en el que desea insertar columnas en blanco.

4. Haga clic en el OK botón. Aparece otro cuadro de aviso, ingrese el número de intervalos de columnas en el capítulo respecto a la Introducir intervalo de columna encajonar.

5. Continúe haciendo clic en el OK botón. Aparece el tercer cuadro de aviso, especifique el número de columnas que desea insertar en cada intervalo en el cuadro.

6. Haga clic en el OK Botón para obtener el resultado.

---

Si no desea utilizar el método de código VBA, el Insertar filas y columnas en blanco característica de Kutools for Excel es la solución perfecta para usted. Con esta función, puede insertar el número específico de columnas en el rango de datos a intervalos fijos con solo unos pocos clics.

Antes de aplicar Kutools for Excel, descárguelo e instálelo primero.

1. Seleccione primero el rango de datos existente. Luego haga clic Kutools > recuadro > Insertar filas y columnas en blanco.

2. los Insertar filas y columnas en blanco aparece el cuadro de diálogo. Puede ver el rango de datos que seleccionó en el paso 1 que se muestra en el cuadro Rango. Elegir la Columnas en blanco opción en el Tipo de inserción sección. y especificar el número de columnas intervalos y columnas que desea insertar en cada intervalo. Aquí ingreso 1 y 3 por separado.

3. Haga clic en el OK botón para finalizar la configuración y obtener el resultado.

Nota:: Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarla y luego vaya a aplicar la operación de acuerdo con los pasos anteriores.

---