Энэ зааварт бид олон үг, тэмдэгт тэмдэгтүүдийг олж, солих хэд хэдэн аргыг авч үзэх бөгөөд ингэснээр та өөрийн хэрэгцээнд хамгийн сайн тохирохыг сонгох боломжтой болно.

Хүмүүс Excel дээр ихэвчлэн хэрхэн хайдаг вэ? Ихэнхдээ Find & Нэг утгын хувьд сайн ажилладаг функцийг солих. Харин танд хэдэн арван, бүр хэдэн зуун солих зүйл байвал яах вэ? Хэн ч эдгээр бүх орлуулалтыг гараар нэг нэгээр нь хийж, өгөгдөл өөрчлөгдөх үед бүгдийг дахин хийхийг хүсэхгүй нь лавтай. Аз болоход Excel дээр бөөнөөр солих хэд хэдэн үр дүнтэй аргууд байгаа бөгөөд бид тэдгээр тус бүрийг нарийвчлан судлах болно.

Олон утгыг олоод орлуулсан ОРЛУУЛАХ-аар орлуулах

Excel-д олон оруулгуудыг олох, солих хамгийн хялбар арга бол ОРЛУУЛАХ функцийг ашиглах явдал юм.

Томьёоны логик нь маш энгийн: та хуучин утгыг шинээр солихын тулд хэд хэдэн тусдаа функц бичнэ. . Дараа нь та эдгээр функцүүдийг нэг нэгээр нь оруулснаар дараагийн ОРЛОГЧ бүр нь өмнөх ОРЛУУЛАГЧ-ын гаралтыг дараагийн утгыг хайхад ашигладаг.

ОРЛУУЛАХ(ОРЛУУЛАХ( текст, ). хуучин_текст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-г мужаар, ReplaceRng-г мужаар тохируулна Алдаа Үргэлжлүүлэх Дараачийн тохируул SourceRng = Application.InputBox( "Эх мэдээлэл: " , "Бөөнөөр солих" , Application.Selection.Address, Type :=8) Err.Clear Хэрэв эх сурвалж юу ч биш бол ReplaceRng = Application.InputBox( "Муж солих:" , "Бөөнөөр солих" , Төрөл:=8) ReplaceRng-г орлуулахгүй бол алдаа арилгана. Дараа нь Application.ScreenUpdating = False In ReplaceRng.Columns(1).Cells SourceRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value Дараа нь Application.ScreenUpdating = True End If End If End Sub

Макро нэн даруй ашиглахын тулд та кодыг агуулсан бидний жишээ ажлын номыг татаж авах боломжтой. Эсвэл та кодыг өөрийн ажлын дэвтэртээ оруулж болно.

Макро хэрхэн ашиглах вэ

Макро ажиллуулахын өмнө хуучин болон шинэ утгуудыг доорх зурган дээр үзүүлсэн шиг зэргэлдээ хоёр баганад бичнэ үү ( C2:D4).

Дараа нь эх өгөгдлөө сонгоод Alt + F8 дарж, Бөөнөөр солих макро сонгоод Ажиллуулах дээр дарна уу.

хүрээний эх үүсвэр -г урьдчилан сонгосон тул лавлагааг баталгаажуулаад OK товчийг дарна уу:

Үүний дараа, орлуулах муж -ыг сонгоод OK дарна уу:

Дууссан!

Давуу тал : нэг удаа тохируулж, хүссэн үедээ дахин ашиглах боломжтой

Сул тал : макро өгөгдөл болгон ажиллуулах шаардлагатайөөрчлөх

Дэд стринг хэрэглүүрээр Excel-д олныг олох, солих

Эхний жишээн дээр би Excel-д олон утгыг орлуулах хамгийн хялбар арга бол үүрлэсэн ОРЛУУЛАХ гэж хэлсэн. Би буруу байсан гэдгээ хүлээн зөвшөөрч байна. Манай Ultimate Suite нь ажлыг илүү хялбар болгож байна!

Ажлын хуудсан дээрээ бөөнөөр солихын тулд Ablebits Data таб руу очоод Дэд мөрний хэрэгслүүд > дээр дарна уу. Дэд мөрийг солих .

Дэд мөрийг солих харилцах цонх гарч ирэх бөгөөд Эх сурвалж муж болон <1-ийг тодорхойлохыг хүсэх болно>Дэд мөр муж.

Хоёр мужийг сонгосон үед Орлуулах товчийг товшоод үр дүнг баруун талд оруулсан шинэ баганаас олоорой. анхны өгөгдлөөс. Тийм ээ, энэ маш амархан!

Зөвлөгөө. Орлуулах товчийг дарахаас өмнө нэг чухал зүйлийг анхаарч үзэх хэрэгтэй - Үсгийн том үсгийн мэдрэмжтэй хайрцаг. Хэрэв та том, жижиг үсгийг өөр тэмдэгт болгон ашиглахыг хүсвэл үүнийг сонгохоо мартуузай. Энэ жишээн дээр бид зөвхөн том үсгээр бичсэн мөрүүдийг орлуулж, "fr", "uk", "ak" гэх мэт дэд мөрүүдийг өөр үгээр бүтнээр нь үлдээхийг хүсэж байгаа тул энэ сонголтыг тэмдэглэнэ.

Хэрэв та стринг дээр өөр ямар бөөн үйлдлүүдийг хийж болохыг мэдэхийг сонирхож байвал манай Ultimate Suite-д багтсан бусад Substring Tools-ийг үзээрэй. Эсвэл бүр илүү сайн бол доорх үнэлгээний хувилбарыг татаж аваад туршаад үзээрэй!

Ингэж л олж, солих боломжтой.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)

Энэ тохиолдолд бид орлуулах утгуудыг үнэмлэхүй нүдний лавлагаагаар түгжихийг анхаарна уу. Тэд томьёог доош хуулах үед шилжихгүй.

Тэмдэглэл. ОРЛУУЛАХ функц нь үсгийн томрол мэдрэмжтэй бөгөөд та хуучин утгуудыг ( хуучин_текст ) анхны өгөгдөлд байгаа ижил үсгээр бичих хэрэгтэй гэсэн үг юм.

Хялбар байж болох ч энэ арга нь мэдэгдэхүйц сул талтай - танд солих хэдэн арван зүйл байгаа үед үүрлэсэн функцуудыг удирдахад нэлээд хэцүү болдог.

Давуу тал : хялбар -хэрэгжүүлэх; 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 хувилбарт ажилладаг

Сул тал : нүдний түвшинд ажилладаг, эсийн агуулгын хэсгийг орлуулах боломжгүй

Recursive LAMBDA функцийг ашиглан олон дахин солих

Microsoft-ын хувьд365 захиалагчтай Excel нь уламжлалт томъёоны хэлийг ашиглан захиалгат функцүүдийг үүсгэх боломжийг олгодог тусгай функцээр хангадаг. Тийм ээ, би LAMBDA-ийн тухай ярьж байна. Энэ аргын гоо үзэсгэлэн нь маш урт бөгөөд нарийн төвөгтэй томъёог маш авсаархан, энгийн хэлбэр болгон хувиргаж чаддагт оршино. Үүнээс гадна, энэ нь танд Excel-д байхгүй өөрийн функцүүдийг үүсгэх боломжийг олгодог бөгөөд энэ нь урьд өмнө нь зөвхөн VBA-д боломжтой байсан зүйл юм.

Захиалгат LAMBDA функцийг үүсгэх, ашиглах талаар дэлгэрэнгүй мэдээлэл авахыг хүсвэл дараах зааварчилгааг үзнэ үү: Хэрхэн Excel-д LAMBDA функцуудыг бичих. Энд бид хэд хэдэн практик жишээг авч үзэх болно.

Давуу тал : үр дүн нь орлуулах хосын тооноос үл хамааран гоёмсог бөгөөд ашиглахад гайхалтай хялбар функц юм

Сул тал : зөвхөн Excel 365 дээр боломжтой; ажлын дэвтэрт зориулагдсан бөгөөд өөр өөр ажлын дэвтэрт дахин ашиглах боломжгүй

Жишээ 1. Олон үг / мөрийг нэг дор хайж, солих

Олон үг эсвэл текстийг нэг дор орлуулахын тулд бид захиалга үүсгэсэн. LAMBDA функц, MultiReplace нэртэй бөгөөд дараах хэлбэрүүдийн аль нэгийг авч болно:

=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 функц дуудагдана. Хэрэв ХУДАЛ бол функц текст -г буцааж, одоогийн хэлбэрээс гарна.

Хоёр дахь томьёо нь урвуу логикийг ашигладаг: хэрэв хуучин хоосон (хуучин="") байвал <1-г буцаана>текст болон гарах; Үгүй бол MultiReplace гэж дуудна уу.

Хамгийн төвөгтэй хэсэг нь бүтсэн! Доорх дэлгэцийн агшинд үзүүлсэн шиг Нэрийн менежер дэх MultiReplace функцийг нэрлэх л үлдлээ. Нарийвчилсан удирдамжийг LAMBDA функцийг хэрхэн нэрлэх тухай хэсгээс үзнэ үү.

Функц нэртэй болмогц та үүнийг бусад суулгасан функцтэй адил ашиглаж болно.

Эцсийн хэрэглэгчийн үүднээс таны сонгосон хоёр томьёоны хувилбараас алийг нь ч сонгосон синтакс нь дараах байдалтай энгийн:

MultiReplace(текст, хуучин, шинэ)

Хаана:

• Текст - эх өгөгдөл
• Хуучин - олох утгууд
• Шинэ - орлуулах утгууд

Өмнөх жишээг арай цааш авч үзэхэд зөвхөн улсын товчилсон үг биш төрийн товчилсон үгийг ч сольж үзье. Үүний тулд D2-ээс эхлэн D баганад товчлол ( хуучин утгууд), E2-ээс эхлэн Е баганад бүтэн нэрийг ( шинэ утгууд) бичнэ үү.

д. B2, MultiReplace функцийг оруулна уу:

=MultiReplace(A2:A10, D2, E2)

Enter дарж үр дүнг нь үзээрэй :)

Энэ томъёо хэрхэн ажилладаг вэ

Томьёог ойлгох сэжүүр нь рекурсийг ойлгох явдал юм. Энэ нь төвөгтэй мэт санагдаж болох ч зарчим нь маш энгийн. Тус бүртэй ньдавталт, рекурсив функц нь том асуудлын нэг жижиг жишээг шийддэг. Манай тохиолдолд MultiReplace функц нь хуучин болон шинэ утгуудын хооронд давтагдах ба давталт бүрт нэг орлуулалтыг гүйцэтгэдэг:

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

Суурилуулсан ОРЛУУЛАХ функцүүдийн нэгэн адил өмнөх ОРЛУУЛАГЧ-ын үр дүн нь дараагийн ОРЛУУЛАГЧ-ын текст параметр болно. Өөрөөр хэлбэл, MultiReplace -ын дараагийн дуудлага бүр дээр ОРЛУУЛАХ функц нь эх текстийн мөрийг биш харин өмнөх дуудлагын гаралтыг боловсруулдаг.

<1 дээрх бүх зүйлийг зохицуулахын тулд>хуучин жагсаалтад бид хамгийн дээд нүднээс эхэлж, OFFSET функцийг ашиглан харилцан үйлдэл бүрт 1 мөр доош зөөнө:

OFFSET(old, 1, 0)

-д мөн адил үйлдлийг хийнэ. new жагсаалт:

OFFSET(new, 1, 0)

Хамгийн чухал зүйл бол рекурсив дуудлагыг үүрд үргэлжлүүлэхээс сэргийлэхийн тулд гарах цэгийг өгөх явдал юм. Энэ нь IF функцын тусламжтайгаар хийгддэг - хэрэв хуучин нүд хоосон байвал функц текст -г одоогийн хэлбэрээ буцаан өгч, гарна:

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

эсвэл

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

Жишээ 2. Excel-д олон тэмдэгт солих

Үндсэндээ өмнөх жишээнд авч үзсэн Олон солих функц нь Дээрх дэлгэцийн агшин дээрх товчилсон болон бүтэн нэрийн адил хуучин болон шинэ тэмдэгт бүрийг тусдаа нүдэнд оруулах тохиолдолд тус тусын тэмдэгтүүдийг зохицуулна.

Хэрэв та хуучин тэмдэгтийг оруулахыг хүсвэлНэг нүдэнд байгаа тэмдэгтүүд болон өөр нүдэн дэх шинэ тэмдэгтүүдийг оруулах эсвэл томьёонд шууд бичвэл, дараах томъёоны аль нэгийг ашиглан 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(text, LEFT(old_chars), LEFT(new_chars))

Давталт болгонд БАРУУН функц нь хуучин_тэмдэгт ба -ийн зүүн талаас нэг тэмдэгтийг хасдаг. new_chars тэмдэгтүүдийг ЗҮҮН нь орлуулах дараагийн хос тэмдэгтүүдийг авчрах боломжтой:

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

Рекурсив дуудлага бүрийн өмнө IF функц нь хуучин_тэмдэгт мөрийг үнэлдэг. . Хэрэв хоосон биш бол функц өөрөө дуудагдана. Сүүлчийн тэмдэгтийг сольсны дараа давталтын процесс дуусч, томьёо нь текст -г одоогийн хэлбэрээ буцаан өгч, гарна.

Тайлбар. Манай үндсэн томьёонд ашиглагдаж буй ОРЛУУЛАХ функц нь үсгийн том үсгийн мэдрэмжтэй учраас Lambdas ( MultiReplace ба ReplaceChars ) хоёулаа том, жижиг үсгүүдийг өөр өөр тэмдэгт гэж үздэг.

Үнээр олоод UDF-р солих

Хэрэв LAMBDA функц таны Excel-д байхгүй тохиолдолд та VBA-г ашиглан уламжлалт аргаар олон дахин солих хэрэглэгчийн тодорхойлсон функцийг бичиж болно.

UDF-г LAMBDA-ийн тодорхойлсон MultiReplace функцээс ялгахын тулд бид үүнийг өөрөөр нэрлэх болно, MassReplace гэж хэлнэ. Функцийн код дараах байдалтай байна:

Function MassReplace(InputRng As Range, FindRng 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.Rows.Count 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 Next 'Эх мужид хайх, солих For iInputurC To iolR =InputC Tow. 1 cntInputCols sTm руу p = InputRng.Cells(iInputCurRow, iInputCurCol).Value 'Нүд тус бүрийн олох/солих хосуудыг солих iFindCurRow = 1-д cntFindRows-д sTmp = Replace(sTmp, arSearchReplace(iFindCurRow,(iFindCurRow, iInputCurCol)R),(iFindCurRow,Next2)Replace (iInputCurRow, iInputCurCol) = sTmp Дараагийн дараагийн MassReplace = arRes Төгсгөлийн функц

LAMBDA-аар тодорхойлсон функцүүдийн нэгэн адил UDF нь ажлын дэвтэрт байдаг. гэсэн үг