Excel - Comparaison de cellules sur plusieurs colonnes

Excel est un outil pratique pour manipuler des données et comparer plusieurs sources de données. Lorsqu'il est associé à VBA, Excel devient un outil encore plus puissant pour l’automatisation de tâches lourdes qui, autrement, peuvent prendre beaucoup de temps pour l’utilisateur. Un exemple de ce type consiste à comparer les valeurs de cellules sur plusieurs colonnes . En utilisant une macro, vous pouvez personnaliser le code pour rechercher des valeurs spécifiques dans l'ordre croissant ou décroissant dans les colonnes . Une fois que les critères spécifiés par l'utilisateur correspondent aux cellules appropriées, vous pouvez les mettre en surbrillance ou les supprimer en fonction des besoins de l'utilisateur dans ce logiciel de bureau.

Problème

J'ai deux colonnes A et B

A a des articles qui ont été évalués

B a les prix des articles (sans signe dollar)

Est-il possible d'avoir une macro descendant dans la colonne pour comparer les prix du même article dans la colonne A et supprimer le prix le plus bas?

Exemple:

 Ce que j'ai: voiture 100 voiture 200 voiture 300 bateau 50 bateau 60 bateau 500

 Ce que je veux: voiture 300 bateau 500

La liste est beaucoup plus longue que ça .....

Solution

Il supprimera la ligne en double (lorsque l'article et le prix sont identiques) et supprimera les prix inférieurs ...

 Si ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter End If Cells.Select Selection.Sort _ Key1: = Plage ("a2"), Order1: = xlAscending, _ Key2: = Plage ("b2"), Order2: = xlDescending, _ En-tête: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orientation: = xlTopToBottom, _ DataOption1: = xlSortNormal, _ DataOption2: = xlSortNormal lrow = 2 Effectuez (Cells (lrow, 1) ") si Cellules (lrow, 1) = Cellules (lrow + 1, 1) Puis lignes (lrow + 1). Supprimez le lrow autre = lrow + 1 End If Loop