Šiame straipsnyje sukursime makrokomandą, kad iš apibrėžto diapazono išgautume unikalias vertes.
Neapdorotus šio pavyzdžio duomenis sudaro pasikartojantys šalių pavadinimų įrašai diapazone A7: A21.
Mes sukūrėme „FindUniqueValues“ makrokomandą, kad iš apibrėžto diapazono išgautume unikalias vertes. Šią makrokomandą galima paleisti spustelėjus mygtuką „Pateikti“. Prieš spustelėdami mygtuką „Pateikti“, turime nurodyti diapazono, kuriame yra pasikartojantys duomenys, adresą H9 langelyje ir paskirties vietos, kurioje turėtų būti rodomas rezultatas, adresą.
Loginis paaiškinimas
Makrokomanda „FindUniqueValues“ kaip įvesties parametrus naudoja du diapazono objektus. Pirmasis parametras apibrėžia diapazoną, kuriame yra pasikartojantys duomenys, o antrasis parametras - pradinio langelio, kuriame bus išvestis, padėtį. Šios makrokomandos negalima iškviesti tiesiogiai, nes turime nurodyti parametrus, todėl sukūrėme antrą makrokomandą „MacroRunning“, kad iškviestume makrokomandą.
„MacroRunning“ makrokomanda iškviečia „FindUniqueValues“ makrokomandą su vartotojo įvestu parametru.
Kodo paaiškinimas
SourceRange.AdvancedFilter Action: = xlFilterCopy, _
CopyToRange: = TargetCell, Unikalus: = Tiesa
„Range“ objekto „AdvancedFilter“ metodas naudojamas filtruoti arba kopijuoti duomenis iš diapazono pagal tam tikrus kriterijus. Norėdami nukopijuoti tik unikalias reikšmes, turime nustatyti „AdvancedFilter“ unikalų parametrą į „True“.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub FindUniqueValues“ („SourceRange As Range“, „TargetCell As Range“) „Išankstinio filtro naudojimas unikaliems elementams iš šaltinio diapazono išimti“. Skambinimas „FindUniqueValues“ makrokomandai Skambinti „FindUniqueValues“ (diapazonas (diapazonas („H9“). Vertė), diapazonas (diapazonas („H10“). Vertė)) Pabaiga
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el
