Excel - Jämför celler i flera kolumner

Excel är ett praktiskt verktyg för dataprofilering och jämförelse av flera datakällor. I kombination med VBA blir Excel ett ännu kraftfullare verktyg för att automatisera besvärliga jobb vilket annars kan ta lång tid för användaren. Ett sådant exempel är att jämföra värdena för celler över flera kolumner . Med makro kan man anpassa koden för att söka efter specifika värden i stigande eller nedåtgående ordning över kolumnerna . När kriterierna som anges av användaren matchar relevanta celler kan kanan antingen markeras eller raderas enligt användarens behov i denna kontorsprogramvara.

Problem

Jag har två kolumner A och B

A har objekt som har blivit prissatta

B har varupriser (inga dollar tecken)

Är det möjligt att ha ett makro som går ner i kolumnen för att jämföra priserna för samma föremål i kolumn A och radera det lägsta priset?

Exempel:

 Vad jag har: bil 100 bil 200 bil 300 båt 50 båt 60 båt 500

 Vad jag vill ha: bil 300 båt 500

Listan är mycket mycket längre än detta .....

Lösning

Det tar bort dubbletta raden (när objektet och priset är desamma) och tar bort de lägre priserna ...

 Om ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter Avsluta Om Cells.Select Selection.Sort _ Key1: = Område ("a2"), Order1: = xlAscending, _ Key2: = Range ("b2"), Order2: = xlDescending, _ Header: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orientering: = xlTopToBottom, _ DataOption1: = xlSortNormal, _ DataOption2: = xlSortNormal lrow = 2 Gör medan (celler (lrow, 1) "") Om Celler (lrow, 1) = Celler (lrow + 1, 1) Sedan Rader (lrow + 1) .Delete Else lrow = lrow + 1 End If Loop