Saltar al contenido principal

¿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


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

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.
doc insertar-columnas-a-intervalos 1

4. Haga clic en el OK botón. Aparece otro cuadro de aviso, ingrese el número de intervalos de columnas existentes Introducir intervalo de columna encajonar.
doc insertar-columnas-a-intervalos 2

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.
doc insertar-columnas-a-intervalos 3

6. Haga clic en el OK Botón para obtener el resultado.
doc insertar-columnas-a-intervalos 4


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

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.
doc insertar-columnas-a-intervalos 5

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.
doc insertar-columnas-a-intervalos 6

3. Haga clic en el OK botón para finalizar la configuración y obtener el resultado.
doc insertar-columnas-a-intervalos 7

Note: 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.


Otras operaciones (artículos)

¿Cómo insertar rápidamente una línea basada en la fecha actual en Excel?
Supongamos que hay una hoja que contiene una fila con fechas, y ahora quiero insertar una línea directamente a la fecha actual que cambiará automáticamente al abrir el libro de trabajo todos los días. ¿Hay algún truco que pueda resolverlo en Excel?

¿Cómo insertar siempre una fila en blanco debajo en lugar de arriba en Excel?
Como todos sabemos, al insertar una fila en blanco en una hoja de trabajo, la fila en blanco siempre se insertará encima de la fila o celda seleccionada. Pero, a veces, es posible que deba insertar la fila debajo de la celda o fila seleccionada. ¿Cómo podrías resolver este trabajo en Excel?

¿Cómo insertar una nueva fila en blanco automáticamente mediante el botón de comando en Excel?
En muchos casos, es posible que deba insertar una nueva fila en blanco en una posición específica de su hoja de trabajo. En este artículo, le mostraremos cómo insertar una nueva fila en blanco automáticamente haciendo clic en un Botón de comando en Excel.

¿Cómo insertar una fila en blanco después de un texto específico en Excel?
Si desea insertar filas en blanco después de un texto específico como se muestra en la siguiente captura de pantalla, ¿cómo manejarlo rápida y fácilmente sin insertarlas manualmente una por una?


  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations