Excel - Sammenligning af celler på tværs af flere kolonner

Excel er et praktisk værktøj til data manipulationer og sammenligning af flere datakilder. Når det kombineres med VBA, bliver Excel et endnu mere kraftfuldt værktøj til automatisering af besværlige job, som ellers kan tage lang tid til brugeren. Et sådant eksempel er at sammenligne værdierne for celler på tværs af flere kolonner . Ved hjælp af makro kan man tilpasse koden for at søge efter bestemte værdier i stigende eller faldende rækkefølge på tværs af kolonnerne . Når de kriterier, der er angivet af brugeren, svarer til de relevante celler, kan markøren enten fremhæves eller slettes som brugernes behov i dette kontorsoftware.

Problem

Jeg har to kolonner A og B

A har varer, der er blevet prissat

B har varepriser (ingen dollar tegn)

Er det muligt at have en makro, der går ned i kolonnen for at sammenligne priserne for det samme emne i kolonne A og slette den laveste pris?

Eksempel:

 Hvad jeg har: bil 100 bil 200 bil 300 båd 50 båd 60 båd 500

 Hvad jeg vil have: bil 300 båd 500

Listen er meget meget længere end dette .....

Opløsning

Det vil slette den dobbelte række (når varen og prisen er den samme) og vil slette de lavere priser ...

 Hvis ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter End Hvis Cells.Select Selection.Sort _ Key1: = Range ("a2"), Order1: = xlAscending, _ Key2: = Range ("b2"), Order2: = xlDescending, _ Overskrift: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orientering: = xlTopToBottom, _ DataOption1: = xlSortNormal, _ DataOption2: = xlSortNormal lrow = 2 Do While (Celler (lrow, 1) "") Celler (lrow, 1) = Celler (lrow + 1, 1) Så rækker (lrow + 1) .Delete Else lrow = lrow + 1 End Hvis Loop