Excel VBA Finn og erstatt
Har du noen gang tenkt på å automatisere Finn og erstatt funksjon i Excel. I VBA kan vi lage en makro som kan brukes til å finne og erstatte alt vi vanligvis gjør i Excel ved å trykke på Ctrl + H snarveistaster. Ved hjelp av VBA Finn og erstatt, kan vi automatisere funnet av ethvert ord og erstatte det med annen erstatning. Dette hjelper når vi trenger å utføre den samme aktiviteten flere ganger.
Hvordan finne og erstatte ord i Excel VBA?
Nedenfor er de forskjellige eksemplene for å finne og erstatte ordene i Excel ved hjelp av VBA-kode.
Du kan laste ned denne VBA Finn og erstatt Excel-mal her - VBA Finn og erstatt Excel-malVBA Finn og erstatt - eksempel # 1
I et veldig enkelt eksempel har vi et datasett som består av et eller annet navn. Og noen av navnene blir gjentatt som vist nedenfor.
Nå vil vi lage en kode, hvor vi vil finne noen av navnene som blir gjentatt og erstatte med noe annet. Følg trinnene nedenfor for å få dette til.
Trinn 1: Gå til Sett inn- menyen i VBA og velg Modulalternativ som vist nedenfor.
Trinn 2: Når vi har gjort det, får vi en ny modul åpnet. I den modulen, skriv underkategorien i navnet til VBA Finn og erstatt, eller du kan velge hvilket som helst navn på den underkategorien.
Kode:
Sub Find_Replace1 () Slutt Sub
Trinn 3: Ettersom vi har dataene i kolonne B fra celle B2 til B10, så vil vi velge det området først fra B2: B10.
Kode:
Sub Find_Replace1 () Range ("B2: B10"). Erstatt slutten Sub
Trinn 4: Nå for å erstatte noe vi trenger å se etter det ordet. Også her vil vi først velge Erstatt funksjon for å se på hva vi trenger å erstatte.
Kode:
Sub Find_Replace1 () Range ("B2: B10"). Erstatt slutten Sub
I henhold til syntaks for Erstatt- funksjonen, vil vi finne det vi trenger å erstatte.
Trinn 5: La oss velge fornavnet til listen " Ben " som det vi trenger å erstatte.
Kode:
Sub Find_Replace1 () Range ("B2: B10"). Erstatt What: = "Ben" End Sub
Trinn 6: Velg nå erstatningsordet som vi trenger for å erstatte det valgte ordet. Her valgte vi å erstatte navn Ben med Sam som er nevnt som Erstatning som vist nedenfor.
Kode:
Sub Find_Replace1 () Range ("B2: B10"). Erstatt What: = "Ben", Erstatning: = "Sam" End Sub
Trinn 7: Sett sammen koden og kjør den ved å klikke på Spill-knappen eller ved å trykke på F5-tasten, som vist nedenfor.
Vi vil se, alle cellene som inneholder navnet som Ben, er nå erstattet med navnet Sam . Og det er også fremhevet i gul farge.
VBA Finn og erstatt - eksempel # 2
Vi kunne alle ha møtt en situasjon der vi prøvde å finne og erstatte noen ord med store og små bokstaver. Anta at i en liste, hvis vi bare vil erstatte det ordet som har noen små eller store bokstaver. Og hvis vi bruker prosessen som vi har sett i eksempel 1, vil vi ende opp med å erstatte alle de lignende ordene i listen sammen med påkrevde. Denne prosessen kan ikke gjøres ved hjelp av å finne og erstatte funksjon (Ctrl + H) for excel. For dette har vi en bestemmelse i VBA.
La oss vurdere dataene nedenfor for dette. Som vi ser har vi med vilje lagt til et ord BEN med store bokstaver i celle B2.
Følg trinnene nedenfor for å finne og erstatte ordet BEN.
Trinn 1: Start underkategorien til VBA Finn og erstatt der som vist nedenfor.
Kode:
Sub Find_Replace2 () Slutt Sub
Trinn 2: Velg listen som Range fra B2 til B10.
Kode:
Sub Find_Replace2 () Range ("B2: B10") Slutt Sub
Trinn 3: Velg nå det eksakte ordet som vi vil erstatte. Her har vi valgt BEN som er i celle B2.
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Erstatt What: = "BEN" End Sub
Trinn 4: Vi har igjen valgt det samme ordet som vi har sett i eksempel-1 som erstatning for BEN som Sam .
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Erstatt What: = "BEN", Erstatning: = "Sam" End Sub
Trinn 5: Nå for å erstatte det eksakte ordet BEN, må vi bruke MatchCase hvis det blir SANN som vist nedenfor.
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Erstatt What: = "BEN", Erstatning: = "Sam", MatchCase: = True End Sub
MatchCase vil hjelpe oss med å identifisere det ordet som vi ønsker å erstatte med en nøyaktig kamp. Her er ordet som vi har valgt BEN med store bokstaver, og listen har andre lignende ord også, men i riktig tilfelle.
Trinn 6: Kjør nå koden ved å klikke på Spill-knappen eller ved å trykke på F5-tasten.
Vi vil se at ordet BEN som var på celle B2 nå er erstattet med ordet “ Sam ”, uthevet i gul farge. Og de lignende ordene Ben som er lokalisert ved henholdsvis celler B5 og B8 er fortsatt uendret.
Slik erstatter eksakt samsvar verk.
Trinn 7: Nå fjerner vi den lagt MatchCase fra koden over og ser hvordan dette ville fungere.
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Erstatt What: = "BEN", Erstatning: = "Sam", MatchCase: = True End Sub
Trinn 8: Sett sammen og kjør koden igjen.
Vi vil se at koden har erstattet alle cellene som inneholder ordet Ben som vist ovenfor. Noe som betyr at koden vil fungere som vi har sett eksempel 1 etter å ha fjernet MatchCase.
Fordeler med Excel VBA Finn og erstatt
- Stor læring er at vi kan erstatte store og små bokstaver og celleinnhold med hjelpen VBA Finn og erstatt som vist i eksempel-2.
- Hvis aktiviteten blir manuelt og flere ganger gjentas, vil automatisering av dette være en fordel i å spare tid og krefter begge deler.
- Selv om vi har et enormt sett med data der vi vil erstatte spesifikke ord, kan det gjøres uten å krasje excel i voluminøse filer.
Ting å huske
- Vi kan lage en makro med Finn og erstatt funksjon ved hjelp av Record Macro-alternativet under fanen Developer. Dette er den enkleste måten å lage en makro på hvis du er ny på koding.
- Lagring av filen i makro Aktiver excel-format vil gjøre det mulig å kode bli brukt i fremtiden.
- Vi kan erstatte alle slags tekst, ord, nummer eller tegn med VBA Finn og erstatt.
Anbefalte artikler
Dette er en guide til VBA Finn og erstatt. Her diskuterer vi hvordan du finner og erstatter ord i Excel ved hjelp av VBA sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -
- VBA Break for Loop
- Bytte ut formler i Excel
- En komplett guide VBA Find
- FINN funksjon i Excel