Supprimer des Lignes Avec des Doublons de Données VBA

Je suis aux prises avec quelque chose qui devrait être assez simple, cependant, j'ai lu au moins 15 méthodes de le faire et n'arrive pas à le faire fonctionner.

Voici un échantillon de données:

9:30:01 584.7
9:30:01 590
9:30:01 595
9:30:02 584.51
9:30:03 584.62
9:30:04 584.44
9:30:05 584.05

Je veux seulement une ligne par seconde, de sorte que les 3 premières lignes, un seul doit rester. Je ne m'inquiète pas si c'est le premier ou le dernier, mais le code que j'ai été en utilisant conserve le dernier, 595 dans ce cas.

La façon dont je le fais c'est avec une boucle for qui efface le contenu de la ligne qui a le même temps que la ligne en dessous. J'ai ensuite trier l'ensemble de la gamme.

J'imagine que c'est un moyen plus simple de tout simplement supprimer la ligne supplémentaire de l'aller. Cependant, lorsque j'utilise supprimer sur la plage, au lieu de clair, il ne supprimera pas toutes les lignes en double.

Voici ce que je veux que les données à ressembler à:

9:30:01 595
9:30:02 584.51
9:30:03 584.62
9:30:04 584.44
9:30:05 584.05

J'ai besoin que cela se produise pour l'ensemble de la feuille. Le temps est la Colonne B et les valeurs de la colonne C.

Ici c'est le code que j'utilise,

LastRow = ActiveSheet.UsedRange.row - 1 + _
    ActiveSheet.UsedRange.Rows.Count

For RowNum = 2 To LastRow
    If (Range("B" & RowNum) = Range("B" & RowNum + 1)) Then
    Range("B" & RowNum).EntireRow.Clear
    End If
Next RowNum

Range("A2:C" & LastRow).Sort key1:=Range("B2:B" & LastRow), _
order1:=xlAscending, Header:=xlNo
  • Si vous boucle de bas en haut, alors vous pouvez supprimer la ligne instantanément. Partagez votre code et je vais vous aider avec ça.
  • présente une excellente solution -- vous pourrait également utiliser la Plage.RemoveDuplicates méthode pour cela (surtout depuis que votre structure de colonne est donc bien définie)... Voici une référence MSDN: msdn.microsoft.com/en-us/library/office/...
  • Coureur que j'ai ajouté le code. Votre idée semble très intelligent.
InformationsquelleAutor mks212 | 2014-05-23
  1. 9

    Ne tourne pas en boucle. Utilisation RemoveDuplicates. De manière plus rapide que toute la boucle. Une seule ligne de code.

    Sub test()
    ActiveSheet.Range("B:C").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

    Edit: captures d'écran

    AVANT

    Supprimer des Lignes Avec des Doublons de Données VBA

    APRÈS

    Supprimer des Lignes Avec des Doublons de Données VBA

    Edit: Ne fonctionne pas dans Excel 2011 pour Mac (allez comprendre).

    • Cela ne fonctionne que lorsque les valeurs des deux colonnes sont des doublons. Il ne supprime pas les lignes de base uniquement sur le fait que 9:30:01 répète.
    • J'ai ajouté quelques captures d'écran et modifié le code pour les colonnes B et C au lieu de A et B
    • Est-il possible que cela ne fonctionne pas sur un mac? Je suis en cours d'exécution Excel 2011 et pas de dés. J'ai couru sur mon vieux PC et ça a fonctionné. Merci.
    • Vous n'avez jamais dit Mac. Je ne fais pas de Mac. Le ruban de Données ont un "Supprimer les Doublons" icône?
    • +1 pour cette solution. Mais le commentaire ci-dessus est +1 pour les boucles, elles fonctionnent toujours (même sur Mac ;-))
    • Il n'. Et le code fonctionne aussi longtemps que les données dans la colonne B & C est répété. Une sorte de honte puisque c'est géré en une seule ligne au lieu d'une boucle.
    • Il semble y avoir preuve que le RemoveDuplicates méthode ne fonctionne pas sur un mac.
    • Ce n'est pas la première fois qu'une méthode ne fonctionne pas dans Excel 2011. Merci de trouver ce lien.

    InformationsquelleAutor teylyn
  2. 2

    Cela devrait faire l'affaire:

    Sub jzz()
Dim i As Long
For i = 1 To Cells.SpecialCells(xlLastCell).Row 'loop from row 1 to last row
    If Cells(i, 1) <> vbNullString Then 'check if something is in the cell
        If Cells(i, 1) = Cells(i + 1, 1) Then 'check if cell is the same as next cell
            Cells(i + 1, 1).EntireRow.Delete 'if so; delete
            i = i - 1 'go back one row
        End If
    End If
Next i
End Sub

    Une autre option est d'aller de bas en haut, comme ceci:

    Sub jzz()
Dim i As Long
For i = Cells.SpecialCells(xlLastCell).Row to 1 step -1'loop from last row to row 1
    If Cells(i, 1) <> vbNullString Then 'check if something is in the cell
        If Cells(i, 1) = Cells(i + 1, 1) Then 'check if cell is the same as next cell
            Cells(i + 1, 1).EntireRow.Delete 'if so; delete
        End If
    End If
Next i
End Sub

    ce que vous préférez utiliser si personnelle. Veuillez considérer la réponse de teylyn ainsi, dans cette situation, il est très utilisable.

    • Grâce Jzz. J'ai eu quelque chose comme cela et qu'il ne supprime que le deuxième élément et laisse la 3ème.
    • désolé, mon mauvais! Tout simplement oublié une (essentiel) de ligne de code. J'ai édité ma réponse. Astuce consiste à revenir à la ligne une fois que vous supprimez la ligne en dessous, de sorte que la valeur est evalueated de nouveau.
    • Jzz, ce n'! Je pourrais parier beaucoup d'argent que j'ai essayé cette chose exacte mais il ne fonctionne pas. Je vais l'exécuter sur l'ensemble de données complet demain, j'espère qu'il le fait. Merci encore.
    • Ahh, je voulais dire: For i = Cells.SpecialCells(xlLastCell).Row to 1 Step -1 mais alors vous devez changer un peu d'autres choses.
    • Quelle est la bonne étape de la boucle de commencer par le bas? Je n'arrive pas à le faire fonctionner. (VBA débutant, je sais)
    InformationsquelleAutor Jzz