Бұл оқулықта біз бірнеше сөздерді, жолдарды немесе жеке таңбаларды табудың және ауыстырудың бірнеше жолдарын қарастырамыз, осылайша сіз өз қажеттіліктеріңізге сәйкес келетінін таңдай аласыз.

Адамдар әдетте Excel бағдарламасында қалай іздейді? Көбінесе Find & Жалғыз мәндер үшін жақсы жұмыс істейтін мүмкіндікті ауыстыру. Бірақ ауыстыратын ондаған, тіпті жүздеген заттарыңыз болса ше? Әрине, ешкім бұл ауыстырулардың барлығын қолмен бір-бірден жасағысы келмейді, содан кейін деректер өзгерген кезде бәрін қайталаңыз. Бақытымызға орай, Excel бағдарламасында жаппай ауыстырудың бірнеше тиімді әдістері бар және біз олардың әрқайсысын егжей-тегжейлі зерттейтін боламыз.

Бірнеше мәндерді кірістірілген SUBSTITUTE арқылы тауып, ауыстырыңыз

Excel бағдарламасында бірнеше жазбаларды табудың және ауыстырудың ең оңай жолы - SUBSTITUTE функциясын пайдалану.

Формуланың логикасы өте қарапайым: ескі мәнді жаңасымен ауыстыру үшін бірнеше жеке функцияларды жазасыз. . Әрі қарай әрбір келесі SUBSTITUTE келесі мәнді іздеу үшін алдыңғы SUBSTITUTE шығысын пайдалануы үшін бұл функцияларды бір-біріне кірістіресіз.

SUBSTITUTE(SUBSTITUTE( мәтін, ). ескі_мәтін1, жаңа_мәтін1), ескі_мәтін2, жаңа_мәтін2), ескі_мәтін3, жаңа_мәтін3)

A2:A10 ішіндегі орындар тізімінде қысқартылған ел атауларын (мысалы, FR , UK және АҚШ ) толық атаумен ауыстырғыңыз келеді делік. MassReplace функциясы кодты енгізген жұмыс кітабында ғана жұмыс істейді. Мұны қалай дұрыс жасау керектігін білмесеңіз, Excel бағдарламасында VBA кодын енгізу жолында сипатталған қадамдарды орындаңыз.

Код жұмыс кітабыңызға қосылғаннан кейін функция intellisense формуласында пайда болады - тек Аргументтер емес, функцияның аты! Дегенмен, менің ойымша, синтаксисті есте сақтау маңызды емес:

MassReplace(енгізу_ауқымы, табу_ауқымы, ауыстыру_ауқымы)

Мұнда:

• Кіріс_ауқымы - бастапқы ауқым, мұнда мәндерді ауыстырғыңыз келеді.
• Табу_ауқымы - ізделетін таңбалар, жолдар немесе сөздер.
• ауқымын ауыстыру - таңбалар, жолдар, немесе ауыстырылатын сөздер.

Excel 365 жүйесінде динамикалық массивтерді қолдауға байланысты бұл қалыпты формула ретінде жұмыс істейді, оны тек жоғарғы ұяшыққа (B2) енгізу қажет:

=MassReplace(A2:A10, D2:D4, E2:E4)

Алдын ала динамикалық Excel бағдарламасында бұл ескі үлгідегі CSE массивінің формуласы ретінде жұмыс істейді: сіз бүкіл бастапқы ауқымды таңдайсыз (B2:B10), теріңіз формуланы таңдап, оны аяқтау үшін Ctrl + Shift + Enter пернелерін бір уақытта басыңыз.

Артықшылықтары : Excel 2019 бағдарламасындағы реттелетін LAMBDA функциясына лайықты балама , Excel 2016 және бұрынғы нұсқалары

Кемшіліктері : жұмыс кітабы макрос қосылған .xlsm файлы ретінде сақталуы керек

Excel бағдарламасында VBA макросымен жаппай ауыстыру

Егер сіз автокөлікті жақсы көрсеңіз макростармен жалпы тапсырмаларды жұптастыру, содан кейін сіздиапазондағы бірнеше мәндерді табу және ауыстыру үшін келесі VBA кодын пайдалана алады.

Sub BulkReplace() Диапазон ретінде Dim Rng, Ауқым ретінде SourceRng, Ауқым ретінде ReplaceRng Қате Жалғастыру Келесі орнату SourceRng = Application.InputBox («Дереккөз деректері: " , "Жаппай ауыстыру" , Application.Selection.Address, Түр :=8) Err.Clear Егер SourceRng Ештеңе болмаса, ReplaceRng = Application.InputBox орнатыңыз( "Ауқымды ауыстыру:" , "Жаппай ауыстыру" , Түр :=8) Err.Clear Егер ReplaceRng болмаса, онда Application.ScreenUpdating = False In ReplaceRng.Columns(1).Cells SourceRng.Нені ауыстырыңыз:=Rng.Value, ауыстыру:=Rng.Offset(0, 1).Мән Келесі Application.ScreenUpdating = True End If End If End Sub

Макросты бірден пайдалану үшін кодты қамтитын үлгі жұмыс кітабын жүктеп алуға болады. Немесе кодты өзіңіздің жұмыс кітабыңызға енгізуге болады.

Макросты пайдалану жолы

Макросты іске қоспас бұрын, төмендегі суретте көрсетілгендей ескі және жаңа мәндерді екі көршілес бағанға теріңіз ( C2:D4).

Содан кейін бастапқы деректерді таңдап, Alt + F8 пернелерін басыңыз, Жаппай ауыстыру макросын таңдап, Орындау түймесін басыңыз.

көз ашу алдын ала таңдалғандықтан, сілтемені тексеріп, OK түймесін басыңыз:

Одан кейін, ауыстыру ауқымын таңдап, OK түймесін басыңыз:

Дайын!

Артықшылықтары : бір рет орнату, кез келген уақытта қайта пайдалану

Кемшіліктері : макросты әрбір деректермен іске қосу қажетөзгерту

Excel бағдарламасында ішкі жол құралымен бірнеше табу және ауыстыру

Бірінші мысалда кірістірілген SUBSTITUTE Excel бағдарламасындағы бірнеше мәндерді ауыстырудың ең оңай жолы екенін айттым. Мен қателескенімді мойындаймын. Біздің Ultimate Suite барлығын жеңілдетеді!

Жұмыс парағында жаппай ауыстыруды орындау үшін Ablebits Data қойындысына өтіп, Ішкі жол құралдары > түймесін басыңыз. Ішкі жолдарды ауыстыру .

Ішкі жолдарды ауыстыру диалогтық терезесі пайда болады, онда Көз ауқымын және Ішкі жолдар ауқымы.

Екі ауқым таңдалған кезде, Ауыстыру түймесін басып, оң жақтағы кірістірілген жаңа бағандағы нәтижелерді табыңыз бастапқы деректерден. Иә, бұл оңай!

Кеңес. Ауыстыру түймешігін баспас бұрын, ескеру қажет бір маңызды нәрсе бар - Ренгерлік ұяшығы. Бас және кіші әріптерді әртүрлі таңбалар ретінде өңдегіңіз келсе, оны таңдауды ұмытпаңыз. Бұл мысалда біз бұл опцияны белгілейміз, себебі біз тек бас әріппен жазылған жолдарды ауыстырғымыз келеді және "fr", "uk" немесе "ak" сияқты ішкі жолдарды басқа сөздерде өзгеріссіз қалдырамыз.

Егер жолдарда қандай басқа жаппай операцияларды орындауға болатынын білгіңіз келсе, Ultimate Suite құрамындағы басқа ішкі жол құралдарын тексеріңіз. Немесе одан да жақсысы, төмендегі бағалау нұсқасын жүктеп алып, қолданып көріңіз!

Осылай табу және ауыстыру керек.Excel бағдарламасында бірден бірнеше сөздер мен таңбалар. Оқығаныңыз үшін алғыс айтамын және келесі аптада блогымызда көреміз деп үміттенемін!

Қолжетімді жүктеп алулар

Excel (.xlsm файлы) ішінде бірнеше табу және ауыстыру

Ultimate Suite 14 -күндік толық жұмыс істейтін нұсқасы (.exe файлы)

аттар.

Оны орындау үшін төмендегі скриншотта көрсетілгендей D2:D4 ішіндегі ескі мәндерді және E2:E4 ішіндегі жаңа мәндерді енгізіңіз. Содан кейін төмендегі формуланы B2-ге қойып, Enter пернесін басыңыз:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2:A10, D2, E2), D3, E3), D4, E4)

…және барлық ауыстырулар бірден орындалады:

Жоғарыдағы тәсіл динамикалық массивтерді қолдайтын Excel 365 жүйесінде ғана жұмыс істейтінін ескеріңіз.

Excel 2019, Excel 2016 және одан бұрынғы нұсқаларының динамикалық алдындағы нұсқаларында формула келесідей болуы керек. ең жоғарғы ұяшыққа (B2) жазылады, содан кейін төмендегі ұяшықтарға көшіріледі:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, $D$2, $E$2), $D$3, $E$3), $D$4, $E$4)

Бұл жағдайда ауыстыру мәндерін абсолютті ұяшық сілтемелерімен құлыптайтынымызға назар аударыңыз, сондықтан олар формуланы төмен көшіргенде жылжымайды.

Ескерту. SUBSTITUTE функциясы регистрді ескереді , яғни ескі мәндерді ( ескі_мәтін ) бастапқы деректерде көрсетілген әріп регистрінде теру керек.

Қанша оңай болса да, бұл әдістің айтарлықтай кемшілігі бар - ауыстыруға болатын ондаған элементтер болған кезде кірістірілген функцияларды басқару айтарлықтай қиынға соғады.

Артықшылықтары : оңай -іске асыру; барлық Excel нұсқаларында қолдау көрсетіледі

Кемшіліктері : мәндерді табу/ауыстыратын шектеулі саны үшін қолданған дұрыс

XLOOKUP

<0 арқылы бірнеше жазбаларды іздеу және ауыстыру>Сіз оның бөлігін емес, бүкіл ұяшық мазмұнын ауыстырғыңыз келген жағдайда, XLOOKUP функциясы пайдалы болады.

КелейікА бағанында елдер тізімі бар екенін және барлық аббревиатураларды сәйкес толық атаулармен ауыстыруды мақсат етіңіз. Алдыңғы мысалдағыдай, сіз «Табу» және «Ауыстыру» элементтерін бөлек бағандарға (тиісінше D және E) енгізуден бастайсыз, содан кейін осы формуланы B2 ішіне енгізіңіз:

=XLOOKUP(A2, $D$2:$D$4, $E$2:$E$4, A2)

Excel тілінен адам тіліне аударылғанда, мына формула орындалады:

D2:D4 (іздеу_мәні) ішінен A2 мәнін (іздеу_мәні) іздеңіз және E2:E4 (қайтару_массив) сәйкестігін қайтарыңыз. Егер табылмаса, бастапқы мәнді A2 ішінен тартыңыз.

Формуланы төмендегі ұяшықтарға көшіру үшін толтыру тұтқасын екі рет басыңыз, сонда нәтиже сізді күтпейді:

XLOOKUP функциясы тек Excel 365 нұсқасында қолжетімді болғандықтан, жоғарыдағы формула бұрынғы нұсқаларда жұмыс істемейді. Дегенмен, бұл әрекетті IFERROR немесе IFNA және VLOOKUP комбинациясы арқылы оңай еліктей аласыз:

=IFNA(VLOOKUP(A2, $D$2:$E$4, 2, FALSE), A2)

Ескертпе. SUBSTITUTE функциясынан айырмашылығы, XLOOKUP және VLOOKUP функциялары регистрді ескермейді , яғни олар әріп регистрін елемей іздеу мәндерін іздейді. Мысалы, біздің формула FR және fr екеуін де Франция деп ауыстырады.

Артықшылықтары : әдеттегі функцияларды әдеттен тыс пайдалану; барлық Excel нұсқаларында жұмыс істейді

Кемшіліктері : ұяшық деңгейінде жұмыс істейді, ұяшық мазмұнының бір бөлігін алмастыра алмайды

Рекурсивті LAMBDA функциясын пайдаланып бірнеше ауыстыру

Microsoft үшін365 жазылушыға арналған Excel бағдарламасы дәстүрлі формула тілі арқылы теңшелетін функцияларды жасауға мүмкіндік беретін арнайы функцияны ұсынады. Иә, мен LAMBDA туралы айтып отырмын. Бұл әдістің сұлулығы - ол өте ұзақ және күрделі формуланы өте жинақы және қарапайымға айналдыра алады. Бұған қоса, ол Excel бағдарламасында жоқ жеке функцияларды жасауға мүмкіндік береді, бұл бұрын тек VBA арқылы мүмкін болатын нәрсе.

Теңшелетін LAMBDA функцияларын жасау және пайдалану туралы толық ақпаратты мына оқулықты қараңыз: Қалай? Excel бағдарламасында LAMBDA функцияларын жазу. Мұнда біз бірнеше практикалық мысалдарды талқылаймыз.

Артықшылықтары : нәтиже - ауыстыру жұптарының санына қарамастан, талғампаз және таңқаларлық қарапайым функция

Кемшіліктері : тек Excel 365 нұсқасында қол жетімді; жұмыс кітабына тән және оны әртүрлі жұмыс кітаптарында қайта пайдалану мүмкін емес

1-мысал. Бірнеше сөзді/жолды бірден іздеу және ауыстыру

Бір әрекетте бірнеше сөзді немесе мәтінді ауыстыру үшін біз теңшелетін жасадық. MultiReplace деп аталатын LAMBDA функциясы, ол мына пішіндердің бірін қабылдай алады:

=LAMBDA(text, old, new, IF(old"", MultiReplace(SUBSTITUTE(text, old, new), OFFSET(old, 1, 0), OFFSET(new, 1, 0)), text))

немесе

=LAMBDA(text, old, new, IF(old="", text, MultiReplace(SUBSTITUTE(text, old, new), OFFSET(old, 1, 0), OFFSET(new, 1, 0))))

Екеуі де рекурсивті өздерін шақыратын функциялар. Айырмашылық тек шығу нүктесінің қалай орнатылғанында.

Бірінші формулада IF функциясы ескі тізімнің бос еместігін (ескі"") тексереді. Егер ШЫН болса, MultiReplace функциясы шақырылады. FALSE болса, функция мәтінді ағымдағы пішінін қайтарады және шығады.

Екінші формула кері логиканы пайдаланады: егер ескі бос болса (ескі=""), содан кейін <1 қайтарады>мәтін және шығу; әйтпесе MultiReplace шақырыңыз.

Ең қиын бөлігі орындалды! Төмендегі скриншотта көрсетілгендей Name Manager ішіндегі MultiReplace функциясын атаңыз. Егжей-тегжейлі нұсқауларды LAMBDA функциясын қалай атауға болады бөлімін қараңыз.

Функция атауын алғаннан кейін оны кез келген басқа кірістірілген функция сияқты пайдалана аласыз.

Екі формула нұсқаларының қайсысын таңдасаңыз да, соңғы пайдаланушы тұрғысынан синтаксис келесідей қарапайым:

MultiReplace(мәтін, ескі, жаңа)

Мұнда:

• Мәтін - бастапқы деректер
• Ескі - табу үшін мәндер
• Жаңа - ауыстырылатын мәндер

Алдыңғы мысалды сәл әрі қарай алсақ, тек елдік қысқартуларды ғана емес, мемлекеттік аббревиатураларды да ауыстырайық. Ол үшін D2 бағанында D2 бағанынан басталатын қысқартуларды ( ескі мәндер) және E2 бағанынан басталатын толық атауларды ( жаңа мәндер) теріңіз.

Ішінде. B2, MultiReplace функциясын енгізіңіз:

=MultiReplace(A2:A10, D2, E2)

Enter пернесін басып, нәтижелерден ләззат алыңыз :)

Бұл формула қалай жұмыс істейді

Формуланы түсінудің кілті рекурсияны түсіну болып табылады. Бұл күрделі көрінуі мүмкін, бірақ принцип өте қарапайым. ӘрқайсысыменИтерация кезінде рекурсивті функция үлкенірек мәселенің бір шағын данасын шешеді. Біздің жағдайда, MultiReplace функциясы ескі және жаңа мәндер арқылы айналым жасайды және әрбір циклмен бір ауыстыруды орындайды:

MultiReplace (SUBSTITUTE(text, old, new), OFFSET(old, 1, 0), OFFSET(new, 1, 0))

Кірістірілген SUBSTITUTE функциялары сияқты, алдыңғы SUBSTITUTE нәтижесі келесі SUBSTITUTE үшін мәтін параметріне айналады. Басқаша айтқанда, MultiReplace әрбір келесі шақыруында SUBSTITUTE функциясы бастапқы мәтіндік жолды емес, алдыңғы шақырудың шығысын өңдейді.

<1 ішіндегі барлық элементтерді өңдеу үшін>ескі тізімде біз ең жоғарғы ұяшықтан бастаймыз және әрбір әрекеттесу кезінде 1 жолды төмен жылжыту үшін OFFSET функциясын қолданамыз:

OFFSET(old, 1, 0)

Дәл солай үшін де орындалады. new тізімі:

OFFSET(new, 1, 0)

Ең бастысы - рекурсивті қоңыраулардың мәңгілікке жалғасуын болдырмау үшін шығу нүктесін қамтамасыз ету. Ол ЕГЕР функциясының көмегімен орындалады - егер ескі ұяшық бос болса, функция мәтін оның қазіргі түрін қайтарады және шығады:

=LAMBDA(text, old, new, IF(old="", text, MultiReplace(…)))

немесе

=LAMBDA(text, old, new, IF(old"", MultiReplace(…), text))

2-мысал. Excel бағдарламасында бірнеше таңбаларды ауыстыру

Негізінде алдыңғы мысалда қарастырылған MultiReplace функциясы мүмкін әрбір ескі және жаңа таңба жоғарыдағы скриншоттардағы қысқартылған және толық атаулар сияқты бөлек ұяшыққа енгізілсе, жеке таңбаларды да өңдеңіз.

Егер ескісін енгізгіңіз келсе.бір ұяшықтағы таңбаларды және басқа ұяшықтағы жаңа таңбаларды немесе оларды формулаға тікелей теріңіз, содан кейін мына формулалардың бірін пайдаланып ReplaceChars деп аталатын басқа реттелетін функцияны жасауға болады:

=LAMBDA(text, old_chars, new_chars, IF(old_chars"", ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1)), text))

Не

=LAMBDA(text, old_chars, new_chars, IF(old_chars="", text, ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1))))

Жаңа Lambda функциясын атау менеджерінде әдеттегідей атауды ұмытпаңыз:

Жаңа теңшелетін функция пайдалануға дайын:

ReplaceChars(мәтін, ескі_таңбалар, жаңа_таңбалар)

Мұнда:

• Мәтін - бастапқы жолдар
• Ескі - ізделетін таңбалар
• Жаңа - ауыстырылатын таңбалар

Оны далалық сынақтан өткізу үшін, импортталған деректерде жиі орындалатын әрекетті орындайық – смарт тырнақшалар мен смарт апострофтарды түзу тырнақшалармен және тік апострофтармен ауыстырыңыз.

Біріншіден, біз D2-де смарт тырнақшалар мен смарт апострофтарды, E2-де тікелей тырнақшалар мен тура апострофтарды енгіземіз. , жақсы оқу үшін таңбаларды бос орындармен бөлу. (Екі ұяшықта бірдей бөлгішті пайдаланатындықтан, ол нәтижеге әсер етпейді - Excel бос орынды бос орынмен ауыстырады.)

Осыдан кейін біз бұл формуланы B2-ге енгіземіз:

=ReplaceChars(A2:A4, D2, E2)

Және дәл біз іздеген нәтижелерді алыңыз:

Таңбаларды формулада тікелей теруге де болады. Біздің жағдайда мынандай тура тырнақшаларды «көшірмелеуді» есте сақтаңыз:

=ReplaceChars(A2:A4, "“ ” ’", """ "" '")

Бұл формула қалай жұмыс істейді

ReplaceChars функция ескі_таңбалар және жаңа_таңбалар жолдары арқылы айналым жасайды және сол жақтағы бірінші таңбадан бастап бір уақытта бір ауыстыруды жасайды. Бұл бөлік SUBSTITUTE функциясы арқылы орындалады:

SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars))

Әр итерация кезінде ОҢҒА функциясы ескі_таңбалар және екеуінің де сол жағынан бір таңбаны алып тастайды. new_chars жолдарын, LEFT ауыстыру үшін келесі таңбалар жұбын алуы үшін:

ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1))

Әр рекурсивті шақырудың алдында IF функциясы ескі_таңбалар жолын бағалайды . Егер ол бос болмаса, функция өзін шақырады. Соңғы таңба ауыстырылғаннан кейін итерация процесі аяқталады, формула мәтін оның қазіргі пішінін қайтарады және шығады.

Ескертпе. Негізгі формулаларымызда қолданылатын SUBSTITUTE функциясы регистрге сезімтал болғандықтан, Lambdas екеуі де ( MultiReplace және ReplaceChars ) бас және кіші әріптерді әртүрлі таңбалар ретінде қарастырады.

Жаппай табу және UDF арқылы ауыстыру

Егер LAMBDA функциясы Excel бағдарламасында қолжетімсіз болса, VBA арқылы дәстүрлі жолмен көп ауыстыру үшін пайдаланушы анықтайтын функцияны жаза аласыз.

UDF-ді LAMBDA анықтайтын MultiReplace функциясынан ажырату үшін біз оны басқаша атаймыз, MassReplace деңіз. Функцияның коды келесідей:

Функция MassReplace(InputRng As Range, FindRng As Range, ReplaceRng As Range, ReplaceRng As Range) As Variant () DimarRes() Нәтижелерді сақтауға арналған Variant 'массиві ретінде Dim arSearchReplace(), sTmp As String 'жиым табу/алмастыру жұптарын сақтау орны, уақытша жол Dim iFindCurRow, cntFindRows As Long SearchReplace массивінің ағымдағы жолының индексі, санау жолдардың Dim iInputCurRow, iInputCurCol, cntInputRows, cntInputCols As Long 'бастапқы ауқымдағы ағымдағы жолдың индексі, бастапқы ауқымдағы ағымдағы бағанның индексі, жолдар саны, бағандар саны cntInputRows = InputRng.Rows.Count = InputRng cntInputRng .Columns.Count cntFindRows = FindRng.Rows.Count ReDim arRes(1 - cntInputRows, 1 - cntInputCols) ReDim arSearchReplace(1 - cntFindRows, 1 - 2) 'табу/алмастыру жұптарының массивін дайындау iFindCurRow, 1) = FindRng.Cells(iFindCurRow, 1).Value arSearchReplace(iFindCurRow, 2) = ReplaceRng.Cells(iFindCurRow, 1).Value Келесі 'Көзі диапазонында іздеу және ауыстыру iInputC For iolR =InputC To iolR үшін 1 cntInputCols sTm p = InputRng.Cells(iInputCurRow, iInputCurCol).Value 'Әр ұяшықтағы барлық табу/алмастыру жұптарын ауыстыру iFindCurRow үшін = 1 cntFindRows үшін sTmp = Replace(sTmp, arSearchReplace(iFindCurRow, (iInputCurRow, iInputCurCol) = sTmp Келесі Келесі MassReplace = arRes End функциясы

LAMBDA-анықталған функциялар сияқты, UDF файлдары жұмыс кітабы бойынша . Бұл дегеніміз