Excel - Usporedba stanica na više stupaca

Excel je zgodan alat za manipulaciju podacima i usporedbu više izvora podataka. U kombinaciji s VBA, Excel postaje još moćniji alat za automatizaciju glomaznih poslova koji inače mogu trajati dugo za korisnika. Jedan takav primjer je uspoređivanje vrijednosti ćelija u više stupaca . Pomoću makronaredbe možete prilagoditi kôd kako biste tražili određene vrijednosti u uzlaznom ili silaznom poretku po stupcima . Kada kriteriji koje je korisnik naveo podudaraju se s odgovarajućim ćelijama, mogu se označiti ili izbrisati prema potrebama korisnika u ovom uredskom softveru.

Problem

Imam dva stupca A i B

A ima stavke koje su po cijeni

B ima cijene stavki (bez znaka dolara)

Je li moguće imati makronaredbu koja ide niz stupac za usporedbu cijena za istu stavku u stupcu A i brisanje najniže cijene?

Primjer:

 Što imam: auto 100 auto 200 auto 300 brod 50 brod 60 brod 500 

 Ono što želim: auto 300 brod 500 

Popis je mnogo dulji od ovog .....

Riješenje

On će izbrisati dvostruki red (kada su stavka i cijena isti) i izbrisat će niže cijene ...

 Ako ActiveSheet.AutoFilterMode Zatim Cells.Select Selection.AutoFilter Kraj Ako Cells.Select Selection.Sort _ Key1: = Range ("a2"), Order1: = xlAscending, _ Key2: = Range ("b2"), Order2: = xlDescending, _ Zaglavlje: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orijentacija: = xlTopToBottom, _ DataOption1: = xlSortNormal, _ DataOption2: = xlSortNormal lrow = 2 Do while (ćelije (lrow, 1) "") Ćelije (lrow, 1) = Ćelije (lrow + 1, 1) Zatim redovi (lrow + 1) .Izbrisati Elrow lrow = lrow + 1 End If Loop 

Bilješka

Zahvaljujući rizvisa1 za ovaj savjet na forumu.

Prethodni Članak Sljedeći Članak

Top Savjeta