¿Cómo duplicar filas según el valor de la celda en una columna?
Por ejemplo, tengo un rango de datos que contiene una lista de números en la columna D, y ahora quiero duplicar las filas completas varias veces en función de los valores numéricos de la columna D para obtener el siguiente resultado. ¿Cómo podría copiar las filas varias veces en función de los valores de celda en Excel?
 |
 |
 |
Duplique filas varias veces según los valores de celda con código VBA
Duplique filas varias veces según los valores de celda con código VBA
Para copiar y duplicar las filas completas varias veces en función de los valores de celda, el siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir 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: filas duplicadas varias veces según el valor de la celda:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Entonces presione F5 clave para ejecutar este código, las filas completas se han duplicado varias veces en función del valor de la celda en la columna D según lo necesite.
Copie e inserte filas según una cantidad específica de veces con una herramienta útil - Kutools para Excel
Si no está familiarizado con el código VBA y no puede cambiar los parámetros en el código correctamente por sí mismo. En este caso, el Kutools for Excel's Duplicar filas/columnas según el valor de la celda La función puede ayudarlo a copiar e insertar filas varias veces en función de los valores de celda con solo tres clics.
- Haga Clic en Kutools > recuadro > Filas / columnas duplicadas según el valor de la celda para habilitar esta característica;
- Entonces escoge Copiar e insertar filas y especifique las celdas de la Insertar rango y Tiempos de repetición por separado en el cuadro de diálogo.
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!
