Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-03

En una hoja de cálculo de Excel, puedes insertar una fila en blanco entre filas existentes utilizando la función Insertar. Sin embargo, si tienes un rango amplio de datos y necesitas insertar dos filas en blanco después de cada tercera o n-ésima fila, ¿cómo podrías completar esta tarea rápidamente y de manera conveniente?


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

El siguiente código VBA puede ayudarte a insertar un número específico de filas después de cada n-ésima fila dentro de los datos existentes. Por favor, sigue estos pasos:

1. Mantén presionadas 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 el siguiente código en la Ventana del Módulo.

Código VBA: Insertar un número específico de filas en datos a intervalos fijos

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount 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)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Después de pegar este código, presiona la tecla F5 para ejecutarlo; aparecerá un cuadro de diálogo que te recordará seleccionar el rango de datos donde deseas insertar filas en blanco, como se muestra en la captura de pantalla:

select the data range

4. Haz clic en el botón Aceptar, aparecerá otro cuadro de diálogo; por favor, introduce el número de intervalos de fila, como se muestra en la captura de pantalla:

 enter the number of row intervals

5. Continúa haciendo clic en el botón Aceptar; en el siguiente cuadro de diálogo emergente, introduce el número de filas en blanco que deseas insertar, como se muestra en la captura de pantalla:

enter the number of blank rows to insert

6. Luego haz clic en Aceptar, y las filas en blanco se habrán insertado en los datos existentes a intervalos regulares, como se muestra en las capturas de pantalla:

original data arrow right the blank rows are inserted into the existing data at a regular intervals

Insertar un número específico de filas en blanco en un rango de datos basado en valores de celda con código VBA

A veces, es posible que necesites insertar filas en blanco basándote en una lista de valores de celda; en este caso, el siguiente código VBA puede ayudarte, por favor, sigue estos pasos:

1. Mantén presionadas 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 el siguiente código en la Ventana del Módulo.

Código VBA: Insertar un número específico de filas en blanco basado en una lista de números:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Después de pegar este código, presiona la tecla F5 para ejecutarlo; en el cuadro de diálogo emergente, selecciona la lista de números en los que deseas insertar filas en blanco, como se muestra en la captura de pantalla:

select the list of numbers to insert blank rows based on

4. Luego, haz clic en Aceptar, y obtendrás los resultados que necesitas, como se muestra en las siguientes capturas de pantalla:

original data arrow right blank rows are inserted based on the cell values

Insertar un número específico de filas en blanco en un rango de datos a intervalos fijos con una función práctica

Si no estás familiarizado con el código VBA anterior, Kutools para Excel también puede ayudarte; su función Insertar Filas y Columnas en Blanco puede insertar un número específico de filas o columnas en los datos existentes a intervalos fijos de forma rápida y sencilla.

Kutools para Excel ofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia. Integrado con capacidades de inteligencia artificial, Kutools automatiza las tareas con precisión, haciendo que la gestión de datos sea sencilla. Información detallada de Kutools para Excel...  Prueba gratuita...

Después de instalar Kutools para Excel, por favor, sigue estos pasos:

1. Selecciona el rango de datos donde deseas insertar filas en blanco a intervalos.

2. Haz clic en Kutools > Insertar > Insertar Filas y Columnas en Blanco, como se muestra en la captura de pantalla:

click Insert Blank Rows & Columns feature of kutools

3. En el cuadro de diálogo Insertar Fila y Columna en Blanco, selecciona la opción Filas en blanco desde el Tipo de inserción, y luego especifica el número de intervalo y filas en blanco que deseas usar, como se muestra en la siguiente captura de pantalla:

specify the options in the dialog box

4. Luego haz clic en el botón Aceptar, y las filas en blanco se habrán insertado en el rango seleccionado a un intervalo específico, como se muestra en la siguiente captura de pantalla:

original data arrow right  blank rows are inserted into the selected range at a specific interval

¡Descarga y prueba gratis Kutools para Excel ahora!


Copiar e insertar filas varias veces según números específicos con código VBA

Supongamos que tienes un rango de datos, y ahora quieres copiar cada fila y pegarlas varias veces en la siguiente fila basándote en una lista de números, como se muestra en las siguientes capturas de pantalla. ¿Cómo resolverías esta tarea en una hoja de cálculo de Excel?

original data arrow right Copy and insert rows multiple times based on specific numbers

Para manejar esta tarea, te presentaré un código útil; por favor, sigue los siguientes pasos:

1. Mantén presionadas 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 el siguiente código en la Ventana del Módulo.

Código VBA: Copiar e insertar filas varias veces según números específicos:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Después de pegar este código, presiona la tecla F5 para ejecutarlo; en el cuadro de diálogo emergente, selecciona la lista de números en los que deseas copiar e insertar las filas de datos, como se muestra en la captura de pantalla:

select the list of numbers to copy and insert the data rows based on

4. Luego, haz clic en el botón Aceptar, y el número específico de filas se habrá copiado y pegado debajo de cada fila original, como se muestra en las capturas de pantalla:

origianl data arrow right the specific number of  rows are copy and paste under each original row

Copiar e insertar filas varias veces según números específicos con una función sorprendente

Si tienes Kutools para Excel, con su función Duplicar Filas / Columnas basada en valor de celda, puedes insertar las filas o columnas basándote en la lista de números de forma rápida y sencilla.

Kutools para Excel ofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia. Integrado con capacidades de inteligencia artificial, Kutools automatiza las tareas con precisión, haciendo que la gestión de datos sea sencilla. Información detallada de Kutools para Excel...  Prueba gratuita...

Después de instalar Kutools para Excel, por favor, sigue estos pasos:

1. Haz clic en Kutools > Insertar > Duplicar Filas / Columnas basada en valor de celda, como se muestra en la captura de pantalla:

click Duplicate Rows / Columns based on cell value feature of kutools

2. En el Copiar e insertar filas y columnas cuadro de diálogo, selecciona la opción Copiar e insertar filas en la sección Tipo, luego selecciona el rango de datos que deseas duplicar, y luego especifica la lista de valores en los que deseas copiar filas, como se muestra en la captura de pantalla:

set options in the dialog box

4. Luego, haz clic en el botón Aceptar o Aplicar, y obtendrás el siguiente resultado según sea necesario:

original data arrow right the specific number of  rows are copy and paste under each original row

¡Descarga y prueba gratis Kutools para Excel ahora!

Más artículos relacionados:

  • Copiar e insertar fila múltiples veces o duplicar la fila X veces
  • En tu trabajo diario, ¿alguna vez has intentado copiar una fila o cada fila y luego insertarla varias veces debajo de la fila de datos actual en una hoja de cálculo? Por ejemplo, tengo un rango de celdas; ahora quiero copiar cada fila y pegarlas 3 veces en la siguiente fila, como se muestra en la siguiente captura de pantalla. ¿Cómo manejarías esta tarea en Excel?
  • Insertar filas en blanco cuando cambia el valor en Excel
  • Supongamos que tienes un rango de datos, y ahora quieres insertar filas en blanco entre los datos cuando cambia el valor, de modo que puedas separar los valores secuenciales iguales en una columna, como se muestra en las siguientes capturas de pantalla. En este artículo, hablaré sobre algunos trucos para ayudarte a resolver este problema.
  • Copiar filas de múltiples hojas de cálculo basadas en criterios en una nueva hoja
  • Supongamos que tienes un libro con tres hojas de cálculo que tienen el mismo formato, como se muestra en la siguiente captura de pantalla. Ahora, quieres copiar todas las filas de estas hojas de cálculo en las que la columna C contiene el texto “Completado” en una nueva hoja de cálculo. ¿Cómo resolverías este problema rápidamente y fácilmente sin copiar y pegar manualmente una por una?

Las mejores herramientas de productividad para Office

🤖 Kutools AI Aide: Revoluciona el análisis de datos basado en: Ejecución inteligente | Generar código | Crear fórmulas personalizadas | Analizar datos y generar gráficos | Invocar Funciones mejoradas
Funciones populares: Buscar, resaltar o marcar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda por varios criterios | Búsqueda de varios valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Crea rápidamente una lista desplegable | Lista desplegable dependiente | Lista desplegable de selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Alternar el estado de visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de Libro de trabajo y Hoja de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Cifrar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtrar celdas con fuente en negrita/cursiva/tachado...)...
Top15 conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres específicos, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas para combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) | ... y más

Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...


Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo

  • Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
  • ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!