¿Cómo insertar un número determinado de columnas a intervalos regulares en Excel?
En su uso diario de Excel, puede encontrarse con una situación en la que necesite añadir más columnas entre las columnas existentes. Por supuesto, puede insertar las columnas una por una utilizando la función Insertar. Pero cuando trabaja con una gran cantidad de datos y necesita insertar tres columnas tras cada segunda o enésima columna, la función Insertar claramente no es eficaz. ¿Cómo puede completar esta tarea rápidamente? En este tutorial, hablaremos de dos métodos sencillos para resolver este problema.
Use código VBA para insertar un número específico de Columnas en Blanco en Rango de datos a intervalos fijos
Podemos utilizar el siguiente código VBA para insertar un número específico de columnas en blanco después de cada enésima columna. Siga estos pasos:
1. Pulse las teclas «Alt + F11» en Excel y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue la siguiente macro en la ventana del 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. Pulse la tecla "F5" para ejecutar este código. A continuación, aparecerá un cuadro de diálogo que le recordará que seleccione el «Rango de datos» en el que desea insertar columnas en blanco.
4. Haga clic en el botón «Aceptar». A continuación, aparecerá otro cuadro de diálogo; introduzca el número de intervalos entre columnas en el campo «Introduzca el intervalo de columnas».
5. Siga haciendo clic en el botón «Aceptar». Aparecerá un tercer cuadro de diálogo; especifique en el campo correspondiente el número de columnas que desea insertar en cada intervalo.
6. Haga clic en el botón «Aceptar» para obtener el resultado.
Use Kutools para Excel para insertar un número específico de Columnas en Blanco en Rango de datos a intervalos fijos
Si prefiere no utilizar el método de código VBA, la función «Insertar filas/columnas en blanco» de Kutools para Excel es la solución perfecta para usted. Con ella, podrá insertar un número específico de columnas en un rango de datos a intervalos fijos con solo unos pocos clics.
1. Seleccione primero el rango de datos existente y, a continuación, haga clic en «Kutools» > «Insertar» > «Insertar filas/columnas en blanco».
2. Aparecerá el cuadro de diálogo «Insertar Filas/Columnas en Blanco». Podrá ver las Rango de datos que seleccionó en el paso 1 mostradas en el cuadro de rango. Elija la opción «Columnas en Blanco» en la sección «Tipo de Inserción». Especifique «el número de intervalos entre columnas» y «el número de columnas que desea insertar en cada intervalo». En este ejemplo, he introducido 1 y 3 respectivamente.
3. Haga clic en el botón «Aceptar» para finalizar la configuración y obtener el resultado.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
¿Cómo insertar rápidamente una línea basada en la fecha actual en Excel?
Imagina que tienes una hoja con una fila de fechas y quieres insertar una línea justo a la derecha de la fecha actual, que se actualice automáticamente cada vez que abras el libro. ¿Existe algún truco en Excel para lograrlo?
¿Cómo insertar siempre una fila en blanco debajo en lugar de encima en Excel?
Como todos sabemos, al insertar una fila en blanco en una hoja de cálculo, esta siempre se añade encima de la fila o celda seleccionada. Sin embargo, a veces necesitarás insertarla justo debajo de la celda o fila seleccionada. ¿Cómo puedes lograrlo en Excel?
¿Cómo insertar automáticamente una nueva fila en blanco mediante un botón de comando en Excel?
En muchos casos, necesitará insertar una nueva fila en blanco en una posición específica de su hoja de cálculo. En este artículo le mostramos cómo hacerlo automáticamente con solo pulsar un botón de comando en Excel.
¿Cómo insertar una fila en blanco tras un texto específico en Excel?
Si desea insertar filas en blanco tras un texto específico, como se muestra en la siguiente captura de pantalla, ¿cómo puede hacerlo de forma rápida y sencilla sin tener que insertarlas manualmente una por una?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos