Enhavtabelo
Se vi serĉas manierojn anstataŭigi tekston en ĉeno uzante Excel VBA , tiam vi trovos ĉi tiun artikolon utila. Anstataŭigi certan tekstparton povas ŝpari multe da tempo en tajpado de la tekstaj ŝnuroj denove. Do, ni eniru la ĉefan artikolon por scii la detalojn pri ĉi tiu anstataŭiga tasko.
Elŝutu Laborlibron
Anstataŭigi Tekston en String.xlsm
5 Manieroj Anstataŭigi Tekston en Ŝnuro Uzante Excel VBA
Ĉi tie, ni havas la jenan datumaron enhavantan kelkajn registrojn de la dungitoj kun iliaj retpoŝtaj identigiloj. Nia tasko estas anstataŭigi la malnovajn domajnajn nomojn per la novaj. En la sekvaj metodoj, ni laboros kun ĉi tiu datumaro kune kun kelkaj hazardaj tekstaj ĉenoj por anstataŭigi deziratan tekston per VBA kodoj.
Ni uzis
. 9>Microsoft Excel 365 versio ĉi tie, vi povas uzi iujn ajn aliajn versiojn laŭ via oportuno.
Metodo-01: Anstataŭigi Tekston Komencante de n-a Pozicio de Hazarda Ŝnuro
Ĉi tie ni anstataŭigos tekston en hazarda teksta ĉeno por malsamaj komencaj pozicioj.
Paŝo-01 :
➤ Iru al la Ellaboranto Lapeto >> Kodo Grupo >> Visual Basic Opcio.
Tiam, la Visual Basic Redaktoro malfermiĝos.
➤ Iru al la Enmeti Lageto >> Modulo Opcio.
Post tio, Modulo estos kreita.
Paŝo-02 :
➤ Skribu la jenonkodo
8000
Ĉi tie, ni deklaris full_txt_str kaj updated_str kiel String kaj poste asignis full_txt_str al hazarda teksto string- “Cent Aŭtoj Kvindek Aŭtoj Dek Aŭtoj” . Tiam la VBA Anstataŭigi funkcion estas uzata por anstataŭigi la Aŭtojn parton de ĉi tiu hazarda ĉeno per Bicikloj kaj 1 estas uzataj ĉi tie por komenci la anstataŭigon de pozicio 1 de ĉi tiu ĉeno. Fine, ni asignis ĉi tiun novan tekstĉenon al updated_str kaj kun mesaĝkesto ( MsgBox ) ni vidos la rezulton.
➤ Premu F5 .
Tiam aperos mesaĝkesto kun la nova tekstoĉeno kun la anstataŭigita teksto Bicikloj .
➤ Por fari la anstataŭan procezon de la dua okazo de Aŭtoj uzu la jenan kodon.
1752
Ĉi tie, ni uzis la komencan pozicion kiel 14 ĉar ni volas havi la parton de la ŝnuro post Cent Aŭtoj kaj anstataŭigi la Aŭtoj ĉi tie.
➤ Post funkciado la kodo, ni havos la jenan mesaĝkeston kun la teksta ĉeno komencanta de la teksto Kvindek kaj kun Bicikloj en la pozicio de Aŭtoj .
➤ Por havi nur la lastan parton de ĉi tiu ĉeno ni aplikas la jenan kodon.
2805
Ĉi tie, ni uzis la komencan pozicion kiel 25 ĉar ni volas havi la parton de la ŝnuro post Kvindek Aŭtoj kaj anstataŭigi la Aŭtojn per Bicikloj ĉi tie.
Fine, ni havos mesaĝkeston kun nia dezirata parto de la ĉeno havanta la anstataŭaĵon per Bicikloj .
Legu Pli: Excel VBA: Anstataŭigi Signon en Ŝnuro per Pozicio (4 Efikaj Manieroj)
Metodo-02: Anstataŭigi Tekston por n-a Okazo de Hazarda Ŝnuro Uzante Excel VBA
En ĉi tiu sekcio, ni anstataŭigos tekston en hazarda ĉeno por malsamaj nombroj da okazoj kun la helpo de VBA kodo.
Paŝoj :
➤ Sekvu Paŝo-01 de Metodo-1 .
➤ Tajpu la jenan kodon.
1467
Ĉi tie, ni deklaris full_txt_str kaj ĝisdatigita_str kiel String kaj poste asignita full_txt_str al hazarda teksta ĉeno- “Cent Aŭtoj Kvindek Aŭtoj Dek Aŭtoj” . Post tio, la funkcio Anstataŭigi estas uzata por anstataŭigi la Aŭtojn parton de ĉi tiu hazarda ŝnuro per Bicikloj , 1 estas ĉi tie uzata por komenci la anstataŭigon de pozicio 1 de ĉi tiu ĉeno, kaj la fina 1 estas por kalkuli la nombron da okazoj. Uzante 1 kiel la kalkulan nombron ni difinas la anstataŭigon de la unua Aŭtoj nur. Fine, ni asignis ĉi tiun novan tekstĉenon al updated_str kaj kun amesaĝkesto ( MsgBox ) ni vidos la rezulton.
➤ Premu F5 .
Poste, mesaĝkesto aperos kun la nova teksto Bicikloj en la unua pozicio de Aŭtoj nur.
➤ Por anstataŭigi la unuajn du okazojn de Aŭtoj per Bicikloj uzu la sekvan kodon.
2027
Ĉi tie, 2 estas uzata kiel kalkula nombro por anstataŭigi la unuajn du okazojn de Aŭtoj kun Bicikloj .
Post rulado de la kodo, vi havos la anstataŭigon de la unuaj du tekstoj Aŭtoj kun Bicikloj .
➤ Apliku la sekvan kodon por anstataŭigi ĉiujn okazojn de la teksto Aŭtoj .
3946
Ĉi tie, la lasta argumento de la funkcio Anstataŭigi estas 3 kiu estas la kalkula nombro indikanta la anstataŭigon de ĉiuj Aŭtoj kun Bicikloj en la teksta ĉeno.
➤ Premu F5 .
Poste, ni faros havu la jenan mesaĝkeston kun la anstataŭigita teksto Bicikloj en la ĉeno.
Similaj legaĵoj
- Kiel Anstataŭigi Tekston per Kala Reveno en Excel (4 Glataj Alproksimiĝoj)
- Excel VBA: Kiel Trovi kaj Anstataŭigi Tekston en Vorta Dokumento
- Kiel Anstataŭigi Tekston post Specifa Signo en Excel (3 Metodoj)
- Anstataŭigi Tekston deĈelo Bazita sur Kondiĉo en Excel (5 Facilaj Metodoj)
Metodo-03: Anstataŭigi Tekston en Hazarda Ŝnuro per InputBox
Ĉi tie, ni anstataŭigos certan tekston de hazarda ĉeno kun teksto, kiu estos difinita de uzanto helpe de la funkcio VBA InputBox .
Paŝoj :
➤ Sekvu Paŝo-01 de Metodo-1 .
➤ Tajpu la sekvan kodon.
3505
Ĉi tie, ni deklaris full_txt_str , new_txt , kaj ĝisdatigita_str kiel String kaj poste asignitaj full_txt_str al hazarda teksta ĉeno- “Cent Aŭtoj Kvindek Aŭtoj Dek Aŭtoj” . Por havi la uzant-difinitan enigon kiel la tekston anstataŭigita per la Aŭtoj en la hazarda ĉeno, ni uzis la InputBox-funkcion kaj poste asignis ĉi tiun valoron. al nova_txt . Tiam la funkcio Anstataŭigi estas uzata por anstataŭigi la Aŭtojn parton de ĉi tiu hazarda ĉeno per nova_txt . Fine, ni asignis ĉi tiun novan tekstĉenon al updated_str kaj kun mesaĝkesto ( MsgBox ) ni vidos la rezulton.
➤ Premu F5 .
Post tio aperos Eniga Skatolo kie vi povas enigi ajnan tekstparton, kiun vi volas havi en la nova ĉeno.
➤ Tajpu Biciklojn aŭ ajnan alian tekston, kiun vi volas, kaj poste premu OK .
Fine, vi faros havi la sekvan rezulton kun la nova tekstoĉeno havanta novan tekston Bicikloj enla pozicio de Aŭtoj .
Legu Pli: Kiel Anstataŭigi Tekston en Excel Formulo (7 Facilaj Manieroj)
Metodo-04: Anstataŭigi Tekston en Gamo de Ŝnuroj per Excel VBA
Ĉi tie, ni anstataŭigos la gmail parton de la retpoŝtaj identigiloj kun la domajnoj en la kolumno Nova Domajno , kaj por amasigi la novajn retpoŝtajn identigilojn ni enmetis novan kolumnon; Fina Retpoŝta Idaro .
Paŝoj :
➤ Sekvu Paŝo-01 de Metodo-1 .
➤ Tajpu la jenan kodon.
9424
Ĉi tie, ni uzis la FOR-buklon por efektivigi la operacion de Vico 4 al Vico 13 . Helpe de la deklaro IF-THEN , ni kontrolis ĉu la retpoŝtaj identigiloj de Kolumno D enhavas “gmail” aŭ ne, kaj por plenumi ĉi tiun kriterion la “gmail” parto de la retpoŝtaj identigiloj estos anstataŭigita per la novaj domajnoj de Kolumno E por krei la novajn identigilojn en Kolumno F . Alie vi havos malplenan en la respondaj ĉeloj de Kolumno F .
➤ Premu F5 .
Tiam, vi havos la novajn retpoŝtajn identigilojn en la Fina Retpoŝta Idaro kolumno.
Legu Pli: Excel VBA por Trovi kaj Anstataŭigi Tekston en Kolumno (2 Ekzemploj)
Metodo-05: Anstataŭigi Tekston en Gamo de Ŝnuroj per Uzanta Enigo por Trovi Tekston
Vi povas anstataŭigi la sekvaj retpoŝtaj identigiloj kun lanovajn domajnojn kaj deklari kion anstataŭigi en la antaŭaj identigiloj, uzanta enigo povas esti uzata sekvante ĉi tiun metodon.
Paŝoj :
➤ Sekvu Paŝo-01 de Metodo-1 .
➤ Tajpu la sekvan kodon.
2580
Ĉi tie, ni difinis parta_teksto kiel String kaj poste asignis ĝin al ĉeno, kiu estos donita de uzanto per la Eniga Skatolo .
Poste, ni uzis la FOR-buklon por efektivigi la operacion de Vico 4 al Vico 13 , kaj uzante la IF-THEN deklaro, ni kontrolis ĉu la retpoŝtaj identigiloj de Kolumno D enhavas “gmail” aŭ ne. Kaj por plenumi ĉi tiun kriterion la “gmail” parto de la retpoŝtaj identigiloj estos anstataŭigita per la novaj domajnoj de Kolumno E por krei la novaj id-oj en Kolumno F . Alie vi havos malplenan en la respondaj ĉeloj de Kolumno F .
➤ Premu F5 .
Post tio, vi havos Enigkeston kie vi devas tajpi la tekston, kiun vi volas serĉi en la gamo de retpoŝtaj identigiloj (ĉi tie ni havas enigis gmail ) kaj poste premu OK .
Fine, ni havas niajn ĝisdatigitajn retpoŝtajn identigilojn en la Finalo. Retpoŝto Id kolumno.
Legu Pli: Trovu kaj Anstataŭigi Tekston en Intervalo per Excel VBA (Makroo kaj UzantFormo)
Praktika sekcio
Por ekzercado devi mem ni disponigis sekcion Praktiko kiel sube en folio nomita Praktiko . Bonvolu fari ĝin memstare.
Konkludo
En ĉi tiu artikolo, ni provis kovri la manierojn anstataŭigi tekston en ĉeno uzante Excel VBA . Espereble vi trovos ĝin utila. Se vi havas sugestojn aŭ demandojn, bonvolu dividi ilin en la komenta sekcio.
