Comment répéter des lignes un nombre spécifié de fois en fonction d'une autre colonne dans Excel ?

Avez-vous déjà essayé de répéter une ligne en fonction de la valeur d'une autre colonne comme le montre la capture d'écran ci-dessous ? Dans cet article, je vais vous présenter la méthode pour accomplir cette tâche dans Excel.

Répéter des lignes en fonction de la valeur d'une autre colonne avec VBA

Répéter des lignes en fonction de la valeur d'une autre colonne avec Kutools pour Excel

Répéter des lignes en fonction de la valeur d'une autre colonne avec VBA

Voici un code qui peut rapidement répéter les lignes en fonction des valeurs de la dernière colonne.

1. Appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis copiez le code ci-dessous et collez-le dans le nouveau script du Module.

VBA : Répéter des lignes en fonction de la valeur d'une autre colonne

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. Appuyez sur F5 une boîte de dialogue apparaît, sélectionnez la liste de nombres sur laquelle les lignes seront répétées.

4. Cliquez sur OK, les lignes ont été répétées en fonction de la valeur de la colonne sélectionnée.

Répéter des lignes en fonction de la valeur d'une autre colonne avec Kutools pour Excel

Si vous n'êtes pas à l'aise avec l'utilisation de VBA, vous pouvez essayer la fonction Dupliquer des lignes/colonnes en fonction de la valeur d'une cellule de Kutools pour Excel, qui ne nécessite que deux étapes.

1. Cliquez sur Kutools > Insérer > Dupliquer des lignes/colonnes en fonction de la valeur d'une cellule.

2. Dans la boîte de dialogue qui apparaît, choisissez Copier et insérer des lignes l'option dans la section Type puis choisissez la plage que vous souhaitez répéter dans la zone de texte Plage d'insertionet choisissez la colonne qui détermine le nombre de répétitions dans la zone de texte Nombre de répétitions Cliquez sur Ok.

Les lignes seront ensuite répétées en fonction de la colonne sélectionnée.