¿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 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:

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ó.

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.

Leer más ... Descarga gratis... Compra... 

---

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!

Leer más ... Descarga gratis... Compra...