¿Cómo copiar e insertar una fila varias veces o duplicar la fila x veces en Excel?

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 podrías manejar esta tarea en Excel?

• Copiar e insertar una fila específica varias veces con código VBA
• Copiar e insertar cada fila varias veces con código VBA
• Copiar e insertar cada fila varias veces basándose en un número específico con una función impresionante

Copiar e insertar una fila específica varias veces con código VBA

Si deseas duplicar solo una fila específica x veces, el siguiente código VBA puede ayudarte, por favor haz lo siguiente:

1. Especifica una fila que desees copiar e insertar varias veces, y luego mantén presionadas las teclas ALT + F11, después se abrirá la ventana Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo, y pega 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. Después de pegar el código, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el número de veces que deseas duplicar, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y tres nuevas filas copiadas se habrán insertado debajo de la fila seleccionada, ver captura de pantalla:

Copiar e insertar cada fila varias veces con código VBA

Para duplicar cada fila varias veces en un rango, puedes aplicar el siguiente código VBA, por favor haz lo siguiente:

1. Mantén presionadas las teclas ALT + F11, después se abrirá la ventana Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo, y pega 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 Sub

3. Y luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el número de veces que deseas duplicar para cada registro, ver captura de pantalla:

4. Luego haz clic en Aceptar, y cada fila se ha copiado e insertado 3 veces debajo de las activas, ver captura de pantalla:

Copiar e insertar cada fila varias veces basándose en un número específico con una función impresionante

Quizás, no estés familiarizado con el código VBA, o te preocupe que el código pueda dañar tus datos. Aquí, te presentaré una función útil, Copiar o Insertar Filas/Columnas Según Datos Especificados de Kutools para Excel, con esta utilidad, puedes copiar e insertar rápidamente las filas basándote en el número que especifiques.

Después de instalar Kutools para Excel, por favor haz lo siguiente:

1. Ingresa los números de repetición que deseas duplicar en una lista de celdas al lado de tus datos, ver captura de pantalla:

2. Haz clic en Kutools > Insertar > Copiar o Insertar Filas/Columnas Según Datos Especificados, ver captura de pantalla:

3. 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 el tiempo de repetición para duplicar las filas, ver captura de pantalla:

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

¡Haz clic para descargar Kutools para Excel y prueba gratis ahora!