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 supprimer les lignes en double et conserver les valeurs les plus élevées uniquement dans Excel?

Par exemple, vous avez une table d'achat dans Excel comme la première capture d'écran illustrée. Vous devez maintenant supprimer les lignes dupliquées en fonction de la colonne Fruit et conserver les valeurs les plus élevées des fruits correspondants dans la colonne Montant comme deuxième capture d'écran illustrée. Toute solution pouvez-vous penser? Cet article partagera deux astuces pour le résoudre.

Supprimer les lignes en double et conserver les valeurs les plus élevées uniquement avec VBA

Supprimez les lignes en double et conservez les valeurs les plus élevées uniquement avec Kutools for Excel

Facilement supprimer les lignes en double en fonction des critères dans une colonne et ne conserver que les valeurs les plus élevées dans Excel

Kutools pour Excel Lignes de combinaison avancées L'utilitaire peut aider les utilisateurs d'Excel à trouver rapidement la valeur maximale de la valeur minimale de chaque élément dans une autre colonne. Fonctionnalité complète Essai gratuit 60-day!

Ad Advanced Combine les lignes max

Cet utilitaire Advanced Combine Rows peut également combiner des lignes et des valeurs séparées par des marques spécifiées, ou combiner des lignes et calculer leurs sommes, le nombre d'occurrences, les valeurs maximum / minimum, les moyennes, etc.



Supposons que vous ayez une table comme ci-dessous. Et cette méthode introduira une macro VBA pour supprimer les lignes dupliquées basées sur une certaine colonne et conserver les valeurs les plus élevées uniquement dans une autre colonne dans Excel. S'il vous plaît faites comme suit:

1. appuie sur le autre + F11 clés simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Moduleet collez le code suivant dans la nouvelle fenêtre d'ouverture du module.

VBA: Supprimer les lignes en double et conserver les valeurs les plus élevées

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. appuie sur le F5 touche ou cliquez sur le course bouton pour exécuter cette VBA.

4. Maintenant, une boîte de dialogue apparaît. Veuillez sélectionner les colonnes dans lesquelles vous souhaitez supprimer les doublons et réserver les valeurs les plus élevées, puis cliquez sur OK .

Dans notre cas, nous allons supprimer les lignes dupliquées par la colonne des fruits et conserver les valeurs les plus élevées dans la colonne Montant, donc je sélectionne la colonne Fruits et la colonne Montant comme ci-dessus.

Ensuite, vous verrez que les lignes en double sont supprimées en fonction de la colonne Fruit, et les valeurs les plus élevées des fruits correspondants sont conservées dans la colonne Montant. Voir la capture d'écran:

Remarques:

(1) La plage spécifiée doit commencer par la colonne dans laquelle vous allez supprimer les lignes dupliquées.

(2) Ce VBA peut uniquement conserver les valeurs les plus élevées dans la colonne juste derrière la colonne par laquelle vous avez supprimé les doublons.

(3) Cette VBA ne fonctionne pas dans Microsoft Excel 2007.


Le VBA ci-dessus peut ne pas être assez facile pour certains utilisateurs, et il ne peut garder que les valeurs les plus élevées dans la colonne derrière la colonne des critères. Mais Kutools pour Excel Lignes de combinaison avancées utilitaire vous aidera à résoudre facilement ce problème facilement.

Kutools for Excel - Combine plus que des fonctions et outils avancés 300 pour Microsoft Excel

1. Sélectionnez la table pour supprimer les lignes dupliquées et conserver les valeurs les plus élevées (sélectionnez A1: C24 dans notre cas), puis cliquez sur Kutools > Contenu > Lignes de combinaison avancées.

2. Dans la boîte de dialogue Ouverture de lignes combinées en fonction de la colonne, configurez comme suit:

(1) Sélectionnez la colonne Fruit (que vous supprimerez en doublant les lignes), puis cliquez sur Clé primaire bouton;

(2) Sélectionnez la colonne Quantité (dans laquelle vous conserverez les valeurs les plus élevées), puis cliquez sur Calculer > max.

(3) Spécifiez les règles de combinaison pour les autres colonnes selon vos besoins.

doc supprimer les doublons garder la valeur la plus élevée 2

3. Cliquez sur l' Ok bouton. Ensuite, vous verrez toutes les lignes dupliquées sont supprimées en fonction de la colonne de fruits et seules les valeurs maximales des fruits correspondants sont conservées dans la colonne Montant. Voir la capture d'écran:

Le bouton Lignes de combinaison avancées L'utilitaire de Kutools pour Excel peut facilement combiner des lignes d'une colonne, puis calculer d'autres colonnes basées sur ces colonnes, telles que Sum, Count, Max, Min, Product, etc. Cliquez pour un essai gratuit 60-day, sans limitation!


Dans cette vidéo, le Kutools onglet et le Kutools Plus onglet sont ajoutés par Kutools for Excel. Si besoin, s'il vous plaît cliquez ici avoir un essai gratuit 60-day sans limitation!



Outils de productivité recommandés

Office Tab

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

Kutools for Excel

étoile d'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'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'é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.