¿Cómo copiar e insertar una fila varias veces o duplicar la fila x veces en Excel?
En su trabajo diario, ¿alguna vez ha intentado copiar una fila o cada fila y luego insertar varias veces debajo de la fila de datos actual en una hoja de trabajo? 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 podrías lidiar con este trabajo en Excel?
![]() |
![]() |
![]() |
- Copie e inserte una fila específica varias veces con el código VBA
- Copie e inserte cada fila varias veces con el código VBA
- Copie e inserte cada fila varias veces según un número específico con una característica increíble
Copie e inserte una fila específica varias veces con el código VBA
Si desea duplicar solo una fila específica x veces, el siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Especifique una fila que desee copiar e insertar varias veces, y luego mantenga presionada la ALT + F11 llaves, luego abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: duplique 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. Después de pegar el código, presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que ingrese la cantidad de veces que desea duplicar, vea la captura de pantalla:
4. Luego haga clic OK y se han insertado tres nuevas filas copiadas debajo de la fila seleccionada, ver captura de pantalla:
Copie e inserte cada fila varias veces en función de un número específico fácilmente
Normalmente, no existe un buen método para copiar e insertar filas varias veces, excepto para copiar e insertar manualmente. Pero con Kutools for Excel's Filas / columnas duplicadas según el valor de la celda característica, puede resolver este problema con facilidad. ¡Haga clic para descargar Kutools para Excel!
Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 60 días. ¡Descarga y prueba gratis ahora!
Copie e inserte cada fila varias veces con el código VBA
Para duplicar cada fila varias veces en un rango, puede aplicar el siguiente código VBA, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, luego abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: duplique 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 Sub
3. Y luego presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que ingrese la cantidad de veces que desea duplicar para cada registro, vea la captura de pantalla:
4. Luego haga clic OK, y cada fila se ha copiado e insertado 3 veces debajo de las activas, vea la captura de pantalla:
![]() |
![]() |
![]() |
Nota:: En el código anterior, el A indica que el rango de datos se inicia en la columna A, si sus datos comienzan en la columna K, por favor cambia A a K como su necesidad.
Copie e inserte cada fila varias veces según un número específico con una característica increíble
Tal vez no esté familiarizado con el código VBA o le preocupe que el código bloquee sus datos. Aquí, presentaré una función útil, Kutools for Excel's Filas / columnas duplicadas según el valor de la celda, con esta utilidad, puede copiar e insertar rápidamente las filas según el número que especificó.
Consejos:Para aplicar esto Filas / columnas duplicadas según el valor de la celda función, en primer lugar, debe descargar la Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.
Después de instalar Kutools for Excel, haz lo siguiente:
1. Ingrese los números de repetición que desea duplicar filas en una lista de celdas al lado de sus datos, vea la captura de pantalla:
2. Hacer clic Kutools > recuadro > Filas / columnas duplicadas según el valor de la celda, ver captura de pantalla:
3. En la Copiar e insertar filas y columnas cuadro de diálogo, seleccione Copiar e insertar filas opción en el Tipo sección, luego seleccione el rango de datos que desea duplicar y luego especifique el tiempo de repetición para duplicar las filas, vea la captura de pantalla:
4. Luego, haz clic Ok or Aplicar botón, obtendrá el siguiente resultado cuando lo necesite:
![]() |
![]() |
![]() |
¡Haga clic para descargar Kutools para Excel y prueba gratuita ahora!
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- 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 sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... 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 ...
- 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...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- 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!

























