Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment déplacer des lignes en double vers une autre feuille dans Excel?

Si vous avez une liste de plage de données contenant 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 dupliquées. Comment pourriez-vous gérer cette tâche dans Excel?

Déplacer des lignes entières vers une autre feuille en fonction des cellules dupliquées dans une colonne

Déplacer des lignes entières vers une autre feuille en fonction des lignes dupliquées


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 faire une faveur:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez 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 dépliée, sélectionnez la colonne qui contient les cellules en double que vous souhaitez déplacer en fonction, voir capture d'écran:

4. Puis clique OK, dans une autre boîte d'invite, sélectionnez 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 dupliquées

Si vous souhaitez déplacer les lignes en double 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.

2. Cliquez 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 dupliquées:

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 Pour exécuter ce code, dans la boîte de dialogue qui s'affiche, sélectionnez la plage de données dans laquelle vous voulez déplacer les lignes dupliquées, voir capture d'écran:

4. Cliquez OK Cliquez sur le bouton, puis dans une autre boîte d'invite, sélectionnez une cellule dans une nouvelle feuille où vous souhaitez placer les lignes suppliées 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é à la fois, voir capture d'écran:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.