Բովանդակություն
Եթե դուք ուղիներ եք փնտրում տեքստը տողում փոխարինելու օգտագործելով Excel VBA , ապա այս հոդվածը ձեզ օգտակար կլինի: Տեքստի որոշակի մասի փոխարինումը կարող է շատ ժամանակ խնայել տեքստային տողերը կրկին մուտքագրելու համար: Այսպիսով, եկեք մտնենք հիմնական հոդվածի մեջ, որպեսզի իմանանք այս փոխարինման առաջադրանքի մանրամասները:
Ներբեռնեք աշխատանքային գիրքը
Փոխարինել տեքստը String.xlsm-ում
5 եղանակ՝ տեքստը փոխարինելու տողում, օգտագործելով Excel VBA
Այստեղ մենք ունենք հետևյալ տվյալների բազան, որը պարունակում է աշխատակիցների որոշ գրառումներ իրենց էլ. Մեր խնդիրն է փոխարինել հին դոմենային անունները նորերով։ Հետևյալ մեթոդներում մենք կաշխատենք այս տվյալների հետ միասին որոշ պատահական տեքստային տողերի հետ՝ ցանկալի տեքստը փոխարինելու VBA կոդերով:
Մենք օգտագործել ենք Microsoft Excel 365 տարբերակը այստեղ, կարող եք օգտագործել ցանկացած այլ տարբերակ՝ ըստ ձեր հարմարության:
Մեթոդ-01. Փոխարինել տեքստը՝ սկսած պատահական տողի n-րդ դիրքից
Այստեղ մենք կփոխարինենք տեքստը պատահական տեքստային տողով տարբեր մեկնարկային դիրքերի համար:
Քայլ-01 :
➤ Գնացեք Developer ներդիր >> Կոդ Group >> Visual Basic Ընտրանք:
Այնուհետև, Visual Basic խմբագիր կբացվի:
➤ Գնացեք Տեղադրեք ներդիր >> Մոդուլ Ընտրանք:
Դրանից հետո կստեղծվի Մոդուլ :
Քայլ-02 :
➤ Գրեք հետևյալըկոդը
8094
Այստեղ մենք full_txt_str և updated_str -ը հայտարարեցինք որպես String և այնուհետև նշանակեցինք full_txt_str պատահական տեքստին: string- “Hundred Cars Fifty Cars Ten Cars” . Այնուհետև VBA REPLACE ֆունկցիան օգտագործվում է այս պատահական տողի Cars մասը փոխարինելու համար Հեծանիվներ<10:> և 1 -ն այստեղ օգտագործվում է այս տողի 1 դիրքից փոխարինումը սկսելու համար: Ի վերջո, մենք այս նոր տեքստային տողը հատկացրել ենք updated_str -ին և հաղորդագրության տուփով ( MsgBox ) մենք կտեսնենք արդյունքը:
➤ Սեղմեք F5 :
Այնուհետև հաղորդագրության տուփը կհայտնվի նոր տեքստային տողով` փոխարինված տեքստով Հեծանիվներ .
➤ Ավտոմեքենաների երկրորդ օրինակից փոխարինման գործընթացը կատարելու համար օգտագործեք հետևյալ կոդը:
5839
Այստեղ մենք օգտագործել ենք մեկնարկային դիրքը որպես 14 քանի որ մենք ուզում ենք ունենալ տողի մասը Հարյուր ավտոմեքենա և փոխարինել Մեքենաները այստեղ:
➤ Կոդը գործարկելուց հետո մենք կունենանք հետևյալ հաղորդագրության տուփը տեքստային տողով սկսած տեքստից Հիսուն և Հեծանիվներ դիրքում Ավտոմեքենաներ ։
➤ Այս տողի միայն վերջին հատվածն ունենալու համար մենք կիրառում ենք հետևյալ կոդը։
5984
Այստեղ մենք օգտագործել ենք մեկնարկային դիրքը որպես 25 որովհետև մենք ուզում ենք լարային հատվածը ունենալ Հիսուն ավտոմեքենայից հետո և փոխարինել Ավտոմեքենաները Հեծանիվներով այստեղ:
Վերջապես, մենք կունենանք հաղորդագրության տուփ , որտեղ տողի մեր ցանկալի հատվածը փոխարինվում է -ով: Հեծանիվներ .
Կարդալ ավելին. Excel VBA. Փոխարինեք նիշերը տողում ըստ դիրքի (4 արդյունավետ եղանակ)
Մեթոդ-02. Փոխարինեք տեքստը n-րդ պատահական տողի առաջացման համար՝ օգտագործելով Excel VBA
Այս բաժնում մենք օգնությամբ կփոխարինենք տեքստը պատահական տողի մեջ՝ տարբեր թվով երևույթների համար։ VBA կոդից:
Քայլեր :
➤ Հետևեք Քայլ-01 Մեթոդ-1-ից .
➤ Մուտքագրեք հետևյալ կոդը:
7579
Այստեղ մենք հայտարարագրել ենք full_txt_str և updated_str որպես String և այնուհետև նշանակվեց full_txt_str պատահական տեքստային տողին- «Hundred Cars Fifty Cars Ten Cars» : Դրանից հետո REPLACE ֆունկցիան օգտագործվում է այս պատահական տողի Cars մասը Հեծանիվներով <փոխարինելու համար։ 9>, 1 օգտագործվում է այստեղ փոխարինումը սկսելու համար այս տողի 1 դիրքից, իսկ վերջնական 1 դեպքերի քանակը հաշվելու համար. Օգտագործելով 1 որպես հաշվելու համար մենք սահմանում ենք միայն առաջին Մեքենաների փոխարինումը: Վերջապես, մենք վերագրել ենք այս նոր տեքստային տողը updated_str և aհաղորդագրության տուփ ( MsgBox ) մենք կտեսնենք արդյունքը:
➤ Սեղմեք F5 :
Այնուհետև, հաղորդագրության տուփը կհայտնվի նոր տեքստով Հեծանիվներ առաջին դիրքում Ավտոմեքենաներ միայն:
➤ Ավտոմեքենաների առաջին երկու օրինակները Հեծանիվներով <10 փոխարինելու համար> օգտագործեք հետևյալ կոդը:
9985
Այստեղ 2 օգտագործվում է որպես հաշվելու համար Ավտոմեքենաների առաջին երկու օրինակները փոխարինելու համար Հեծանիվներով :
Կոդը գործարկելուց հետո դուք կունենաք առաջին երկու տեքստերի փոխարինում Մեքենաներ Հեծանիվներով ։
➤ Կիրառեք հետևյալ կոդը՝ բոլոր օրինակները փոխարինելու համար Ավտոմեքենաներ տեքստի:
5338
Այստեղ REPLACE ֆունկցիայի վերջին արգումենտը 3 որն է հաշվելու համարը, որը ցույց է տալիս բոլոր Մեքենաների փոխարինումը Հեծանիվներով տեքստային տողում։
➤ Սեղմեք F5 :
Այնուհետև մենք ունենաք հետևյալ հաղորդագրության տուփը ՝ փոխարինված տեքստով Հեծանիվներ տողի մեջ:
Նմանատիպ ընթերցումներ
- Ինչպես փոխարինել տեքստը Carriage Return-ով Excel-ում (4 հարթ մոտեցում)
- Excel VBA. Ինչպես գտնել և Փոխարինել տեքստը Word փաստաթղթում
- Ինչպես փոխարինել տեքստը հատուկ նիշից հետո Excel-ում (3 մեթոդ)
- Փոխարինել տեքստըԲջջ՝ հիմնված Excel-ի վիճակի վրա (5 հեշտ մեթոդ)
Մեթոդ-03. Փոխարինեք տեքստը պատահական տողի մեջ InputBox-ով
Այստեղ մենք կփոխարինենք որոշակի տեքստ պատահական տող տեքստով, որը կսահմանվի օգտվողի կողմից VBA InputBox ֆունկցիայի օգնությամբ :
Քայլեր :
➤ Հետևեք Քայլ-01 Մեթոդ-1 -ից:
➤ Մուտքագրեք հետևյալ կոդը:
8114
Այստեղ մենք հայտարարել ենք full_txt_str , new_txt և updated_str որպես string և այնուհետև նշանակվել full_txt_str պատահական տեքստային տողի- «Հարյուր մեքենա Հիսուն մեքենա տասը մեքենա» : Որպեսզի օգտագործողի կողմից սահմանված մուտքագրումը որպես տեքստ փոխարինվի Cars պատահական տողի մեջ, մենք օգտագործել ենք InputBox ֆունկցիան և այնուհետև վերագրել ենք այս արժեքը։ դեպի new_txt : Այնուհետև REPLACE ֆունկցիան օգտագործվում է այս պատահական տողի Cars մասը new_txt -ով փոխարինելու համար: Վերջապես, մենք այս նոր տեքստային տողը հատկացրել ենք updated_str -ին և հաղորդագրության տուփով ( MsgBox ) մենք կտեսնենք արդյունքը:
➤ Սեղմեք F5 :
Դրանից հետո կհայտնվի Մուտքի տուփ որտեղ կարող եք մուտքագրել ցանկացած տեքստային մաս, որը ցանկանում եք ունենալ նոր տողում:
➤ Մուտքագրեք Հեծանիվներ կամ ցանկացած այլ տեքստ, որը ցանկանում եք, ապա սեղմեք OK :
Վերջապես, դուք ունեն հետևյալ արդյունքը նոր տեքստային տողով, որն ունի նոր տեքստ Հեծանիվներ in Մեքենաների դիրքը :
Կարդալ ավելին. Ինչպես փոխարինել տեքստը Excel-ի բանաձևում (7 հեշտ եղանակ)
Մեթոդ-04. Փոխարինեք տեքստը տողերի տիրույթում Excel VBA-ով
Այստեղ մենք կփոխարինենք gmail մասը էլփոստի id-ները տիրույթներով Նոր տիրույթ սյունակում, և նոր էլփոստի նույնացուցիչները կուտակելու համար մենք տեղադրել ենք նոր սյունակ; Էլփոստի վերջնական ID :
Քայլեր :
➤ Հետևեք Քայլ-01 Մեթոդ-1 -ից:
➤ Մուտքագրեք հետևյալ կոդը:
5607
Այստեղ մենք օգտագործել ենք FOR հանգույցը ՝ գործողությունը կատարելու համար <-ից: 1> Տող 4 մինչև Տող 13 : IF-THEN հայտարարության օգնությամբ մենք ստուգել ենք, արդյոք Սյունակ D էլ․ id-ները պարունակում են «gmail» <10։> թե ոչ, և այս չափանիշը կատարելու համար «gmail» էլ․ id-ների մասը կփոխարինվի Սյունակ E<նոր տիրույթներով։ 10> Սյունակ F -ում նոր ID-ներ ստեղծելու համար: Հակառակ դեպքում դուք կունենաք դատարկ Սյունակ F համապատասխան բջիջներում:
➤ Սեղմեք F5 .
Այնուհետև դուք կունենաք էլփոստի նոր ID-ները Email-ի վերջնական ID սյունակում:
Կարդալ ավելին. Excel VBA տեքստը սյունակում գտնելու և փոխարինելու համար (2 օրինակ)
Մեթոդ-05. Փոխարինեք տեքստը տողերի տիրույթում օգտագործողի մուտքագրմամբ տեքստ գտնելու համար
Դուք կարող եք փոխարինել հետևյալ էլնոր տիրույթներ և հայտարարեք, թե ինչ փոխարինել նախորդ ID-ներում, օգտագործողի մուտքագրումը կարող է օգտագործվել՝ հետևելով այս մեթոդին:
Քայլեր :
➤ Հետևեք Քայլ-01 Մեթոդ-1 -ից:
➤ Մուտքագրեք հետևյալ կոդը:
2622
Այստեղ մենք սահմանել ենք մասնակի_տեքստ որպես Տող , այնուհետև այն վերագրել է տողի, որը տրվելու է օգտվողի կողմից Մուտքի տուփի միջոցով :
Այնուհետև մենք օգտագործեցինք FOR հանգույցը 4-րդ տողից մինչև տող 13 գործողությունը կատարելու համար և օգտագործելով IF-THEN հայտարարությունը, մենք ստուգեցինք, արդյոք Սյունակ D էլ․ id-ները պարունակում են «gmail» կամ ոչ: Եվ այս չափանիշը կատարելու համար էլփոստի id-ների «gmail» հատվածը կփոխարինվի Սյունակ E ստեղծելու նոր տիրույթներով։ նոր ID-ները Սյունակ F -ում: Հակառակ դեպքում դուք կունենաք դատարկ F սյունակի համապատասխան բջիջներում:
➤ Սեղմեք F5 .
Դրանից հետո դուք կունենաք Input Box որտեղ դուք պետք է մուտքագրեք այն տեքստը, որը ցանկանում եք որոնել էլփոստի ID-ների միջակայքում (այստեղ մենք ունենք մուտքագրել է gmail ), այնուհետև սեղմել OK :
Վերջապես, մենք ունենք մեր թարմացված էլփոստի ID-ները Վերջնականում Էլփոստի ID սյունակ:
Կարդալ ավելին. Գտեք և փոխարինեք տեքստը տիրույթում Excel VBA-ով (մակրո և օգտվողի ձև)
Պրակտիկա Բաժին
Պրակտիկա կատարելու համարԻնքներդ մենք տրամադրել ենք Պրակտիկա բաժինը, ինչպես ստորև, թերթիկում, որը կոչվում է Պրակտիկա : Խնդրում ենք դա անել ինքներդ:
Եզրակացություն
Այս հոդվածում մենք փորձեցինք լուսաբանել Excel VBA-ի միջոցով տեքստը տողում փոխարինելու ուղիները: . Հուսով եմ, որ այն օգտակար կգտնեք: Եթե ունեք առաջարկներ կամ հարցեր, կարող եք կիսվել դրանք մեկնաբանությունների բաժնում:
