Selles artiklis õpime, kuidas kirjet mitte kriteeriumidega välja võtta Microsoft Excelis VBA kaudu.
Võtame näite, et mõista, kuidas saame filtri panna ja kriteeriumid valida ning seejärel vajalikud toimingud teha:-
Meil on andmeid vahemikus A: G veerud, mille veerg A sisaldab nime, veerg b sisaldab aadressi, veerg C sisaldab linna, veeru D piirkond, veeru E riik, veeru F telefoninumber ja veerg G sisaldab kriteeriume.
Tahame kirjutada makro, et panna filter ja seejärel filtreerida andmed veeru G ei sisalda andmeid järgi ja seejärel kustutada Not Not data. Seejärel eemaldage filter ja näidake kõiki andmeid.
Kirje mitte kriteeriumidega ekstraktimiseks toimige järgmiselt.
- Avage VBA leht, vajutage klahve Alt+F11
- Sisestage moodul
- Seejärel minge uuesti sisestamismenüüsse ja klõpsake protseduuri, kust saate protseduuri, kui te ei tea, kuidas makro käivitada
- Kirjutage allpool nimetatud kood:
Alam Delete_NotEligible () ActiveSheet.Range ("$ A $ 1: $ G $ 15"). Automaatfiltri väli: = 7, Kriteeriumid 1: = "" Ridad ("2:12"). Valige Selection.Delete Shift: = xlUp Range (" B1 "). Valige Selection.AutoFilter End Sub
- Koodi käivitamiseks vajutage klaviatuuri klahvi F5.
- Andmed filtreeritakse ja seejärel vastavalt määratud kriteeriumidele filtreeritud andmed kustutatakse.
Koodi selgitus:
- Oleme määranud päiste andmevahemiku, et lisada sobivuse veergu filter koos tühjade lahtrite kriteeriumidega
- Määrake koodi valimiseks rida ja kustutage seejärel kogu rida
- Lõpus avage filter
Sel viisil saame filtri paigutada teatud kriteeriumide alusel ja seejärel andmed kustutada.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile