Содржина
Ако барате начини за замена на текст во низа користејќи Excel VBA , тогаш овој напис ќе ви биде корисен. Заменувањето на одреден текстуален дел може да заштеди многу време при повторно пишување на текстуалните низи. Значи, ајде да влеземе во главната статија за да ги дознаеме деталите за оваа задача за замена.
Преземи работна книга
Замени текст во String.xlsm
5 начини за замена на текст во стринг со помош на Excel VBA
Тука, ја имаме следната база на податоци што содржи некои записи на вработените со нивните идентификатори на е-пошта. Наша задача е да ги замениме старите имиња на домени со нови. Во следните методи, ќе работиме со оваа база на податоци заедно со некои случајни текстуални низи за да го замениме саканиот текст со кодови VBA .
Користевме Верзијата на Microsoft Excel 365 овде, можете да користите која било друга верзија според вашата погодност.
Метод-01: Заменете го текстот почнувајќи од n-та позиција на случаен стринг
Овде, ќе го замениме текстот во случаен текстуален низа за различни почетни позиции.
Чекор-01 :
➤ Одете во картичката Програмер >> Код Group >> Visual Basic Опција.
Потоа, Visual Basic уредникот ќе се отвори.
➤ Одете во Вметни таб >> Модул Опција.
После тоа, ќе се креира Модул .
Чекор-02 :
➤ Напишете го следновокод
7881
Овде, ги прогласивме full_txt_str и updated_str како String и потоа доделивме full_txt_str на случаен текст стринг- „Сто автомобили Педесет автомобили Десет автомобили“ . Потоа, функцијата VBA REPLACE се користи за замена на Автомобили делот од оваа случајна низа со Велосипеди и 1 се користи овде за да започне замената од позицијата 1 од оваа низа. Конечно, ја доделивме оваа нова текстуална низа на updated_str и со полето за пораки ( MsgBox ) ќе го видиме резултатот.
➤ Притиснете F5 .
Потоа ќе се појави поле за порака со новата текстуална низа со заменет текст Велосипеди .
➤ За да го направите процесот на замена од втората инстанца на Автомобили користете ја следнава шифра.
8208
Овде, ја користевме почетната позиција како 14 бидејќи сакаме да го имаме делот од низата после Сто автомобили и да го замениме Автомобили тука.
➤ Откако да го вклучиме кодот, ќе го имаме следново кутија за пораки со текст низа почнувајќи од текстот Fifty и со Bicycles во позиција Автомобили .
➤ За да го имаме само последниот дел од оваа низа, го применуваме следниот код.
7872
Овде, ја искористивме почетната позиција како 25 бидејќи сакаме да го имаме делот од низата после Fifty Cars и да го замениме Cars со Bicycles тука.
Конечно, ќе имаме поле за пораки со нашиот посакуван дел од низата да има замена со Велосипеди .
Прочитајте повеќе: Excel VBA: Заменете го знакот во низа по позиција (4 ефективни начини)
Метод-02: Заменете го текстот за n-тото појавување на случаен стринг користејќи Excel VBA
Во овој дел, ќе замениме текст во случаен стринг за различни броеви на појави со помош од VBA код.
Чекори :
➤ Следете го Чекор-01 од Методот-1 .
➤ Внесете го следниов код.
2936
Овде, ги прогласивме full_txt_str и updated_str како String а потоа се доделени full_txt_str на случаен текстуален стринг- „Hundred Cars Fifty Cars Ten Cars“ . После тоа, функцијата REPLACE се користи за замена на Автомобили дел од оваа случајна низа со Велосипеди , 1 се користи овде за да започне замената од позиција 1 од оваа низа, а конечниот 1 е за броење на бројот на појави. Со користење на 1 како броен број, ја дефинираме замената само на првите Автомобили . Конечно, ја доделивме оваа нова текстуална низа на updated_str и со aполе за пораки ( MsgBox ) ќе го видиме резултатот.
➤ Притиснете F5 .
Потоа, ќе се појави кутија за пораки со новиот текст Велосипеди на првата позиција од Автомобили само.
➤ За замена на првите две примероци на Автомобили со Велосипеди користете го следниов код.
9926
Тука, 2 се користи како број за броење за да ги замени првите два примероци на Автомобили со Велосипеди .
По вклучувањето на кодот, ќе имате замена на првите два текста Автомобили со Велосипеди .
➤ Применете го следниов код за да ги замените сите примероци од текстот Автомобили .
5719
Тука, последниот аргумент на функцијата REPLACE е 3 што е броен број што укажува на замена на сите Автомобили со Велосипеди во текстуалната низа.
➤ Притиснете F5 .
Потоа, ќе имајте го следново поле за порака со заменет текст Велосипеди во низата.
Слични читања
- Како да го замените текстот со Carriage Return во Excel (4 мазни пристапи)
- Excel VBA: Како да најдете и Заменете го текстот во Word документ
- Како да го замените текстот по специфичен знак во Excel (3 методи)
- Заменете го текстот наЌелија врз основа на состојба во Excel (5 лесни методи)
Метод-03: Заменете го текстот во случаен стринг со InputBox
Овде, ќе замениме одреден текст на случаен стринг со текст што ќе го дефинира корисникот со помош на функцијата VBA InputBox .
Чекори :
➤ Следете го Чекор-01 од Методот-1 .
➤ Внесете го следниов код.
8576
Овде, објавивме full_txt_str , new_txt и updated_str како String и потоа се доделени full_txt_str на случаен текст низа- „Сто автомобили Педесет автомобили Десет автомобили“ . За да го имаме внесувањето дефинирано од корисникот како текст што треба да се замени со Автомобили во случајната низа, ја користевме функцијата InputBox и потоа ја доделивме оваа вредност до new_txt . Потоа функцијата REPLACE се користи за замена на Cars делот од оваа случајна низа со new_txt . Конечно, ја доделивме оваа нова текстуална низа на updated_str и со полето за пораки ( MsgBox ) ќе го видиме резултатот.
➤ Притиснете F5 .
Потоа, ќе се појави Поле за внес каде што можете да внесете кој било дел од текстот што сакате да го имате во новата низа.
➤ Напишете Велосипеди или кој било друг текст што го сакате и потоа притиснете OK .
Конечно, ќе го има следниов резултат со новата текстуална низа со нов текст Велосипеди вопозицијата на Автомобили .
Прочитајте повеќе: Како да го замените текстот во формулата на Excel (7 лесни начини)
Метод-04: Заменете го текстот во опсег од низи со Excel VBA
Овде, ќе го замениме gmail делот од ИД на е-пошта со домените во колоната Нов домен , а за да се акумулираат новите идентификатори на е-пошта, вметнавме нова колона; Конечна ИД на е-пошта .
Чекори :
➤ Следете Чекор-01 од Метод-1 .
➤ Внесете ја следнава шифра.
6065
Тука, ја користевме за јамката за да ја извршиме операцијата од Ред 4 до Ред 13 . Со помош на изјавата IF-THEN , проверивме дали идентификацијата на е-поштата на Колоната D содржи „gmail“ или не, и за исполнување на овој критериум, „gmail“ делот од идентификаторите на е-пошта ќе се замени со новите домени на Колона Е за да ги креирате новите ID во Колона F . Во спротивно, ќе имате празно место во соодветните ќелии на Колона F .
➤ Притиснете F5 .
Потоа, ќе ги имате новите идентификатори на е-пошта во колоната Конечна ИД на е-пошта .
Прочитајте повеќе: Excel VBA за наоѓање и замена на текст во колона (2 примери)
Метод-05: Заменете го текстот во опсег од низи со кориснички внес за да пронајдете текст
Можете да го замените следните идентификатори за е-пошта сонови домени и да се изјасни што да се замени во претходните идентификатори, може да се користи кориснички внес со следење на овој метод.
Чекори :
➤ Следете го Чекор-01 од Метод-1 .
➤ Внесете го следниов код.
8733
Тука, дефиниравме partal_text како String и потоа ја додели на низа што ќе ја даде корисникот преку Input Box .
Потоа, ја користевме FOR циклусот за да ја извршиме операцијата од Ред 4 до Ред 13 , и користејќи изјавата IF-THEN , проверивме дали идентификаторите на е-пошта на Колоната D содржат „gmail“ или не. И за исполнување на овој критериум, „gmail“ делот од идентификаторите на е-пошта ќе се замени со новите домени на Колона Е за креирање новите ID во Колона F . Во спротивно, ќе имате празно место во соодветните ќелии на Колона F .
➤ Притиснете F5 .
Потоа, ќе имате Влезно поле каде што треба да го напишете текстот што сакате да го пребарувате во опсегот на идентификатори за е-пошта (тука имаме внесете gmail ) и потоа притиснете OK .
Конечно, ги имаме ажурираните идентификатори за е-пошта во Конечно Ид на е-пошта колона.
Прочитајте повеќе: Најдете и заменете текст во опсег со Excel VBA (макро и корисничка форма)
Дел за вежбање
За вежбање одсами дадовме дел Пракса како подолу во листот со име Вежба . Ве молиме направете го тоа сами.
Заклучок
Во оваа статија се обидовме да ги покриеме начините за замена на текст во низа користејќи Excel VBA . Се надевам дека ќе ви биде корисно. Ако имате какви било предлози или прашања, слободно споделете ги во делот за коментари.
