¿Cómo repetir filas un número específico de veces basado en otra columna en Excel?
¿Alguna vez has intentado repetir una fila basándote en el valor de otra columna como se muestra en la captura de pantalla a continuación? En este artículo, te presentaré el método para resolver esta tarea en Excel.
Repetir filas basadas en el valor de otra columna con VBA
Repetir filas basadas en el valor de otra columna con Kutools para Excel
Repetir filas basadas en el valor de otra columna con VBA
Aquí tengo un código que puede repetir rápidamente las filas basándose en los valores de la última columna.
1. Presiona Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, luego copia el siguiente código y pégalo en el nuevo script del Módulo.
VBA: Repetir filas basadas en el valor de otra columna
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Presiona F5 y aparecerá un cuadro de diálogo; selecciona la lista de números en función de los cuales se repetirán las filas.
4. Haz clic en Aceptar, y las filas se habrán repetido según el valor de la columna seleccionada.
Repetir filas basadas en el valor de otra columna con Kutools para Excel
Si no eres bueno usando VBA, puedes probar la función Duplicar Filas/Columnas Basadas en Valor de Celda de Kutools para Excel, que solo requiere dos pasos.
1. Haz clic en Kutools > Insertar > Duplicar Filas/Columnas Basadas en Valor de Celda.
2. En el cuadro de diálogo emergente, selecciona Copiar e Insertar Filas la opción en la sección Tipo luego selecciona el rango que deseas repetir en el cuadro de texto Insertar Rangoy elige la columna que determinará el número de repeticiones en el cuadro de texto Veces de Repetición Haz clic en Aceptar.
Entonces, las filas se repetirán según la columna seleccionada.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos