Turinys
Jei ieškote būdų, kaip pakeisti tekstą eilutėje naudojant "Excel VBA , tuomet šis straipsnis jums bus naudingas. Pakeitus tam tikrą teksto dalį galima sutaupyti daug laiko iš naujo įvedant teksto eilutes. Taigi pereikime prie pagrindinio straipsnio, kad sužinotumėte išsamią informaciją apie šią pakeitimo užduotį.
Atsisiųsti darbo knygą
Teksto pakeitimas String.xlsm eilutėje5 būdai, kaip pakeisti tekstą eilutėje naudojant "Excel VBA
Turime tokį duomenų rinkinį, kuriame yra keletas darbuotojų įrašų su jų el. pašto identifikatoriais. Mūsų užduotis - pakeisti senus domenų vardus naujais. Toliau nurodytais metodais dirbsime su šiuo duomenų rinkiniu kartu su atsitiktinėmis teksto eilutėmis, kad pakeistume norimą tekstą VBA kodai.
Mes naudojome "Microsoft Excel 365 versiją, bet galite naudoti bet kokias kitas versijas pagal savo patogumą.
01 metodas: pakeisti tekstą, pradedant nuo n-tosios atsitiktinės eilutės pozicijos
Čia pakeisime tekstą atsitiktine teksto eilute skirtingose pradinėse pozicijose.
Žingsnis-01 :
➤ Eikite į Kūrėjas Skirtukas>> Kodas Grupė>> "Visual Basic Galimybė.
Tada "Visual Basic" redaktorius atsivers.
➤ Eikite į Įdėkite Skirtukas>> Modulis Galimybė.
Po to Modulis bus sukurta.
Žingsnis-02 :
➤ Parašykite šį kodą
Sub substitution_of_text_1() Dim full_txt_str, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" updated_str = Replace(full_txt_str, "Automobiliai", "Dviračiai", 1) MsgBox updated_str End Sub Čia mes paskelbėme full_txt_str ir updated_str kaip Stygos ir tada priskirtas full_txt_str į atsitiktinę teksto eilutę. "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" . Tada VBA REPLACE funkcija naudojamas vietoj Automobiliai šios atsitiktinės eilutės dalis su Dviračiai ir 1 čia naudojamas pakeitimui pradėti nuo pozicijos 1 galiausiai priskyrėme šią naują teksto eilutę updated_str ir su pranešimų langeliu ( MsgBox ) pamatysime rezultatą.
➤ Spauda F5 .
Tada a pranešimo langelis bus rodoma nauja teksto eilutė su pakeistu tekstu. Dviračiai .
➤ Norėdami atlikti pakeitimo procesą iš antrosios instancijos Automobiliai naudokite šį kodą.
Sub substitution_of_text_1() Dim full_txt_str, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" updated_str = Replace(full_txt_str, "Automobiliai", "Dviračiai", 14) MsgBox updated_str End Sub Čia pradinę padėtį naudojame kaip 14 nes norime, kad eilutės dalis po Šimtai automobilių ir pakeiskite Automobiliai čia.
➤ Po veikia kodą, turėsime pranešimo langelis su teksto eilutė pradedant nuo teksto Penkiasdešimt ir su Dviračiai į poziciją Automobiliai .
➤ Norėdami turėti tik paskutinę šios eilutės dalį, taikome šį kodą.
Sub substitution_of_text_1() Dim full_txt_str, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" updated_str = Replace(full_txt_str, "Automobiliai", "Dviračiai", 25) MsgBox updated_str End Sub Čia pradinę padėtį naudojame kaip 25 nes norime, kad eilutės dalis po Penkiasdešimt automobilių ir pakeiskite Automobiliai su Dviračiai čia.
Galiausiai turėsime pranešimo langelis su mūsų norima eilutės dalimi, pakeičiant ją Dviračiai .
Skaityti daugiau: "Excel VBA": pakeiskite eilutės simbolį pagal padėtį (4 veiksmingi būdai)
Metodas-02: Teksto pakeitimas n-tuoju atsitiktinės eilutės pasikartojimu naudojant "Excel VBA
Šiame skyriuje pakeisime tekstą atsitiktine eilute su skirtingu pasikartojimų skaičiumi, naudodami VBA kodas.
Žingsniai :
➤ Sekite Žingsnis-01 iš 1 metodas .
➤ Įveskite šį kodą.
Sub substitution_of_text_2() Dim full_txt_str, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" updated_str = Replace(full_txt_str, "Automobiliai", "Dviračiai", 1, 1) MsgBox updated_str End Sub Čia mes paskelbėme full_txt_str ir updated_str kaip Stygos ir tada priskirtas full_txt_str į atsitiktinę teksto eilutę. "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" . Po to REPLACE funkcija naudojamas vietoj Automobiliai šios atsitiktinės eilutės dalis su Dviračiai , 1 čia naudojamas pakeitimui pradėti nuo pozicijos 1 šios eilutės, o galutinis 1 yra skirtas įvykių skaičiavimui. 1 kaip skaičiavimo numerį, kuriuo apibrėžiame pirmojo numerio pakeitimą Automobiliai Galiausiai šią naują teksto eilutę priskyrėme updated_str ir su pranešimų langeliu ( MsgBox ) pamatysime rezultatą.
➤ Spauda F5 .
Vėliau pranešimo langelis bus rodomas naujas tekstas Dviračiai į pirmoji pozicija iš Automobiliai tik.
➤ Norėdami pakeisti pirmuosius du egzempliorius Automobiliai su Dviračiai naudokite šį kodą.
Sub substitution_of_text_2() Dim full_txt_str, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" updated_str = Replace(full_txt_str, "Automobiliai", "Dviračiai", 1, 2) MsgBox updated_str End Sub Čia, 2 naudojamas kaip skaičiavimo skaičius, kuriuo pakeičiami pirmieji du egzemplioriai Automobiliai su Dviračiai .
Paleidę kodą, galėsite pakeisti pirmuosius du tekstus Automobiliai su Dviračiai .
➤ Visiems teksto atvejams pakeisti naudokite šį kodą Automobiliai .
Sub substitution_of_text_2() Dim full_txt_str, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" updated_str = Replace(full_txt_str, "Automobiliai", "Dviračiai", 1, 3) MsgBox updated_str End Sub Čia paskutinis argumentas REPLACE funkcija yra . 3 kuris yra skaičiuojamasis skaičius, rodantis, kad pakeisti visi Automobiliai su Dviračiai teksto eilutėje.
➤ Spauda F5 .
Vėliau vyks šie renginiai pranešimo langelis su pakeistu tekstu Dviračiai eilutėje.
Panašūs skaitiniai
- Kaip "Excel" programoje pakeisti tekstą su grįžtamuoju vežimėliu (4 sklandūs metodai)
- "Excel VBA": kaip rasti ir pakeisti tekstą "Word" dokumente
- Kaip pakeisti tekstą po tam tikro simbolio "Excel" programoje (3 metodai)
- Pakeiskite ląstelės tekstą pagal "Excel" sąlygą (5 paprasti metodai)
Metodas-03: Atsitiktinės eilutės teksto pakeitimas naudojant "InputBox
Čia tam tikrą atsitiktinės eilutės tekstą pakeisime tekstu, kurį nustatys naudotojas, naudodamasis VBA funkcija InputBox .
Žingsniai :
➤ Sekite Žingsnis-01 iš 1 metodas .
➤ Įveskite šį kodą.
Sub substitution_of_text_3() Dim full_txt_str, new_txt, updated_str As String full_txt_str = "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" new_txt = InputBox("Įrašykite naują tekstą, kurį norite pakeisti") updated_str = Replace(full_txt_str, "Cars", new_txt) MsgBox updated_str End Sub Čia mes paskelbėme full_txt_str , new_txt , ir updated_str kaip Stygos ir tada priskirtas full_txt_str į atsitiktinę teksto eilutę. "Šimtas automobilių Penkiasdešimt automobilių Dešimt automobilių" . Jei norite, kad naudotojo įvestis būtų pakeista tekstu Automobiliai atsitiktinėje eilutėje naudojome Funkcija InputBox ir tada šią vertę priskyrė new_txt . Tada REPLACE funkcija naudojamas vietoj Automobiliai šios atsitiktinės eilutės dalis su new_txt Galiausiai šią naują teksto eilutę priskyrėme updated_str ir su pranešimų langeliu ( MsgBox ) pamatysime rezultatą.
➤ Spauda F5 .
Po to Įvesties langelis bus rodomas langas, kuriame galite įvesti bet kokią teksto dalį, kurią norite įtraukti į naują eilutę.
➤ Tipas Dviračiai arba bet kokį kitą norimą tekstą, tada paspauskite GERAI .
Galiausiai gausite tokį rezultatą, kai naujoji teksto eilutė turės naują tekstą Dviračiai į poziciją Automobiliai .
Skaityti daugiau: Kaip pakeisti tekstą "Excel" formulėje (7 paprasti būdai)
Metodas-04: teksto pakeitimas eilutės diapazone naudojant "Excel VBA
Čia pakeisime gmail el. pašto ID dalis su domenais, esančiais Naujas domenas stulpelį, o naujiems el. pašto ID kaupti įterpėme naują stulpelį; Galutinis el. pašto ID .
Žingsniai :
➤ Sekite Žingsnis-01 iš 1 metodas .
➤ Įveskite šį kodą.
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 Čia mes naudojome FOR ciklas atlikti operaciją iš 4 eilutė į 13 eilutė . Padedant IF-THEN teiginį, patikrinome, ar el. pašto ids D stulpelis yra "gmail" arba ne, ir kad atitiktų šį kriterijų "gmail" el. pašto ID dalis bus pakeista naujais domenais E stulpelis sukurti naujus identifikatorius F stulpelis Priešingu atveju atitinkamuose langeliuose bus tuščia vieta. F stulpelis .
➤ Spauda F5 .
Tada naujieji el. pašto ID bus įrašyti į Galutinis el. pašto ID skiltis.
Skaityti daugiau: "Excel VBA" teksto stulpelyje suradimas ir pakeitimas (2 pavyzdžiai)
Metodas-05: teksto pakeitimas eilutės diapazone su naudotojo įvestimi, siekiant rasti tekstą
Galite pakeisti šiuos el. pašto ids naujais domenais ir deklaruoti, ką pakeisti ankstesniuose ids naudotojo įvestis gali būti naudojama pagal šį metodą.
Žingsniai :
➤ Sekite Žingsnis-01 iš 1 metodas .
➤ Įveskite šį kodą.
Sub substitution_of_text_5() Dim partial_text As String partial_text = Application.InputBox("Įveskite keistiną eilutę") For i = 4 To 13 If InStr(1, Cells(i, 4).Value, LCase(partial_text))> 0 Then Cells(i, 6).Value = Replace(Cells(i, 4).Value, LCase(partial_text), Cells(i, 5).Value) Else Cells(i, 6).Value = "" End If Next i End Sub Čia apibrėžėme partial_text kaip Stygos ir priskyrė jį eilutei, kurią naudotojas pateiks per Įvesties langelis .
Vėliau naudojome FOR ciklas atlikti operaciją iš 4 eilutė į 13 eilutė ir naudojant IF-THEN teiginį, patikrinome, ar el. pašto ID D stulpelis yra "gmail" arba ne. Ir, kad atitiktų šį kriterijų. "gmail" el. pašto ID dalis bus pakeista naujais domenais E stulpelis sukurti naujus identifikatorius F stulpelis Priešingu atveju atitinkamuose langeliuose bus tuščia vieta. F stulpelis .
➤ Spauda F5 .
Po to turėsite Įvesties langelis kur turite įvesti tekstą, kurio norite ieškoti el. pašto identifikatorių diapazone (čia įvedėme gmail ) ir paspauskite GERAI .
Galiausiai atnaujintus el. pašto ID įrašome į Galutinis el. pašto ID skiltis.
Skaityti daugiau: Teksto paieška ir pakeitimas diapazone naudojant "Excel VBA" (makrokomandą ir naudotojo formą)
Praktikos skyrius
Norėdami patys atlikti praktiką, pateikėme Praktika skirsnį, kaip nurodyta toliau, lape, pavadintame Praktika . Prašome tai padaryti patiems.
Išvada
Šiame straipsnyje bandėme apžvelgti būdus, kaip pakeisti tekstą eilutėje naudojant "Excel". VBA . tikiuosi, kad jums tai bus naudinga. Jei turite pasiūlymų ar klausimų, nedvejodami pasidalykite jais komentarų skiltyje.
