Comment déplacer des lignes en double vers une autre feuille dans Excel ?
Si vous avez une liste de plage de données contenant certaines valeurs en double dans une colonne spécifique, et que vous souhaitez déplacer les lignes entières vers une autre feuille basée sur les cellules en double, comment pourriez-vous gérer cette tâche dans Excel ?
Déplacer des lignes entières vers une autre feuille en fonction des lignes en double
Déplacer des lignes entières vers une autre feuille en fonction des cellules en double dans une colonne
S'il y a des valeurs en double dans une colonne, puis déplacer les lignes entières vers une autre feuille, le code VBA suivant peut vous aider :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Déplacer des lignes entières vers une autre feuille en fonction des cellules en double dans une colonne :
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgS As Range
Dim xRgD As Range
Dim I As Long, J As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRgS.Rows.Count
J = 0
For I = xRows To 1 Step -1
If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
xRgS(I).EntireRow.Delete
J = J + 1
End If
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et dans la boîte de dialogue qui apparaît, sélectionnez la colonne qui contient les cellules en double que vous souhaitez déplacer, voir capture d'écran :
4. Cliquez ensuite sur OK, dans une autre boîte de dialogue, sélectionnez une cellule dans une autre feuille où vous souhaitez placer les lignes déplacées, voir capture d'écran :
5. Cliquez ensuite sur OK, les lignes ayant des valeurs en double dans la colonne A ont été déplacées vers une nouvelle feuille, voir capture d'écran :
Découvrez la magie d'Excel avec Kutools AI
- Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
- Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
- Codage VBA : Écrivez et implémentez du code VBA sans effort.
- Interprétation des formules : Comprenez facilement des formules complexes.
- Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
Déplacer des lignes entières vers une autre feuille en fonction des lignes en double
Si vous souhaitez déplacer les lignes en double à partir d'une plage de cellules, le code VBA suivant peut vous aider :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Déplacer des lignes entières vers une autre feuille en fonction des lignes en double :
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgD As Range, xRgS As Range
Dim I As Long, J As Long, K As Long, KK As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
KK = 0
For I = xRgS.Rows.Count To 1 Step -1
For J = 1 To I - 1
For K = 1 To xRgS.Columns.Count
Debug.Print xRgS.Rows(I).Cells(, K).Value
Debug.Print xRgS.Rows(J).Cells(, K).Value
If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
Next
If K = xRgS.Columns.Count + 1 Then
xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
xRgS.Rows(I).EntireRow.Delete
KK = KK + 1
End If
Next
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, dans la boîte de dialogue qui apparaît, sélectionnez la plage de données dont vous souhaitez déplacer les lignes en double, voir capture d'écran :
4. Cliquez sur le bouton OK, puis dans une autre boîte de dialogue, sélectionnez une cellule dans une nouvelle feuille où vous souhaitez placer les lignes dupliquées déplacées, voir capture d'écran :
5. Cliquez ensuite sur le bouton OK, et maintenant, les lignes en double ont été déplacées vers une autre feuille spécifiée immédiatement, voir capture d'écran :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels