Excel VBA Hitta och ersätt

Har du någonsin tänkt på att automatisera Find and Replace-funktionen i Excel. I VBA kan vi skapa ett makro som kan användas för att hitta och ersätta allt som vi normalt gör i Excel genom att trycka på Ctrl + H- genvägstangenter. Med hjälp av VBA Find and Replace kan vi automatisera hitta alla ord och ersätta det med andra ersättare. Detta hjälper när vi behöver utföra samma aktivitet flera gånger.

Hur hittar jag och ersätter ord i Excel VBA?

Nedan finns de olika exemplen för att hitta och ersätta orden i Excel med hjälp av VBA-kod.

Du kan ladda ner denna VBA Hitta och ersätt Excel-mall här - VBA Hitta och ersätt Excel-mall

VBA Hitta och ersätt - exempel # 1

I ett mycket enkelt exempel har vi en datauppsättning som består av ett namn. Och några av namnen upprepas som visas nedan.

Nu skapar vi en kod, där vi hittar några av de namn som upprepas och ersätts med något annat. För detta följer du stegen nedan.

Steg 1: Gå till Infoga- menyn i VBA och välj Modulalternativ som visas nedan.

Steg 2: När vi gör det kommer vi att öppna en ny modul. Skriv den underkategorin i namnet på VBA Find and Replace, eller så kan du välja valfritt namn på den underkategorin.

Koda:

 Sub Find_Replace1 () Slut Sub

Steg 3: Eftersom vi har data i kolumn B från cell B2 till B10, så kommer vi att välja det intervallet först från B2: B10.

Koda:

 Sub Find_Replace1 () Range ("B2: B10"). Byt ut End Sub

Steg 4: Nu för att ersätta något vi behöver leta efter det ordet. Här kommer vi också först att välja ersättningsfunktionen för att titta på vad vi behöver ersätta.

Koda:

 Sub Find_Replace1 () Range ("B2: B10"). Byt ut End Sub

Enligt syntaxen för ersättningsfunktionen hittar vi vad vi behöver ersätta.

Steg 5: Låt oss välja förnamnet på listan " Ben " som vad vi behöver ersätta.

Koda:

 Sub Find_Replace1 () Range ("B2: B10"). Ersätt vad: = "Ben" End Sub

Steg 6: Välj nu det ersättningsord som vi behöver ersätta det valda ordet med. Här valde vi att ersätta namn Ben med Sam som nämns som Ersättning som visas nedan.

Koda:

 Sub Find_Replace1 () Range ("B2: B10"). Ersätt What: = "Ben", Ersättare: = "Sam" End Sub

Steg 7: Sätt nu koden och kör den genom att klicka på knappen Spela eller genom att trycka på F5-tangenten, som visas nedan.

Vi kommer att se att alla celler som innehåller namnet eftersom Ben nu ersätts med namnet Sam . Och det markeras också i gul färg.

VBA Hitta och ersätt - exempel # 2

Vi kan alla ha mött en situation där vi försökte hitta och ersätta några ord med skiftlägeskänsliga bokstäver. Antag i en lista, om vi bara vill ersätta det ordet som har vissa versaler eller versaler. Och om vi använder processen som vi har sett i exempel 1 skulle vi i slutändan ersätta alla liknande ord i den listan tillsammans med erforderliga. Denna process kan inte göras med hjälp av att hitta och ersätta funktion (Ctrl + H) för Excel. För detta har vi en bestämmelse i VBA.

Låt oss överväga nedanstående data för detta. Som vi ser har vi med avsikt lagt till ett ord BEN i versaler i cell B2.

Följ stegen nedan för att hitta och ersätta ordet BEN.

Steg 1: Starta underkategorin för VBA Hitta och ersätt där som visas nedan.

Koda:

 Sub Find_Replace2 () Slut Sub

Steg 2: Välj listan som intervall från B2 till B10.

Koda:

 Sub Find_Replace2 () Range ("B2: B10") End Sub

Steg 3: Välj nu det exakta ordet som vi vill ersätta. Här har vi valt BEN som finns i cell B2.

Koda:

 Sub Find_Replace2 () Range ("B2: B10"). Ersätt vad: = "BEN" End Sub

Steg 4: Återigen har vi valt samma ord som vi har sett i exempel 1 som ersättning av BEN som Sam .

Koda:

 Sub Find_Replace2 () Range ("B2: B10"). Ersätt vad: = "BEN", Ersättare: = "Sam" End Sub

Steg 5: Nu för att ersätta det exakta ordet BEN, måste vi använda MatchCase om det blir SANT som visas nedan.

Koda:

 Sub Find_Replace2 () Range ("B2: B10"). Ersätt vad: = "BEN", Ersättare: = "Sam", MatchCase: = True End Sub

MatchCase hjälper oss att identifiera det ord som vi vill ersätta med en exakt matchning. Här är ordet som vi har valt BEN med versaler och listan har andra liknande ord också men i rätt fall.

Steg 6: Kör nu koden genom att klicka på knappen Spela eller genom att trycka på F5-knappen.

Vi ser att ordet BEN som fanns vid cell B2 nu ersätts med ordet " Sam ", markerat med gul färg. Och liknande ord Ben som är belägna vid cellerna B5 respektive B8 är fortfarande oförändrade.

Så här ersätter exakt matchning verk.

Steg 7: Nu tar vi bort den tillagda MatchCase från ovanstående kod och ser hur detta skulle fungera.

Koda:

 Sub Find_Replace2 () Range ("B2: B10"). Ersätt vad: = "BEN", Ersättare: = "Sam", MatchCase: = True End Sub

Steg 8: Kompilera och kör koden igen.

Vi ser att koden har ersatt alla celler som innehåller ordet Ben som visas ovan. Vilket innebär att koden fungerar som vi har sett exempel 1 efter att ha tagit bort MatchCase.

Fördelar med Excel VBA Hitta och ersätt

  • Huvudsaklig inlärning är att vi kan ersätta skiftlägeskänsliga ord och cellinnehåll med hjälp av VBA Hitta och ersätt som visas i exempel-2.
  • Om aktiviteten upprepas manuellt och flera gånger upprepas, skulle automatisering av detta vara en fördel för att spara både tid och ansträngning.
  • Även om vi har en enorm uppsättning data där vi vill ersätta specifika ord, kan det göras utan att krascha excel i skrymmande filer.

Saker att komma ihåg

  • Vi kan skapa ett makro med funktionen Sök och ersätt med hjälp av alternativet Spela in makro under fliken Utvecklare. Detta är det enklaste sättet att skapa ett makro om du är ny på att koda.
  • Att spara filen i makro Aktivera excel-format gör det möjligt att koda i framtiden.
  • Vi kan ersätta alla typer av text, ord, nummer eller tecken med VBA Hitta och ersätt.

Rekommenderade artiklar

Detta är en guide till VBA Hitta och ersätt. Här diskuterar vi hur man hittar och ersätter ord i Excel med hjälp av VBA tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA Break för Loop
  2. Byt ut formler i Excel
  3. En komplett guide VBA Find
  4. HITT-funktion i Excel

Kategori:

VBA