Excel VBA leidmine ja asendamine

Kas olete kunagi mõelnud Excelis funktsiooni Leidmine ja asendamine automatiseerimist. VBA-s saame luua makro, mida saab kasutada kiirklahvide Ctrl + H abil leidmiseks ja asendamiseks, mida me tavaliselt teeme Excelis. VBA leidmise ja asendamise abil saame automatiseerida mis tahes sõna leidmise ja asendada selle muu asendamisega. See aitab, kui peame sama toimingut tegema mitu korda.

Kuidas Excel VBA-s sõnu leida ja asendada?

Allpool on toodud erinevad näited sõnade excelis leidmiseks ja asendamiseks, kasutades VBA-koodi.

Selle VBA Exceli malli leidmise ja asendamise malli saate alla laadida siit - VBA Exceli malli leidmine ja asendamine

VBA leidmine ja asendamine - näide nr 1

Väga lihtsas näites on meil andmekogum, mis koosneb mingist nimest. Ja mõned nimed korduvad, nagu allpool näidatud.

Nüüd loome koodi, mille abil leiame kõik korduvad nimed ja asendame need millegi muuga. Selleks toimige järgmiselt.

1. samm: minge VBA menüüsse Sisesta ja valige moodul, nagu allpool näidatud.

2. samm. Kui see on tehtud, avatakse uus moodul. Kirjutage sellesse moodulisse alamkategooria VBA otsimise ja asendamise nimele või võite valida selle alamkategooria mis tahes nime.

Kood:

 Sub Find_Replace1 () End Sub

3. samm: Kuna meil on veeru B andmed lahtrist B2 kuni B10, valime selle vahemiku kõigepealt B2: B10 hulgast.

Kood:

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

4. samm . Selle sõna asendamiseks peame selle sõna otsima. Samuti valime siin esmalt funktsiooni Asenda, et vaadata, mida me peame asendama.

Kood:

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

Nagu funktsiooni Asenda süntaksis, leiame selle, mida peame asendama.

5. samm: valime asendamiseks loendi eesnime “ Ben ”.

Kood:

 Sub Find_Replace1 () Range ("B2: B10"). Asenda Mis: = "Ben" End Sub

6. samm. Valige nüüd asendav sõna, millega peame valitud sõna asendama. Siin otsustasime asendada nime Ben Samiga, mida mainitakse asendamisena, nagu allpool näidatud.

Kood:

 Sub Find_Replace1 () Range ("B2: B10"). Asenda Mis: = "Ben", Asendamine: = "Sam" End Sub

7. samm. Nüüd kompileerige kood ja käivitage see, klõpsates nuppu Esita või vajutades klahvi F5, nagu allpool näidatud.

Näeme, et kõik lahtrid, mis sisaldavad Ben-i nime, on nüüd asendatud nimega Sam . Ja see on esile tõstetud ka kollase värviga.

VBA leidmine ja asendamine - näide nr 2

Võib-olla oleksime kõik seisnud silmitsi olukorraga, kus püüdsime leida ja asendada mõned sõnad tõstutundlike tähtedega. Oletame loendis, kui tahame asendada ainult selle sõna, millel on väiketähed või suured tähed. Ja kui me kasutame näites-1 nähtut, asendaksime kõik selles loendis olevad sarnased sõnad nõutud sõnadega. Seda protsessi ei saa teha Exceli funktsiooni leidmise ja asendamise (Ctrl + H) abil. Selleks on meil VBA-s säte.

Vaatleme selle jaoks allpool toodud andmeid. Nagu näeme, oleme lahtrisse B2 tahtlikult lisanud sõna BEN suurtähtedega.

Sõna BEN otsimiseks ja asendamiseks toimige järgmiselt .

1. samm: käivitage VBA alamkategooria leidmine ja asendamine, nagu allpool näidatud.

Kood:

 Alam Leia_Replaat2 () Lõpeta alam

2. samm: valige loend vahemikus B2 kuni B10.

Kood:

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

3. samm. Valige nüüd täpne sõna, mille tahame asendada. Siin valisime BEN, mis on lahtris B2.

Kood:

 Sub Find_Replace2 () Range ("B2: B10"). Asenda Mis: = "BEN" End Sub

4. samm: jällegi valisime BENi asendajaks sama sõna, mida nägime näites 1.

Kood:

 Sub Find_Replace2 () Range ("B2: B10"). Asenda Mis: = "BEN", Asendus: = "Sam" End Sub

5. samm: täpse sõna BEN asendamiseks peame kasutama MatchCase'i, kui sellest saab tõeline nagu allpool näidatud.

Kood:

 Sub Find_Replace2 () Range ("B2: B10"). Asenda Mis: = "BEN", Asendus: = "Sam", MatchCase: = True End Sub

MatchCase aitab meil tuvastada selle sõna, mille tahame täpse vastega asendada. Siin on meie valitud sõna BEN suurtähtedega ja loendis on ka teisi sarnaseid sõnu, kuid õigel juhul.

6. samm: käivitage kood, klõpsates nuppu Esita või vajutades klahvi F5.

Näeme, et lahtris B2 olev sõna BEN on nüüd asendatud kollase värviga esiletõstetud sõnaga „ Sam ”. Ja sarnased sõnad Ben, mis asuvad vastavalt lahtrites B5 ja B8, on endiselt muutmata.

Nii toimib täpne vaste.

7. samm: nüüd eemaldame lisatud MatchCase ülaltoodud koodist ja vaatame, kuidas see toimiks.

Kood:

 Sub Find_Replace2 () Range ("B2: B10"). Asenda Mis: = "BEN", Asendus: = "Sam", MatchCase: = True End Sub

8. samm: taas kompileerige ja käivitage kood.

Nagu näeme, on kood asendanud kõik lahtrid, mis sisaldavad sõna Ben. Mis tähendab, et pärast MatchCase'i eemaldamist töötab kood nii, nagu nägime näites 1.

Plussid Exceli VBA otsimisel ja asendamisel

  • Suurim õpe on see, et saame asendada tõstutundlikke sõnu ja lahtrite sisu abiga VBA leidmine ja asendamine, nagu on näidatud näites-2.
  • Kui tegevust korratakse käsitsi ja mitu korda korratakse, oleks selle automatiseerimine eeliseks aja ja vaeva säästmisel.
  • Isegi kui meil on tohutul hulgal andmeid, kus tahame konkreetseid sõnu asendada, saab seda teha ilma, et Exceli mahukad failid kokku jookseksid.

Asjad, mida meeles pidada

  • Saame funktsiooni Otsi ja asenda makro luua vahekaardi Arendaja valiku Salvesta makro abil. See on lihtsaim viis makro loomiseks, kui olete kodeerimisega uus.
  • Faili salvestamine makrovormingus Luba Exceli vorming võimaldab tulevikus koodi harjuda.
  • Igasuguse teksti, sõna, numbri või tähemärgi saame asendada VBA otsimise ja asendamisega.

Soovitatavad artiklid

See on VBA leidmise ja asendamise juhend. Siin arutatakse, kuidas VBA-s sõnu Excelis leida ja asendada, koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA paus Loopile
  2. Asenda valem Excelis
  3. Täielik juhend VBA leidmiseks
  4. Otsi funktsiooni Excelis

Kategooria:

VBA