Excel - Sammenligne celler over flere kolonner

Excel er et nyttig verktøy for data manipulasjoner og sammenligning av flere datakilder. Når det kombineres med VBA, blir Excel et enda kraftigere verktøy for å automatisere vanskelige jobber som ellers kan ta lang tid for brukeren. Et slikt eksempel er å sammenligne verdiene til celler over flere kolonner . Ved hjelp av makro kan man tilpasse koden for å se etter bestemte verdier i stigende eller synkende rekkefølge over kolonnene . Når kriteriene som er angitt av brukeren, samsvarer med de relevante cellene, kan enten det fremheves eller slettes etter behov for brukeren i denne kontorsoftwaren.

Utgave

Jeg har to kolonner A og B

A har elementer som har blitt priset

B har varepriser (ingen dollar tegn)

Er det mulig å ha en makro som går ned i kolonnen for å sammenligne prisene for det samme elementet i kolonne A og slette laveste pris?

Eksempel:

 Hva jeg har: bil 100 bil 200 bil 300 båt 50 båt 60 båt 500

 Det jeg vil ha: bil 300 båt 500

Listen er mye mye lenger enn dette .....

Løsning

Det vil slette duplikatraden (når varen og prisen er den samme) og vil slette de lavere prisene ...

 Hvis ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter Slutt 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 Gjør mens (Cells (lrow, 1) "") Hvis Celler (lrow, 1) = Celler (lrow + 1, 1) Så Rækker (lrow + 1) .Delete Else lrow = lrow + 1 End Hvis Loop