Efnisyfirlit
Ef þú ert að leita að leiðum til að skipta út texta í streng með því að nota Excel VBA , þá mun þér finnast þessi grein gagnleg. Að skipta út ákveðnum textahluta gæti sparað mikinn tíma við að slá inn textastrengina aftur. Svo, við skulum komast inn í aðalgreinina til að fá upplýsingar um þetta skiptiverkefni.
Sækja vinnubók
Skipta út texta í String.xlsm
5 leiðir til að skipta út texta í streng með því að nota Excel VBA
Hér höfum við eftirfarandi gagnasafn sem inniheldur nokkrar skrár yfir starfsmenn með tölvupóstauðkenni þeirra. Verkefni okkar er að skipta út gömlu lénunum fyrir þau nýju. Í eftirfarandi aðferðum munum við vinna með þetta gagnasafn ásamt nokkrum handahófskenndum textastrengjum til að skipta um texta sem óskað er eftir með VBA kóða.
Við höfum notað VBA kóða. 9>Microsoft Excel 365 útgáfa hér, þú getur notað allar aðrar útgáfur eftir hentugleika.
Aðferð-01: Skiptu um texta sem byrjar á n-th stöðu handahófsstrengs
Hér munum við skipta út texta í handahófskenndan textastreng fyrir mismunandi upphafsstöður.
Skref-01 :
➤ Farðu í Hönnuði flipann >> Kóði Hópur >> Visual Basic valkostur.
Síðan er Visual Basic ritstjórinn opnast.
➤ Farðu í Setja inn flipa >> Eining Valkostur.
Eftir það verður Eining búin til.
Step-02 :
➤ Skrifaðu eftirfarandikóða
7672
Hér höfum við lýst full_txt_str og updated_str sem String og síðan úthlutað full_txt_str við handahófskenndan texta strengur- „Hundrað bílar fimmtíu bíla tíu bílar“ . Síðan er VBA REPLACE aðgerðin notuð til að skipta út Cars hluta þessa handahófskennda strengs fyrir Reiðhjól og 1 eru notaðir hér til að hefja skiptingu frá stöðu 1 í þessum streng. Að lokum höfum við úthlutað þessum nýja textastreng til updated_str og með skilaboðareit ( MsgBox ) munum við sjá niðurstöðuna.
➤ Ýttu á F5 .
Þá birtist skilaboðakassi með nýja textastrengnum með textanum sem hefur verið skipt út Reiðhjól .
➤ Til að gera endurnýjunarferlið frá öðru tilviki Bílar notaðu eftirfarandi kóða.
Sub substitution_of_text_4() For i = 4 To 13 If InStr(1, Cells(i, 4).Value, "gmail") > 0 Then Cells(i, 6).Value = Replace(Cells(i, 4).Value, "gmail", Cells(i, 5).Value) Else Cells(i, 6).Value = "" End If Next i End Sub Hér höfum við notað upphafsstöðuna sem 14 vegna þess að við viljum hafa hluta strengsins á eftir Hundrað bílum og skipta út Bílar hér.
➤ Eftir keyrslu kóðann munum við hafa eftirfarandi skilaboðabox með textastrengnum byrjar frá textanum Fimmtíu og með Reiðhjól í stöðunni Bílar .
➤ Til að hafa aðeins síðasta hluta þessa strengs notum við eftirfarandi kóða.
8308
Hér höfum við notað upphafsstöðuna sem 25 vegna þess að við viljum hafa hluta strengsins á eftir Fifty Cars og skipta út Cars fyrir Reiðhjól hér.
Að lokum munum við hafa skilaboðareit þar sem æskilegur hluti strengsins kemur í staðinn fyrir Reiðhjól .
Lesa meira: Excel VBA: Skipta út persónu í streng eftir staðsetningu (4 áhrifaríkar leiðir)
Aðferð-02: Setja í stað texta fyrir n-ta tilvik handahófsstrengs með því að nota Excel VBA
Í þessum hluta munum við skipta út texta í handahófskenndum streng fyrir mismunandi fjölda tilvika með hjálpinni af VBA kóða.
Skref :
➤ Fylgdu Skref-01 af Aðferð-1 .
➤ Sláðu inn eftirfarandi kóða.
6948
Hér höfum við lýst full_txt_str og updated_str sem String og síðan úthlutað full_txt_str við handahófskenndan textastreng- “Hundrað bíla fimmtíu bíla tíu bíla” . Eftir það er REPLACE aðgerðin notuð til að skipta út Cars hluta þessa handahófskennda strengs fyrir Reiðhjól , 1 er notað hér til að hefja skiptingu frá stöðu 1 í þessum streng, og síðasta 1 er til að telja fjölda atvika. Með því að nota 1 sem talningarnúmerið erum við að skilgreina skipti á fyrstu bílunum aðeins. Að lokum höfum við úthlutað þessum nýja textastreng til updated_str og meðskilaboðakassi ( MsgBox ) við munum sjá niðurstöðuna.
➤ Ýttu á F5 .
Síðan, skilaboðakassi mun birtast með nýja textanum Reiðhjól í fyrstu stöðu á Bílar aðeins.
➤ Til að skipta út fyrstu tveimur tilvikum Bíla fyrir Reiðhjól notaðu eftirfarandi kóða.
8560
Hér er 2 notað sem talningartala til að koma í stað fyrstu tveggja tilvika Bíla með Reiðhjólum .
Eftir að þú keyrir kóðann muntu skipta út fyrstu tveimur textunum Bílar með Reiðhjólum .
➤ Notaðu eftirfarandi kóða til að skipta um öll tilvikin textans Bílar .
4256
Hér eru síðustu rökin í REPLACE fallinu 3 sem er talningarnúmer sem gefur til kynna að skipt hafi verið um alla bíla fyrir Reiðhjól í textastrengnum.
➤ Ýttu á F5 .
Síðan munum við hafa eftirfarandi skilaboðareit með textanum sem hefur verið skipt út Reiðhjól í strengnum.
Svipaðar lestur
- Hvernig á að skipta út texta fyrir flutningsskil í Excel (4 sléttar aðferðir)
- Excel VBA: Hvernig á að finna og Skipta út texta í Word skjali
- Hvernig á að skipta út texta eftir ákveðinn staf í Excel (3 aðferðir)
- Skipta út texta í aReitur byggt á ástandi í Excel (5 auðveldar aðferðir)
Aðferð-03: Skiptu út texta í handahófskenndum streng fyrir inntaksbox
Hér munum við skipta út ákveðnum texta af handahófskenndur strengur með texta sem verður skilgreindur af notanda með hjálp VBA InputBox fallsins .
Skref :
➤ Fylgdu Skref-01 af Aðferð-1 .
➤ Sláðu inn eftirfarandi kóða.
8848
Hér höfum við lýst yfir full_txt_str , new_txt og updated_str sem String og síðan úthlutað full_txt_str við handahófskenndan textastreng- „Hundrað Bílar Fimmtíu Bílar Tíu Bílar“ . Til að hafa notendaskilgreint inntak sem texta sem á að skipta út fyrir Bílar í handahófskennda strengnum, höfum við notað InputBox fallið og síðan úthlutað þessu gildi í new_txt . Síðan er REPLACE aðgerðin notuð til að skipta út Cars hluta þessa handahófskennda strengs fyrir new_txt . Að lokum höfum við úthlutað þessum nýja textastreng til updated_str og með skilaboðareit ( MsgBox ) munum við sjá niðurstöðuna.
➤ Ýttu á F5 .
Eftir það birtist Inntaksbox þar sem þú getur slegið inn hvaða textahluta sem þú vilt hafa í nýja strengnum.
➤ Sláðu inn Reiðhjól eða annan texta sem þú vilt og ýttu síðan á OK .
Að lokum muntu hafa eftirfarandi niðurstöðu með nýja textastrengnum með nýjum texta Reiðhjól ístöðu Bíla .
Lesa meira: Hvernig á að skipta út texta í Excel formúlu (7 auðveldar leiðir)
Aðferð-04: Skiptu út texta í strengjasviði með Excel VBA
Hér munum við skipta út gmail hlutanum af tölvupóstauðkennin með lénunum í Nýtt lén dálknum, og til að safna nýjum tölvupóstauðkennum höfum við sett inn nýjan dálk; Endanlegt auðkenni tölvupósts .
Skref :
➤ Fylgdu Skref-01 af Aðferð-1 .
➤ Sláðu inn eftirfarandi kóða.
1560
Hér höfum við notað FOR lykkjuna til að framkvæma aðgerðina frá Röð 4 til Röð 13 . Með hjálp IF-THEN yfirlýsingarinnar höfum við athugað hvort tölvupóstauðkenni Dálks innihaldi “gmail” eða ekki, og til að uppfylla þessa viðmiðun verður "gmail" hlutanum af auðkenni tölvupóstsins skipt út fyrir nýju lénin í E-dálki til að búa til nýju auðkennin í dálki F . Annars muntu hafa autt í samsvarandi hólfum í dálki F .
➤ Ýttu á F5 .
Þá muntu hafa nýju tölvupóstauðkennin í Endanlegt auðkenni tölvupósts .
Lesa meira: Excel VBA til að finna og skipta út texta í dálki (2 dæmi)
Aðferð-05: Skipta út texta í strengjasviði með notandainnslætti til að finna texta
Þú getur skipt út eftirfarandi tölvupóstauðkenni meðný lén og lýst því yfir hverju á að skipta út í fyrri auðkennum. Notandainntak er hægt að nota með því að fylgja þessari aðferð.
Skref :
➤ Fylgdu Skref-01 af Aðferð-1 .
➤ Sláðu inn eftirfarandi kóða.
8241
Hér höfum við skilgreint partial_text sem String og síðan úthlutað honum við streng sem notandi gefur í gegnum Inntaksreitinn .
Síðan notuðum við FOR lykkjuna til að framkvæma aðgerðina frá Röð 4 í Röð 13 og með því að nota yfirlýsingin EF-ÞÁ , athuguðum hvort tölvupóstauðkenni Dálks innihalda „gmail“ eða ekki. Og til að uppfylla þessa viðmiðun verður "gmail" hlutanum af auðkenni tölvupóstsins skipt út fyrir nýju lénin í E-dálki til að búa til nýju auðkennin í dálki F . Annars muntu hafa autt í samsvarandi hólfum í dálki F .
➤ Ýttu á F5 .
Eftir það muntu hafa Inntaksreit þar sem þú þarft að slá inn textann sem þú vilt leita í á fjölda tölvupóstauðkenna (hér höfum við slóst inn gmail ) og ýttu síðan á OK .
Loksins erum við með uppfærð tölvupóstauðkenni okkar í Final Netfang auðkenni dálks.
Lesa meira: Finndu og skiptu út texta á sviði með Excel VBA (Macro og UserForm)
Æfingahluti
Til að æfa með því aðsjálfur höfum við útvegað Æfinga hluta eins og hér að neðan í blaði sem heitir Æfing . Vinsamlegast gerðu það sjálfur.
Niðurstaða
Í þessari grein reyndum við að fjalla um leiðir til að skipta út texta í streng með Excel VBA . Vona að þér finnist það gagnlegt. Ef þú hefur einhverjar uppástungur eða spurningar skaltu ekki hika við að deila þeim í athugasemdahlutanum.
