¿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 Sub3. 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:
|
|
|
Note: 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 de Propiedad 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 ¡Aplicá! 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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!
