Змест
Калі вы шукаеце спосабы замяніць тэкст у радку з дапамогай Excel VBA , гэты артыкул будзе для вас карысным. Замена пэўнай часткі тэксту можа зэканоміць шмат часу на паўторны ўвод тэкставых радкоў. Такім чынам, давайце пяройдзем да асноўнага артыкула, каб даведацца падрабязнасці аб гэтай задачы замены.
Спампаваць кнігу
Замяніць тэкст у String.xlsm
5 спосабаў замены тэксту ў радку з дапамогай Excel VBA
Тут у нас ёсць наступны набор даных, які змяшчае некаторыя запісы супрацоўнікаў з іх ідэнтыфікатарамі электроннай пошты. Наша задача - замяніць старыя даменныя імёны на новыя. У наступных метадах мы будзем працаваць з гэтым наборам даных разам з некаторымі выпадковымі тэкставымі радкамі, каб замяніць патрэбны тэкст кодамі VBA .
Мы выкарыстоўвалі Версія Microsoft Excel 365 тут, вы можаце выкарыстоўваць любыя іншыя версіі ў залежнасці ад вашага зручнасці.
Метад-01: Замяніць тэкст, пачынаючы з n-й пазіцыі выпадковага радка
Тут мы заменім тэкст у выпадковым тэкставым радку для розных пачатковых пазіцый.
Крок-01 :
➤ Перайдзіце на ўкладку Распрацоўшчык >> Код Група >> Visual Basic Option.
Затым рэдактар Visual Basic адкрыецца.
➤ Перайдзіце да опцыі Уставіць Укладка >> Модуль .
Пасля гэтага будзе створаны Модуль .
Крок-02 :
➤ Напішыце наступнаеcode
6574
Тут мы аб'явілі full_txt_str і updated_str як String , а затым прызначылі full_txt_str выпадковаму тэксту string- “Сто машын пяцьдзесят машын дзесяць машын” . Затым VBA функцыя REPLACE выкарыстоўваецца для замены часткі Cars гэтага выпадковага радка на Bicycles і 1 выкарыстоўваецца тут, каб пачаць замену з пазіцыі 1 гэтага радка. Нарэшце, мы прызначылі гэты новы тэкставы радок updated_str і з дапамогай акна паведамлення ( MsgBox ) мы ўбачым вынік.
➤ Націсніце F5 .
Тады з'явіцца акно паведамлення з новым тэкставым радком з замененым тэкстам Веласіпеды .
➤ Каб выканаць працэс замены з другога асобніка Аўтамабілі выкарыстоўвайце наступны код.
6402
Тут мы выкарысталі пачатковую пазіцыю як 14 таму што мы хочам мець частку радка пасля Сотня аўтамабіляў і замяніць Аўтамабілі тут.
➤ Пасля запуску кода мы атрымаем наступнае акно паведамлення з тэкставым радком , які пачынаецца з тэксту Пяцьдзесят і з Веласіпеды у пазіцыі Аўтамабілі .
➤ Каб мець толькі апошнюю частку гэтага радка, мы ўжываем наступны код.
9414
Тут мы выкарысталі пачатковую пазіцыю 25 таму што мы хочам мець частку радка пасля Пяцьдзесят машын і замяніць Машыны на Веласіпеды тут.
Нарэшце, у нас будзе акно паведамлення з жаданай часткай радка, заменай на Веласіпеды .
Больш падрабязна: Excel VBA: замена сімвала ў радку пазіцыяй (4 эфектыўныя спосабы)
Метад-02: Замена тэксту для n-га ўваходжання выпадковага радка з дапамогай Excel VBA
У гэтым раздзеле мы заменім тэкст у выпадковым радку для рознай колькасці ўваходжанняў з дапамогай кода VBA .
Крокі :
➤ Выканайце Крок-01 з Метад-1 .
➤ Увядзіце наступны код.
4317
Тут мы аб'явілі full_txt_str і updated_str як String а потым прысвойваецца full_txt_str выпадковаму тэкставаму радку- «Сто машын пяцьдзесят машын дзесяць машын» . Пасля гэтага функцыя REPLACE выкарыстоўваецца для замены часткі Cars гэтага выпадковага радка на Bicycles , 1 выкарыстоўваецца тут для пачатку замены з пазіцыі 1 гэтага радка, а канчатковы 1 для падліку колькасці ўваходжанняў. Выкарыстоўваючы 1 у якасці ліку для падліку, мы вызначаем замену толькі першых аўтамабіляў . Нарэшце, мы прызначылі гэты новы тэкставы радок updated_str і закно паведамлення ( MsgBox ), мы ўбачым вынік.
➤ Націсніце F5 .
Пасля гэтага з'явіцца акно паведамлення з новым тэкстам Веласіпеды на першай пазіцыі Аўтамабілі толькі.
➤ Для замены першых двух асобнікаў Аўтамабілі на Веласіпеды выкарыстоўвайце наступны код.
4914
Тут 2 выкарыстоўваецца як лік падліку для замены першых двух асобнікаў Аўтамабілі з Веласіпеды .
Пасля запуску кода вы атрымаеце замену першых двух тэкстаў Аўтамабілі з Веласіпеды .
➤ Прымяніце наступны код, каб замяніць усе асобнікі тэксту Cars .
6842
Тут апошні аргумент функцыі REPLACE гэта 3 , які з'яўляецца лік падліку, які паказвае замену ўсіх аўтамабіляў на ровараў у тэкставым радку.
➤ Націсніце F5 .
Пасля гэтага мы мець наступнае акно паведамлення з замененым тэкстам Веласіпеды у радку.
Падобныя чытанні
- Як замяніць тэкст зваротам карэткі ў Excel (4 плыўныя падыходы)
- Excel VBA: Як знайсці і Замяніць тэкст у дакуменце Word
- Як замяніць тэкст пасля пэўнага сімвала ў Excel (3 метады)
- Замяніць тэкст уЯчэйка на аснове ўмоў у Excel (5 простых метадаў)
Метад-03: Замяніць тэкст у выпадковым радку на InputBox
Тут мы заменім пэўны тэкст у выпадковы радок з тэкстам, які будзе вызначацца карыстальнікам з дапамогай функцыі VBA InputBox .
Крокі :
➤ Выконвайце Крок-01 з Метад-1 .
➤ Увядзіце наступны код.
2811
Тут мы аб'явілі full_txt_str , new_txt і updated_str як String , а затым прызначаецца full_txt_str выпадковаму тэкставаму радку- “Сто машын пяцьдзесят машын дзесяць машын” . Каб увод, які вызначаецца карыстальнікам, быў заменены на Cars у выпадковым радку ў якасці тэксту, мы выкарысталі функцыю InputBox , а потым прысвоілі гэтае значэнне у новы_тэкст . Затым функцыя REPLACE выкарыстоўваецца для замены часткі Cars гэтага выпадковага радка на new_txt . Нарэшце, мы прызначылі гэты новы тэкставы радок updated_str і з дапамогай акна паведамлення ( MsgBox ) мы ўбачым вынік.
➤ Націсніце F5 .
Пасля гэтага з'явіцца Поле ўводу , дзе вы можаце ўвесці любую частку тэксту, якую вы хочаце мець у новым радку.
➤ Увядзіце Веласіпеды ці любы іншы тэкст, які хочаце, і націсніце ОК .
Нарэшце, вы зробіце мець наступны вынік з новым тэкставым радком з новым тэкстам Веласіпеды установішча Cars .
Больш падрабязна: Як замяніць тэкст у формуле Excel (7 простых спосабаў)
Метад-04: Замена тэксту ў дыяпазоне радкоў з дапамогай Excel VBA
Тут мы заменім gmail частку ідэнтыфікатары электроннай пошты з даменамі ў слупку Новы дамен , і для назапашвання новых ідэнтыфікатараў электроннай пошты мы ўставілі новы слупок; Канчатковы ідэнтыфікатар электроннай пошты .
Крокі :
➤ Выканайце Крок-01 з Метад-1 .
➤ Увядзіце наступны код.
7900
Тут мы выкарыстоўвалі цыкл FOR для выканання аперацыі з Шэраг 4 па Шэраг 13 . З дапамогай аператара IF-THEN мы праверылі, ці ўтрымліваюць ідэнтыфікатары электроннай пошты ў Слупку D «gmail» ці не, і для выканання гэтага крытэрыю “gmail” частка ідэнтыфікатараў электроннай пошты будзе заменена новымі даменамі Слупка E , каб стварыць новыя ідэнтыфікатары ў Калонцы F . У адваротным выпадку ў адпаведных ячэйках Слупка F будзе пуста.
➤ Націсніце F5 .
Тады вы будзеце мець новыя ідэнтыфікатары электроннай пошты ў слупку Канчатковы ідэнтыфікатар электроннай пошты .
Больш падрабязна: Excel VBA для пошуку і замены тэксту ў слупку (2 прыклады)
Метад-05: Замена тэксту ў дыяпазоне радкоў з уводам карыстальніка для пошуку тэксту
Вы можаце замяніць наступныя ідэнтыфікатары электроннай пошты зновыя дамены і аб'явіць, што замяніць у папярэдніх ідэнтыфікатараў, увод карыстальніка можна выкарыстоўваць, прытрымліваючыся гэтага метаду.
Крокі :
➤ Выконвайце Крок-01 з Метад-1 .
➤ Увядзіце наступны код.
5824
Тут мы вызначылі partial_text як String , а затым прызначыў яго радку, які будзе дадзены карыстальнікам праз Поле ўводу .
Пасля гэтага мы выкарыстоўвалі цыкл FOR для выканання аперацыі з радка 4 да радка 13 і з дапамогай IF-THEN , мы праверылі, ці ўтрымліваюць ідэнтыфікатары электроннай пошты ў Слупку D «gmail» ці не. І для выканання гэтага крытэрыю “gmail” частка ідэнтыфікатараў электроннай пошты будзе заменена новымі даменамі ў Слупку E для стварэння новыя ідэнтыфікатары ў Калонцы F . У адваротным выпадку ў адпаведных ячэйках Слупка F будзе пуста.
➤ Націсніце F5 .
Пасля гэтага ў вас з'явіцца Поле ўводу , дзе вы павінны ўвесці тэкст, які вы хочаце шукаць у дыяпазоне ідэнтыфікатараў электроннай пошты (тут мы маем увёў gmail ), а затым націсніце ОК .
Нарэшце, мы маем абноўленыя ідэнтыфікатары электроннай пошты ў фінале Ідэнтыфікатар электроннай пошты слупок.
Больш падрабязна: Пошук і замена тэксту ў дыяпазоне з дапамогай Excel VBA (макрас і форма карыстальніка)
Практычны раздзел
Для практыкісамі мы далі раздзел Практыка , як паказана ніжэй, на аркушы пад назвай Практыка . Калі ласка, зрабіце гэта самастойна.
Выснова
У гэтым артыкуле мы паспрабавалі ахапіць спосабы замены тэксту ў радку з дапамогай Excel VBA . Спадзяюся, вы знойдзеце гэта карысным. Калі ў вас ёсць якія-небудзь прапановы або пытанні, не саромейцеся падзяліцца імі ў раздзеле каментарыяў.
