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