Excel VBA Find og udskift
Har du nogensinde tænkt på at automatisere Find og erstat funktion i Excel. I VBA kan vi oprette en makro, der kan bruges til at finde og erstatte alt, hvad vi normalt gør i Excel, ved at trykke på Ctrl + H genvejstaster. Ved hjælp af VBA Find og udskift kan vi automatisere fundet af ethvert ord og erstatte det med anden erstatning. Dette hjælper, når vi er nødt til at udføre den samme aktivitet flere gange.
Sådan finder du og udskifter ord i Excel VBA?
Nedenfor er de forskellige eksempler til at finde og erstatte ordene i Excel ved hjælp af VBA-kode.
Du kan downloade denne VBA Find og udskift Excel-skabelon her - VBA Find og erstat Excel-skabelonVBA Find og erstat - eksempel # 1
I et meget simpelt eksempel har vi et datasæt, der består af et eller andet navn. Og nogle af navnene gentages som vist nedenfor.
Nu vil vi oprette en kode, hvormed vi finder nogen af de navne, der gentages og erstattes med noget andet. Følg nedenstående trin for dette.
Trin 1: Gå til Indsæt menu i VBA og vælg Modulindstilling som vist nedenfor.
Trin 2: Når vi gør det, får vi et nyt modul åbnet. I dette modul skal du skrive underkategorien i navnet på VBA Find og erstat, eller du kan vælge ethvert navn på den underkategori.
Kode:
Sub Find_Replace1 () End Sub
Trin 3: Da vi har dataene i kolonne B fra celle B2 til B10, så vælger vi dette interval først fra B2: B10.
Kode:
Sub Find_Replace1 () Område ("B2: B10"). Udskift slut sub
Trin 4: Nu skal vi erstatte noget, vi skal kigge efter det ord. Også her vil vi først vælge funktionen Erstat for at se, hvad vi har brug for at erstatte.
Kode:
Sub Find_Replace1 () Område ("B2: B10"). Udskift slut sub
Pr. Syntaks for Udskift- funktionen finder vi, hvad vi har brug for at erstatte.
Trin 5: Lad os vælge fornavnet på listen " Ben " som det, vi skal erstatte.
Kode:
Sub Find_Replace1 () Range ("B2: B10"). Erstat What: = "Ben" End Sub
Trin 6: Vælg nu det erstatningsord, som vi skal erstatte det valgte ord med. Her valgte vi at erstatte navn Ben med Sam, der er nævnt som erstatning som vist nedenfor.
Kode:
Sub Find_Replace1 () Range ("B2: B10"). Udskift hvad: = "Ben", udskiftning: = "Sam" End Sub
Trin 7: Kompilér nu koden og kør den ved at klikke på knappen Afspil eller ved at trykke på F5-tasten, som vist nedenfor.
Vi vil se, alle celler, der indeholder navnet, da Ben nu er erstattet med navnet Sam . Og det er også fremhævet i gul farve.
VBA Find og erstat - eksempel # 2
Vi har måske alle været i en situation, hvor vi forsøgte at finde og erstatte nogle ord med store og små bogstaver. Antag på en liste, hvis vi kun vil erstatte det ord, der har nogle små eller store bogstaver. Og hvis vi bruger den proces, som vi har set i eksempel-1, ville vi ende med at erstatte alle de lignende ord på listen sammen med påkrævet en. Denne proces kan ikke udføres ved hjælp af finde og erstatte funktion (Ctrl + H) for excel. Til dette har vi en bestemmelse i VBA.
Lad os overveje nedenstående data for dette. Som vi kan se, har vi med vilje tilføjet et ord BEN med store bogstaver i celle B2.
Følg nedenstående trin for at finde og erstatte ordet BEN.
Trin 1: Start underkategorien til VBA Find og erstat der som vist nedenfor.
Kode:
Sub Find_Replace2 () End Sub
Trin 2: Vælg listen som Range fra B2 til B10.
Kode:
Sub Find_Replace2 () Område ("B2: B10") End Sub
Trin 3: Vælg nu det nøjagtige ord, som vi vil erstatte. Her har vi valgt BEN, som findes i celle B2.
Kode:
Sub Find_Replace2 () Område ("B2: B10"). Erstat Hvad: = "BEN" End Sub
Trin 4: Igen har vi valgt det samme ord, som vi har set i eksempel-1 som erstatning for BEN som Sam .
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Udskift hvad: = "BEN", udskiftning: = "Sam" End Sub
Trin 5: Nu til udskiftning af det nøjagtige ord BEN, er vi nødt til at bruge MatchCase, hvis det bliver sandt som vist nedenfor.
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Udskift hvad: = "BEN", udskiftning: = "Sam", MatchCase: = True End Sub
MatchCase hjælper os med at identificere det ord, som vi ønsker at erstatte med et nøjagtigt match. Her er det ord, som vi har valgt, BEN med store bogstaver, og listen har andre lignende ord også, men i rigtigt tilfælde.
Trin 6: Kør nu koden ved at klikke på knappen Play eller ved at trykke på F5-tasten.
Vi ser, at ordet BEN, der var ved celle B2, nu erstattes med ordet “ Sam ”, fremhævet i gul farve. Og de lignende ord Ben, der er placeret ved henholdsvis celler B5 og B8, er stadig uændrede.
Det er sådan, nøjagtigt match erstatter værker.
Trin 7: Nu fjerner vi den tilføjede MatchCase fra ovenstående kode og ser, hvordan dette ville fungere.
Kode:
Sub Find_Replace2 () Range ("B2: B10"). Udskift hvad: = "BEN", udskiftning: = "Sam", MatchCase: = True End Sub
Trin 8: Kompilér og kør koden igen.
Vi ser, at koden har erstattet alle celler, der indeholder ordet Ben, som vist ovenfor. Hvilket betyder, at efter at have fjernet MatchCase, fungerer koden som vi har set eksempel 1.
Fordele ved Excel VBA Find og udskift
- Det vigtigste er, at vi kan erstatte store og små bogstaver og celleindhold med hjælp VBA Find og udskift som vist i eksempel-2.
- Hvis aktiviteten gentages manuelt og flere gange gentages, vil automatisering af dette være en fordel ved at spare både tid og kræfter.
- Selv hvis vi har et enormt datasæt, hvor vi vil erstatte specifikke ord, kan det gøres uden at gå ned i excel i voluminøse filer.
Ting at huske
- Vi kan oprette en makro med Find og udskift funktion ved hjælp af indstillingen Makrooptagelse under fanen Udvikler. Dette er den nemmeste måde at oprette en makro på, hvis du er ny til at kode.
- Gemning af filen i makro Aktiver excel-format gør det muligt at kode i fremtiden.
- Vi kan erstatte enhver form for tekst, ord, nummer eller karakter med VBA Find og erstat.
Anbefalede artikler
Dette er en guide til VBA Find og udskift. Her diskuterer vi, hvordan man finder og erstatter ord i Excel ved hjælp af VBA sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -
- VBA Break for Loop
- UDSKIFT Formel i Excel
- En komplet guide VBA Find
- FIND-funktion i Excel