Ynhâldsopjefte
As jo nei manieren sykje om tekst yn in tekenrige te ferfangen mei Excel VBA , dan sille jo dit artikel nuttich fine. It ferfangen fan in bepaald tekstdiel kin in protte tiid besparje by it wer typen fan tekststrings. Dus, lit ús yn it haadartikel gean om de details oer dizze ferfangende taak te kennen.
Wurkboek downloade
Tekst ferfange yn String.xlsm
5 manieren om tekst yn tekenrige te ferfangen mei Excel VBA
Hjir hawwe wy de folgjende dataset dy't guon records fan 'e meiwurkers mei har e-post-ID's befetsje. Us taak is om de âlde domeinnammen te ferfangen troch de nije. Yn 'e folgjende metoaden sille wy wurkje mei dizze dataset tegearre mei wat willekeurige tekststrings om de winske tekst te ferfangen troch VBA -koades.
Wy hawwe VBA -koades brûkt. 9>Microsoft Excel 365 ferzje hjir, kinne jo alle oare ferzjes brûke neffens jo gemak.
Metoade-01: Ferfange tekst begjinnend fan n-de posysje fan in willekeurige tekenrige
Hjir sille wy tekst ferfange yn in willekeurige tekststring foar ferskillende startposysjes.
Stap-01 :
➤ Gean nei de Untwikkelder Tab >> Koade Groep >> Visual Basic Opsje.
Dan, de Visual Basic Editor sil iepene wurde.
➤ Gean nei de Ynfoegje Labje >> Module Opsje.
Dêrnei sil in Module oanmakke wurde.
Stap-02 :
➤ Skriuw it folgjendekoade
4500
Hjir hawwe wy full_txt_str en updated_str ferklearre as String en dan full_txt_str tawiisd oan in willekeurige tekst string- "Hûndert auto's fyftich auto's tsien auto's" . Dan wurdt de VBA REPLACE-funksje brûkt om it Cars diel fan dizze willekeurige string te ferfangen troch Fytsen en 1 wurdt hjir brûkt om de ferfanging te begjinnen fanôf posysje 1 fan dizze tekenrige. Uteinlik hawwe wy dizze nije tekststring tawiisd oan updated_str en mei in berjochtfak ( MsgBox ) sille wy it resultaat sjen.
➤ Druk op F5 .
Dan sil in berjochtfak ferskine mei de nije tekststring mei de ferfongen tekst Fytsen .
➤ Om it ferfangingsproses te dwaan fanút it twadde eksimplaar fan Auto's brûk de folgjende koade.
2650
Hjir hawwe wy de startposysje brûkt as 14 om't wy it diel fan 'e snaar hawwe wolle nei Hûndert auto's en ferfange de Auto's hjir.
➤ Nei it útfieren de koade, sille wy de folgjende berjochtenfak hawwe mei de tekststring begjinnend mei de tekst Fyftich en mei Fytsen yn de posysje fan Auto's .
➤ Om allinich it lêste diel fan dizze tekenrige te hawwen tapasse wy de folgjende koade.
6957
Hjir hawwe wy de startposysje brûkt as 25 om't wy it diel fan 'e snaar hawwe wolle nei Fifty Cars en de Cars ferfange troch Fytsen hjir.
Uteinlik sille wy in berjochtfak hawwe wêrby't ús winske diel fan 'e tekenrige de ferfanging hat mei Fytsen .
Lês mear: Excel VBA: Ferfange karakter yn string troch posysje (4 effektive manieren)
Metoade-02: Tekst ferfange foar n-de foarkommen fan in willekeurige tekenrige mei Excel VBA
Yn dizze seksje sille wy in tekst yn in willekeurige tekenrige ferfange foar ferskate oantallen foarfallen mei help fan in VBA koade.
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Typ de folgjende koade.
9328
Hjir hawwe wy full_txt_str en updated_str ferklearre as String en dan tawiisd full_txt_str oan in willekeurige tekst string- "Hûndert auto's fyftich auto's tsien auto's" . Dêrnei wurdt de REPLACE-funksje brûkt om it Cars diel fan dizze willekeurige string te ferfangen troch Fytsen , 1 wurdt hjir brûkt om de ferfanging te begjinnen fanôf posysje 1 fan dizze tekenrige, en de lêste 1 is foar it tellen fan it oantal foarfallen. Troch 1 as it tellende nûmer te brûken, definiearje wy allinich de ferfanging fan 'e earste Auto's . Uteinlik hawwe wy dizze nije tekststring tawiisd oan updated_str en mei inberjochtfak ( MsgBox ) sille wy it resultaat sjen.
➤ Druk op F5 .
Dernei, in berjochtfak sil ferskine mei de nije tekst Fytsen yn de earste posysje fan Auto's allinnich.
➤ Foar it ferfangen fan de earste twa eksimplaren fan Auto's mei Fytsen brûk de folgjende koade.
1597
Hjir wurdt 2 brûkt as it tellende nûmer om de earste twa eksimplaren fan Auto's <2 te ferfangen>mei Fytsen .
Nei it útfieren fan de koade hawwe jo de ferfanging fan de earste twa teksten Auto's mei Fytsen .
➤ Tapasse de folgjende koade om alle eksimplaren te ferfangen fan de tekst Cars .
7188
Hjir is it lêste argumint fan de REPLACE-funksje 3 wat de tellend getal dat de ferfanging oanjout fan alle auto's mei Fytsen yn de tekststring.
➤ Druk op F5 .
Dêrnei sille wy hawwe de folgjende berjochtenfak mei de ferfongen tekst Fytsen yn de tekenrige.
Fergelykbere lêzings
- Hoe tekst te ferfangen mei Carriage Return yn Excel (4 Smooth Approaches)
- Excel VBA: Hoe fine en Tekst ferfange yn Word-dokumint
- Hoe kinne jo tekst ferfange nei spesifyk karakter yn Excel (3 metoaden)
- Tekst ferfange fan inSel basearre op betingst yn Excel (5 maklike metoaden)
Metoade-03: Tekst ferfange yn in willekeurige string mei InputBox
Hjir sille wy in bepaalde tekst ferfange fan in willekeurige tekenrige mei in tekst dy't definiearre wurdt troch in brûker mei help fan de VBA InputBox-funksje .
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Typ de folgjende koade.
4416
Hjir hawwe wy ferklearre full_txt_str , new_txt , en updated_str as String en dan full_txt_str tawiisd oan in willekeurige tekststring- "Hûndert auto's Fyftich auto's Tsien auto's" . Om de troch de brûker definiearre ynfier te hawwen as de tekst dy't ferfongen wurde troch de Cars yn 'e willekeurige tekenrige, hawwe wy de YnputBox-funksje brûkt en dêrnei dizze wearde tawiisd nei nij_txt . Dan wurdt de REPLACE-funksje brûkt om it Cars diel fan dizze willekeurige tekenrige te ferfangen troch new_txt . Uteinlik hawwe wy dizze nije tekststring tawiisd oan updated_str en mei in berjochtfak ( MsgBox ) sille wy it resultaat sjen.
➤ Druk op F5 .
Dêrnei sil in Ynfierfak ferskine dêr't jo elk tekstdiel ynfiere kinne dat jo yn 'e nije tekenrige hawwe wolle.
➤ Typ Fytsen of in oare tekst dy't jo wolle en druk dan op OK .
Uteinlik sille jo hawwe it folgjende resultaat mei de nije tekststring mei nije tekst Fytsen ynde posysje fan auto's .
Lês mear: Hoe tekst te ferfangen yn Excel-formule (7 maklike manieren)
Metoade-04: Tekst ferfange yn in berik fan snaren mei Excel VBA
Hjir sille wy it gmail diel fan ferfange de e-post-id's mei de domeinen yn 'e Nije Domein kolom, en om de nije e-post-id's te sammeljen hawwe wy in nije kolom ynfoege; Finale e-post-ID .
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Typ de folgjende koade.
7087
Hjir hawwe wy de FOR loop brûkt om de operaasje út te fieren fan Rige 4 oant Rige 13 . Mei help fan de IF-THEN statement hawwe wy kontrolearre oft de e-post-id's fan Kolom D “gmail” <10 befetsje> of net, en foar it ferfoljen fan dit kritearium wurdt it "gmail" diel fan de e-post-ID's ferfongen troch de nije domeinen fan Kolom E om de nije id's te meitsjen yn Kolom F . Oars hawwe jo in leech yn 'e oerienkommende sellen fan Kolom F .
➤ Druk op F5 .
Dan hawwe jo de nije e-post-ID's yn 'e kolom Finale e-post-ID .
Lês mear: Excel VBA om tekst te finen en te ferfangen yn in kolom (2 foarbylden)
Metoade-05: Tekst ferfange yn in berik fan stringen mei brûkersynfier om tekst te finen
Jo kinne de folgjende email ids mei denije domeinen en ferklearje wat te ferfangen yn 'e foarige ids in brûkersynfier kin brûkt wurde troch dizze metoade te folgjen.
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Typ de folgjende koade.
5357
Hjir hawwe wy definiearre partial_text as in string en dan tawiisd oan in tekenrige dy't troch in brûker jûn wurdt fia it Ynfierfak .
Neitiid brûkten wy de FOR loop om de operaasje út te fieren fan Rige 4 oant Rige 13 , en mei help fan de IF-DAN -ferklearring hawwe wy kontrolearre oft de e-post-ID's fan Kolom D "gmail" of befetsje net. En foar it ferfoljen fan dit kritearium sil it "gmail" diel fan 'e e-post-ID's ferfongen wurde troch de nije domeinen fan Kolom E om te meitsjen de nije id's yn Kolom F . Oars hawwe jo in leech yn 'e oerienkommende sellen fan Kolom F .
➤ Druk op F5 .
Dêrnei sille jo in Ynfierfak hawwe wêr't jo de tekst moatte ynfiere dy't jo sykje wolle yn it berik fan e-post-ID's (hjir hawwe wy ynfierd gmail ) en druk dan op OK .
Uteinlik hawwe wy ús bywurke e-post-ID's yn 'e Finale E-post-ID kolom.
Lês mear: Sykje en ferfange in tekst yn in berik mei Excel VBA (Macro and UserForm)
Oefeningsdiel
Foar oefenjen trochjosels hawwe wy in Oefenje -seksje levere lykas hjirûnder yn in blêd mei de namme Oefenje . Doch it asjebleaft sels.
Konklúzje
Yn dit artikel hawwe wy besocht om de manieren te dekken om tekst yn in tekenrige te ferfangen mei Excel VBA . Hoopje dat jo it nuttich fine. As jo suggestjes of fragen hawwe, diel se dan frij yn 'e kommentaar seksje.
