Excel VBA Etsi ja korvaa

Oletko koskaan ajatellut automatisoida Etsi ja korvaa -toiminto Excelissä. VBA: ssa voimme luoda makron, jota voidaan käyttää etsimään ja korvaamaan mitä tahansa, mitä yleensä teemme Excelissä, painamalla Ctrl + H -pikanäppäimiä. VBA-haku ja korvaa -sovelluksen avulla voimme automatisoida minkä tahansa sanan löytämisen ja korvata sen toisella korvaamisella. Tämä auttaa, kun meidän on suoritettava sama toiminta useita kertoja.

Kuinka löytää ja korvata sanoja Excel VBA: ssa?

Alla on erilaisia ​​esimerkkejä excel-sanojen löytämiseksi ja korvaamiseksi VBA-koodilla.

Voit ladata tämän VBA-haku- ja korvaavan Excel-mallin täältä - VBA-haku ja korvaa Excel-mallin

VBA-haku ja korvaa - esimerkki # 1

Hyvin yksinkertaisessa esimerkissä meillä on tietojoukko, joka koostuu jostakin nimestä. Ja jotkut nimet toistuvat alla esitetyllä tavalla.

Nyt luomme koodin, jolla löydämme kaikki toistuvat nimet ja korvaamme ne jollain muulla. Tätä varten noudata alla olevia vaiheita.

Vaihe 1: Siirry Lisää- valikkoon VBA: ssa ja valitse moduulivaihtoehto alla olevan kuvan mukaisesti.

Vaihe 2: Kun teemme sen, saamme uuden moduulin auki. Kirjoita kyseiseen moduuliin alaluokka VBA-haku ja korvaa -nimeen tai voit valita minkä tahansa alaluokan nimen.

Koodi:

 Alihaku_korvaa1 () Lopeta alaosa

Vaihe 3: Koska meillä on tietoja sarakkeessa B solusta B2 B10, niin valitsemme tämän alueen ensin B2: B10: stä.

Koodi:

 Sub Find_Replace1 () Range ("B2: B10"). Korvaa End Sub

Vaihe 4: Nyt korvataksesi jotain, mitä meidän on etsittävä kyseinen sana. Tässä myös valitaan ensin Korvaa-toiminto tarkastellaksesi mitä meidän on korvattava.

Koodi:

 Sub Find_Replace1 () Range ("B2: B10"). Korvaa End Sub

Korvaa- toiminnon syntaksin mukaan löydämme korvattavan.

Vaihe 5: Valitaan korvattaviksi luettelon etunimi ” Ben ”.

Koodi:

 Sub Find_Replace1 () Range ("B2: B10"). Korvaa mitä: = "Ben" End Sub

Vaihe 6: Valitse nyt korvaava sana, jolla meidän on korvattava valittu sana. Täällä päätimme korvata nimen Ben nimellä Sam, joka mainitaan korvikkeena alla esitetyllä tavalla.

Koodi:

 Sub Find_Replace1 () Range ("B2: B10"). Korvaa mitä: = "Ben", Korvaava: = "Sam" End Sub

Vaihe 7: Käännä nyt koodi ja suorita se napsauttamalla Toista-painiketta tai painamalla F5-näppäintä, kuten alla.

Nähdään, että kaikki solut, jotka sisältävät nimen Ben, korvataan nyt nimellä Sam . Ja se on korostettu myös keltaisena.

VBA-haku ja vaihto - esimerkki 2

Me kaikki olemme joutuneet kohtaamaan tilanteeseen, jossa yritimme löytää ja korvata joitain sanoja kirjainkoolla merkityksellisillä kirjaimilla. Oletetaan luettelossa, jos haluamme korvata vain sen sanan, jossa on pieniä tai isoja kirjaimia. Ja jos käytämme prosessia, jonka olemme nähneet esimerkissä-1, lopulta korvaamme kaikki samanlaiset sanat kyseisessä luettelossa vaaditun kanssa. Tätä prosessia ei voida suorittaa excel-haku- ja korvaustoiminnon (Ctrl + H) avulla. Tätä varten meillä on säännös VBA: ssa.

Tarkastellaan tätä alla olevia tietoja. Kuten voimme nähdä, olemme tarkoituksellisesti lisänneet sanan BEN isoilla kirjaimilla soluun B2.

Noudata alla olevia vaiheita löytääksesi ja korvata sana BEN.

Vaihe 1: Käynnistä VBA-haku ja korvaa alaluokka alla olevan kuvan mukaisesti.

Koodi:

 Sub Etsi_Replace2 () Lopeta alaosa

Vaihe 2: Valitse luettelo alueeksi B2 - B10.

Koodi:

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

Vaihe 3: Valitse nyt tarkka sana, jonka haluamme korvata. Tässä olemme valinneet BEN: n, joka on solussa B2.

Koodi:

 Sub Find_Replace2 () Range ("B2: B10"). Korvaa mitä: = "BEN" End Sub

Vaihe 4: Jälleen olemme valinneet saman sanan, jonka olemme nähneet esimerkissä-1, BEN: n korvaamiseksi kuin Sam .

Koodi:

 Sub Find_Replace2 () Range ("B2: B10"). Korvaa mitä: = "BEN", Korvaava: = "Sam" End Sub

Vaihe 5: Nyt korvaamalla tarkka sana BEN, meidän on käytettävä MatchCasea, jos siitä tulee TOSI alla esitetyn mukaisesti.

Koodi:

 Sub Find_Replace2 () Range ("B2: B10"). Korvaa mitä: = "BEN", Korvaava: = "Sam", MatchCase: = True End Sub

MatchCase auttaa meitä tunnistamaan sen sanan, jonka haluamme korvata tarkalla haulla . Valitsemmemme sana on tässä iso kirjainkoko BEN ja luettelossa on myös muita vastaavia sanoja, mutta oikeassa tapauksessa.

Vaihe 6: Suorita nyt koodi napsauttamalla Toista-painiketta tai painamalla F5-näppäintä.

Näemme, että sana BEN, joka oli solussa B2, korvataan nyt sanalla “ Sam ”, korostettuna keltaisella värillä. Ja vastaavat sanat Ben, jotka sijaitsevat vastaavasti soluissa B5 ja B8, ovat edelleen muuttumattomia.

Näin tarkka ottelu korvaa.

Vaihe 7: Nyt poistetaan lisätty MatchCase yllä olevasta koodista ja katsotaan, miten tämä toimisi.

Koodi:

 Sub Find_Replace2 () Range ("B2: B10"). Korvaa mitä: = "BEN", Korvaava: = "Sam", MatchCase: = True End Sub

Vaihe 8: Käännä ja suorita koodi uudelleen.

Näemme, että koodi on korvannut kaikki solut, jotka sisältävät sanan Ben, kuten yllä. Mikä tarkoittaa, että MatchCase: n poistamisen jälkeen koodi toimii kuten olemme nähneet esimerkissä 1.

Plussat Excel VBA -hausta ja -korvaa

  • Tärkeä oppiminen on, että voimme korvata kirjainkoot ja sanat ja solusisällön avulla VBA-haku ja korvaaminen esimerkissä-2 esitetyllä tavalla.
  • Jos aktiviteetti tapahtuu manuaalisesti ja toistuu useita kertoja, tämän automatisoiminen olisi etu säästää sekä aikaa että vaivaa.
  • Vaikka meillä olisi valtava tietojoukko, jossa haluamme korvata tietyt sanat, se voidaan tehdä kaatamatta Excel-tiedostoja isoissa tiedostoissa.

Muistettavat asiat

  • Voimme luoda Etsi ja korvaa -toiminnon makron Tallenna makro -vaihtoehdon avulla Kehittäjä-välilehdessä. Tämä on helpoin tapa luoda makro, jos olet uusi koodaus.
  • Tiedoston tallentaminen makroon Ota Excel-muoto käyttöön mahdollistamalla koodin käytön tulevaisuudessa.
  • Voimme korvata minkä tahansa tyyppisen tekstin, sanan, numeron tai merkin VBA-haku- ja korvausohjelmalla.

Suositellut artikkelit

Tämä on opas VBA-hakuun ja korvaamiseen. Tässä keskustellaan siitä, kuinka löytää ja korvata sanoja Excelistä VBA: n avulla, sekä käytännön esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA-tauko Loopille
  2. Korvaa kaava Excelissä
  3. Täydellinen opas VBA-haku
  4. Etsii Excel-toiminnot

Luokka:

VBA