Comment dupliquer des lignes en fonction de la valeur de la cellule dans une colonne?
Par exemple, j'ai une plage de données qui contient une liste de nombres dans la colonne D, et maintenant, je veux dupliquer les lignes entières un certain nombre de fois en fonction des valeurs numériques de la colonne D pour obtenir le résultat suivant. Comment puis-je copier les lignes plusieurs fois en fonction des valeurs de cellule dans Excel?
 |
 |
 |
Dupliquer les lignes plusieurs fois en fonction des valeurs de cellule avec le code VBA
Dupliquer les lignes plusieurs fois en fonction des valeurs de cellule avec le code VBA
Pour copier et dupliquer les lignes entières plusieurs fois en fonction des valeurs de cellule, le code VBA suivant peut vous aider, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: dupliquez les lignes plusieurs fois en fonction de la valeur de la cellule:
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. Puis appuyez F5 clé pour exécuter ce code, les lignes entières ont été dupliquées plusieurs fois en fonction de la valeur de la cellule dans la colonne D selon vos besoins.
Copiez et insérez des lignes en fonction d'un nombre de fois spécifié avec un outil pratique - Kutools for Excel
Si vous n'êtes pas familier avec le code VBA et que vous ne parvenez pas à modifier correctement les paramètres du code par vous-même. Dans ce cas, le Kutools for Excel's Dupliquer les lignes/colonnes en fonction de la valeur de la cellule La fonctionnalité peut vous aider à copier et insérer des lignes plusieurs fois en fonction des valeurs des cellules en seulement trois clics.
- Cliquez Kutools > insérer > Dupliquer les lignes/colonnes en fonction de la valeur de la cellule pour activer cette fonctionnalité ;
- Alors choisi Copier et insérer des lignes option, et spécifiez les cellules de la Insérer une plage et Répéter fois séparément dans la boîte de dialogue.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
