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.