¿Cómo copiar e insertar una fila varias veces o duplicarla X veces en Excel?
En su trabajo diario, ¿ha intentado alguna vez copiar una fila o todas las filas e insertarlas varias veces justo debajo de la fila actual en una hoja de cálculo? Por ejemplo, tengo un rango de celdas y quiero copiar cada fila y pegarla tres veces inmediatamente después de sí misma, tal como se muestra en la siguiente captura de pantalla. ¿Cómo podría realizar esta tarea en Excel?
 |  |  |
- Copie e inserte una fila específica varias veces con código VBA
- Copie e inserte cada fila varias veces con código VBA
- Copie e inserte cada fila varias veces según un número específico con una función impresionante
Copie e inserte una fila específica varias veces con código VBA
Si desea duplicar únicamente una fila específica x veces, el siguiente código VBA le será de gran ayuda. Siga estos sencillos pasos:
1. Seleccione la fila que desea copiar e insertar varias veces y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Duplicar una fila específica varias veces:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Tras pegar el código, pulse la tecla F5 para ejecutarlo. Aparecerá un cuadro de diálogo solicitándole que introduzca el número de veces que desea duplicar la fila; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar; se insertarán tres nuevas filas copiadas debajo de la fila seleccionada. Consulte la captura de pantalla:
Copie e inserte cada fila varias veces según un número específico de forma sencilla
Normalmente, no existe una forma sencilla de copiar e insertar filas varias veces, salvo hacerlo manualmente. Sin embargo, con la función Kutools para Excel de Copiar o Insertar Filas/Columnas Según Datos Especificados, ¡puede resolver este problema con facilidad!¡Haga clic para descargar Kutools para Excel!
Kutools para Excel: con más de 300 complementos útiles para Excel, pruébelo gratis sin limitaciones durante 60 días.¡Descargue y pruebe gratis ahora!
Copie e inserte cada fila varias veces con código VBA
Para duplicar cada fila varias veces en un rango, puede utilizar el siguiente código VBA. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2Haga clic en Insertar>Móduloy pegue el siguiente código en la ventana del Módulo.
Código VBA: Duplicar cada fila varias veces:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. A continuación, pulse la tecla F5 para ejecutar el código. Aparecerá un cuadro de diálogo solicitándole que introduzca el número de veces que desea duplicar cada registro; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar; cada fila se habrá copiado e insertado tres veces debajo de las originales. Consulte la captura de pantalla:
| | |
Nota: en el código anterior, la letra A indica que los datos comienzan en la columna A. Si sus datos empiezan en la columna K, cambie la A por la K según sus necesidades.
Copie e inserte cada fila varias veces según un número específico con una función impresionante
Quizás no esté familiarizado con el código VBA o le preocupe que este pueda dañar sus datos. En ese caso, le presentamos una función muy útil: Kutools para Excel, con la utilidad Copiar o Insertar Filas/Columnas Según Datos Especificados. Gracias a ella, podrá copiar e insertar filas rápidamente según el número que indique.
Consejos:Para aplicar esta función Copiar o Insertar Filas/Columnas Según Datos Especificados, primero debe descargar Kutools para Excel, y luego podrá utilizarla rápida y fácilmente.
Tras instalar Kutools para Excel, siga estos pasos:
1. Introduzca el número de repeticiones que desee para la fila duplicada en una lista de celdas junto a sus datos; consulte la captura de pantalla:
2. Haga clic en Kutools > Insertar > Copiar o insertar filas/columnas según datos especificados; consulte la captura de pantalla:
3. En el cuadro de diálogo Copiar e Insertar Filas/Columnas, seleccione la opción Copiar e Insertar Filas en la sección Tipo, luego elija el rango de datos que desea duplicar e indique el número de repeticiones para insertar las filas; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar o Aplicar; obtendrá el resultado deseado:
| |  |
¡Haga clic para descargar Kutools para Excel y pruébelo gratis ahora!
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