¿Cómo insertar un número específico de filas a intervalos fijos en Excel?
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
- Insertar un número específico de filas en blanco en un rango de datos basado en valores de celda con código VBA
- Insertar un número específico de filas en blanco en un rango de datos a intervalos fijos con una función práctica
- Copiar e insertar filas varias veces según números específicos con código VBA
- Copiar e insertar filas varias veces según números específicos con una función sorprendente
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:
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:
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:
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:
![]() | ![]() | ![]() |
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:
4. Luego, haz clic en Aceptar, y obtendrás los resultados que necesitas, como se muestra en las siguientes capturas de pantalla:
![]() | ![]() | ![]() |
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.
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:
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:
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:
![]() | ![]() | ![]() |
¡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?
![]() | ![]() | ![]() |
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:
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:
![]() | ![]() | ![]() |
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.
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:
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:
4. Luego, haz clic en el botón Aceptar o Aplicar, y obtendrás el siguiente resultado según sea necesario:
![]() | ![]() | ![]() |
¡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.
- Insertar una fila en blanco después de un texto específico en Excel
- Si deseas insertar filas en blanco después de un texto específico, como se muestra en la siguiente captura de pantalla, ¿cómo manejarlo rápidamente y fácilmente sin insertarlas manualmente una por una?
- 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
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!