„Excel“ - ląstelių palyginimas iš kelių stulpelių

„Excel“ yra patogus įrankis duomenų apdorojimui ir daugelio duomenų šaltinių palyginimui. Kartu su „ VBA“ „ Excel“ tampa dar galingesniu įrankiu automatizuoti sudėtingas darbo vietas, kurios kitaip gali užtrukti vartotojui. Vienas iš tokių pavyzdžių yra ląstelių verčių palyginimas keliuose stulpeliuose . Naudojant makrokomandą, galite pritaikyti kodą, kad būtų galima ieškoti konkrečių reikšmių didėjimo arba mažėjimo tvarka . Kai naudotojo nurodyti kriterijai atitinka atitinkamas ląsteles, jis gali būti išryškintas arba ištrintas, kaip vartotojo poreikis šiame biuro programinėje įrangoje.

Problema

Turiu dvi A ir B skiltis

A turi elementų, kurie buvo kainuoti

B turi prekių kainas (be dolerio ženklo)

Ar galima turėti stulpelyje esantį makrokomandą, kad palygintumėte tos pačios prekės kainas A stulpelyje ir ištrintumėte mažiausią kainą?

Pavyzdys:

 Ką aš turiu: automobilio 100 automobilių 200 automobilių 300 valčių 50 valčių 60 valtis 500

 Ką aš noriu: automobilio 300 valtis 500

Sąrašas yra daug ilgesnis nei šis .....

Sprendimas

Ji ištrins dublikato eilutę (kai elementas ir kaina yra vienodi) ir ištrinsite žemesnes kainas ...

 Jei „ActiveSheet.AutoFilterMode“ tada „Cells.Select Selection.AutoFilter End“, jei „Cells.Select Selection.Sort _ Key1“: = intervalas („a2“), 1 tvarka: = xlAscending, _ Key2: = diapazonas („b2“), užsakymas2: = xlDescending, _ Header: = xlYes, OrderCustom: = 1, _ MatchCase: = False, Orientation: = xlTopToBottom, _ DataOption1: = xlSortNormal, _ DataOption2: = xlSortNormal lrow = 2 Atlikite (Cells (lrow, 1) "") Jei Ląstelės (kiaurymės, 1) = ląstelės (kryptis + 1, 1), tada eilutės (kryptis + 1). Ištrinti kitas kryptis = kryptis + 1 galas, jei kilpa