Comment déplacer des lignes en double vers une autre feuille dans Excel?
Si vous avez une liste de plages de données qui contient des valeurs en double dans une colonne spécifique, vous souhaitez maintenant déplacer les lignes entières vers une autre feuille en fonction des 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 dupliquées dans une colonne
S'il y a des valeurs en double dans une colonne, puis déplacez les lignes entières vers une autre feuille, le code VBA suivant peut vous rendre service:
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 la fenêtre Module.
Code VBA: déplacez des lignes entières vers une autre feuille en fonction des cellules dupliquées 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. Puis appuyez F5 clé 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 sur lesquelles vous souhaitez déplacer, voir capture d'écran:
4. Puis clique OK, dans une autre boîte de dialogue, veuillez sélectionner une cellule dans une autre feuille où vous souhaitez placer les lignes déplacées, voir capture d'écran:
5. Et puis cliquez OK, les lignes qui ont des valeurs en double dans la colonne A ont été déplacées dans une nouvelle feuille, voir capture d'écran:
Déplacer des lignes entières vers une autre feuille en fonction des lignes en double
Si vous souhaitez déplacer les lignes dupliquées d'une plage de cellules, le code VBA suivant peut vous aider:
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 la fenêtre Module.
Code VBA: déplacez 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. Puis appuyez F5 clé pour exécuter ce code, dans la boîte de dialogue qui apparaît, sélectionnez la plage de données que vous souhaitez déplacer les lignes en double, voir capture d'écran:
4Cliquez sur OK bouton, puis dans une autre boîte de dialogue, sélectionnez une cellule dans une nouvelle feuille où vous souhaitez placer les lignes de supplication déplacées, voir capture d'écran:
5. Puis clique OK bouton, et maintenant, les lignes en double ont été déplacées dans une autre feuille que vous avez spécifiée à la fois, voir capture d'écran:
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!
