Excel دىكى بىر كاتەكچىنىڭ كۆپەيتىلگەن نۇسخىسىنى تېپىش ۋە ئۆچۈرۈشنىڭ ئۈچ خىل ئۇسۇلى بار. پەقەت ئۆزىڭىزگە ماس كېلىدىغان بىرىنى تاللاڭ. ئەمما مەلۇم كاتەكچىنىڭ ئىچىدىكى ئوخشاش تېكىستنى چىقىرىۋېتىشكە كەلسەك ، Excel ھېچقانداق نەرسە تەمىنلىمەيدۇ. ھېچقانداق قورال ، ئىقتىدار يوق ، فورمۇلا يوق ، ھېچنىمە يوق. ئۇ بىزنىڭ مەقسىتىمىزگە يېتىشىمىزنى توسىدۇ؟ ھېچقانداق ئەھۋالدا. ئەگەر Excel بىزدە لازىملىق ئىقتىدار بولمىسا ، ئۆزىمىز يېزىپ باقايلى :)

Excel كاتەكچىسىدىكى تەكرارلانغان سۆزلەرنى قانداق ئۆچۈرۈۋېتىمىز

مەسىلە : سىزدە كاتەكچىدە ئوخشاش سۆز ياكى تېكىست تىزمىسى بار ، ئىككىنچى ۋە كېيىنكى بارلىق تەكرارلاشلارنى ئۆچۈرمەكچى.

ھەل قىلىش چارىسى : ئىشلەتكۈچى بەلگىلىگەن ئىقتىدار ياكى VBA ماكرو. <<> ، RemoveDupeWords :

خىزمەت دەپتىرىڭىزگە ئىقتىدارنىڭ كودىنى قانداق قىستۇرۇش

Excel غا يۇقارقى كودنى قوشۇش ئۈچۈن ، سىز قىلىشقا تېگىشلىك ئىش:

1. Alt + F11 نى بېسىپ Visual Basic تەھرىرلىگۈچنى ئاچىمىز. & gt; بۆلەك .
2. يۇقارقى كودنى كود كۆزنىكىگە چاپلاڭ. Excel دىكى كود. :
   • تېكىست (تەلەپ قىلىنغان) - سىز تەكرارلانغان تېكىستنى ئۆچۈرمەكچى بولغان تىزما ياكى كاتەكچە.
   • - تەكرارلانغان تېكىست تەرىپىدىن ئايرىلىدىغان ئايرىغۇچ. ئەگەر ئەمەلدىن قالدۇرۇلسا ، ئايرىغۇچ ئۈچۈن بوشلۇق ئىشلىتىلىدۇ.

     RemoveDupeWords ئىقتىدارىنى قانداق ئىشلىتىش

     فۇنكسىيەنىڭ كودى خىزمەت دەپتىرىڭىزگە قوشۇلغاندىن كېيىن ، ئۇنى Excel نىڭ ئىچكى ئىقتىدارلىرىنى ئىشلەتكەنگە ئوخشاش فورمۇلاڭىزدا ئىشلىتەلەيسىز.

     تەڭلىك بەلگىسىدىن كېيىن فۇنكىسىيەنىڭ نامىنى يېزىشنى باشلاڭ ، ئۇ فورمۇلا ئەقلىي ئىقتىدارىدا كۆرۈنىدۇ. ئىقتىدارنى قوش چېكىڭ ، سىزدە باركاتەكچىگە قىستۇرۇلدى. تالاش-تارتىشلارغا ئېنىقلىما بېرىڭ ، يېپىلىش تىرناقنى كىرگۈزۈڭ ، Enter نى بېسىڭ ، فورمۇلاڭىز تاماملاندى. B2 دىكى تۆۋەندىكى فورمۇلانى كىرگۈزۈڭ ، ئاندىن ئېھتىياجغا ئاساسەن ئۇنى سۆرەپ كىرىڭ:

     =RemoveDupeWords(A2, ", ")

     نەتىجىدە ، سىزدە <ئارقىلىق ئايرىلغان ئۆزگىچە سۆز ياكى تارماق سۆزلەر تىزىملىكى بولىدۇ. 17> پەش ۋە بوشلۇق :

     

     ئەگەر پەش بىلەن ئايرىلغان تىزىملىككە ئېرىشمەكچى بولسىڭىز ، ئۇنداقتا ئايرىش ئۈچۈن پەقەت پەش نى ئىشلىتىڭ. : <3 3>

     =RemoveDupeWords(A2)

     قاراڭ: Excel دىكى ئىسىملارنى ئايرىش: ئىسىم ۋە فامىلىسىنى ئوخشىمىغان ئىستونلارغا ئايرىڭ

     

     باشقا Excel ئىقتىدارلىرىغا ئوخشاش ، بىزنىڭ UDF مەنبە سانلىق مەلۇمات ئۆزگەرگەندە ئاپتوماتىك قايتا ھېسابلايدۇ ، شۇڭا نەتىجىڭىز ھەمىشە يېڭى ھالەتتە بولىدۇ.

     VBA ماكرو تەكرارلانغان تېكىستنى بىر نەچچە كاتەكچىدىن بىراقلا ئۆچۈرمەكچى

     ئەگەر سىز بىر نەچچە قېتىم تەكرارلانغان تېكىستنى بىر نەچچە كاتەكچىدىن ئۆچۈرمەكچى بولسىڭىز ، ئۇنداقتا RemoveDupeWords فۇنكىسىيەسىنى چاقىرسىڭىز بولىدۇ. m ماكرو ئىچىدە. بۇ خىل ئەھۋالدا ، ئايرىغۇچ قاتتىق كودلاشتۇرۇلغان بولۇپ ، ھەر قېتىم چەكلىگۈچى ئۆزگەرگەندە ماكرونىڭ كودىنى يېڭىلىشىڭىز كېرەك. ئۇنىڭدىن باشقا ، سىز ئەڭ كۆپ ئۇچرايدىغان چەكلىگۈچىلەر ئۈچۈن بىر قانچە كود ئۆزگىرىشىنى يازالايسىز ، مەسىلەن ، بوشلۇق ، پەش ياكى پەش ۋە بوشلۇق ، ھەمدە ماكرولىرىڭىزغا ئەھمىيەتلىك ئىسىملارنى بېرەلەيسىز. RemoveDupesDelimSpace .

     ماكرونىڭ كودى تۆۋەندىكىچە:

     Public Sub RemoveDupeWords2 () Dim كاتەكچىسى قوللىنىشچان پروگراممىدىكى ھەر بىر كاتەكچىنىڭ دائىرىسى. بوشلۇق . باشقىچە ئايرىشنى ئىشلىتىش ئۈچۈن ، بۇ كود لىنىيىسىدىكى باشقا ھەرپ (لار) بىلەن «» نى ئالماشتۇرۇڭ:

     cell.Value = RemoveDupeWords(cell.Value, ", ")

     ئەسكەرتىش. ماكرونىڭ ئىشلىشى ئۈچۈن ، ئۇنىڭ كودى ۋە RemoveDupeWords ئىقتىدارىنىڭ كودى چوقۇم ئوخشاش مودۇلغا قويۇلۇشى كېرەك.

     ماكرونى قانداق ئىشلىتىش

     ماكرونىڭ كودىنى ئۆزىڭىزنىڭ خىزمەت دەپتىرىگە قىستۇرۇڭ ياكى ئۈلگە خىزمەت دەپتىرىمىزنى كود بىلەن ئېچىڭ ، ئاندىن ماكرونى ئىجرا قىلىش ئۈچۈن تۆۋەندىكى باسقۇچلارنى قىلىڭ.

     1. قايتا-قايتا تېكىستنى ئۆچۈرمەكچى بولغان بىر قاتار كاتەكچىلەرنى تاللاڭ.
     2. Alt + F8 نى بېسىپ ماكرو سۆزلىشىش رامكىسىنى ئېچىڭ.
     3. ماكرو تىزىملىكىدە RemoveDupeWords2 نى تاللاڭ.
     4. ئىجرا نى بېسىڭ.

     

     Excel دا ماكرو ئىجرا قىلىڭ.

     ئەسكەرتىش. ماكرونىڭ ھەرىكىتىنى ئەمەلدىن قالدۇرغىلى بولمىغاچقا ، ماكرو ئىشلىتىشتىن بۇرۇن خىزمەت دەپتىرىڭىزنى تېجەشنى كۈچلۈك تەۋسىيە قىلىمىز. بۇنداق بولغاندا ، خاتالىق كۆرۈلسە ، خىزمەت دەپتىرىنى تاقاپ قايتا ئاچسىڭىز بولىدۇ ، دەل جايىڭىزغا قايتىسىز. ياكى ماكرونىڭ تەسىرىگە ئۇچرايدىغان خىزمەت جەدۋىلى (لەر) نىڭ كۆپەيتىلگەن نۇسخىسىنى قىلسىڭىزلا بولىدۇ.

     كاتەكچىدىكى كۆپەيتىلگەن ھەرپلەرنى قانداق ئۆچۈرۈۋېتىش

     مەسىلە : سىز بىر كاتەكچىدە ئوخشاش خاراكتېردە كۆپ قېتىم كۆرۈلىدۇ.كاتەكچىدە پەقەت بېرىلگەن ھەرپنىڭ بىرلا قېتىم كۆرۈلۈشى بولۇشى كېرەك.

     ھەل قىلىش چارىسى : ئىشلەتكۈچى بەلگىلىگەن ئىقتىدار ياكى VBA ماكرو.

     

     ئىشلەتكۈچى بەلگىلىگەن ئىقتىدار تەكرارلانغان ھەرپلەرنى ئۆچۈرۈش

     كاتەكچە ئىچىدىكى تەكرارلانغان ھەرپلەرنى پەقەت بىرىنچى قېتىملا ساقلاپ قېلىش ئۈچۈن ، تۆۋەندىكى ئىشلەتكۈچى بەلگىلىگەن ئىقتىدارنى ئىشلىتەلەيسىز ، يەنى RemoveDupeChars :

     فۇنكسىيەنى ئۆچۈرۈۋېتىش ) ئەگەر لۇغەت بولمىسا. Exists (char) ئاندىن لۇغەت. قوشۇمچە char ، ھېچقانداق نەتىجە = نەتىجە & amp; char End ئەگەر كېيىنكى RemoveDupeChars = نەتىجە لۇغەت بەلگىلەش = ھېچنېمە ئاخىرلاشمايدىغان ئىقتىدار

     ئىقتىدارنىڭ كودىنى خىزمەت دەپتىرىڭىزگە قىستۇرۇش ئۈچۈن ، باسقۇچلار ئالدىنقى مىسالدىكىگە ئوخشاش.

     قاراڭ: Excel RegEx مىساللىرى: فورمۇلادا دائىملىق ئىپادىلەش

     RemoveDupeChars فۇنكسىيە گرامماتىكىسى

     بۇ ئىختىيارى ئىقتىدارنىڭ گرامماتىكىسى مۇمكىن قەدەر ئاددىي - پەقەت بىرلا تالاش-تارتىش تەلەپ قىلىنىدۇ:

     RemoveDupeChars (تېكىست)

     بۇ يەردە تېكىست سىز ئارزۇ قىلغان ھەرپ ياكى كاتەكچە تەكرارلانغان ھەرپلەرنى ئۆچۈرۈۋېتىش. RemoveDupeWords نى ئىشلىتىش توغرىسىدا ئېيتقانلىرىمىزنىڭ ھەممىسى RemoveDupeChars ئۈچۈن توغرا. شۇڭا ، بارمايلانەزەرىيەگە بەك كۆپ ، بىز بىۋاسىتە بىر مىسالغا ئۆتەيلى. 0> تۆۋەندىكى رەسىمدە كۆرگىنىڭىزدەك ، بۇ ئىقتىدار ھەرپ ، رەقەم ۋە ئالاھىدە بەلگىلەرنى ئۆز ئىچىگە ئالغان ئوخشىمىغان ھەرپ تىپلىرىنى مۇۋەپپەقىيەتلىك بىر تەرەپ قىلىدۇ:

     

     كۆرسەتمە. ئەگەر ھەرپلىرىڭىز بىر-بىرىدىن بوشلۇق ، پەش ياكى قىستۇرما دېگەندەك ئايرىش تەرىپىدىن ئايرىۋېتىلگەن بولسا ، ئالدىنقى مىسالدا كۆرسىتىلگەندەك RemoveDupeWords ئىقتىدارىنى ئىشلىتىڭ.

     VBA ماكرو ئوخشاش بىر ھەرپنى كاتەكچىدىن چىقىرىۋېتىش

     RemoveDupeWords غا ئوخشاش ، RemoveDupeChars ئىقتىدارىنىمۇ ماكرو ئىچىدىن چاقىرىشقا بولىدۇ:

     ئاممىۋى Sub RemoveDupeChars2 () Dim كاتەكچىسى قوللىنىشچان پروگراممىدىكى ھەر بىر كاتەكچىنىڭ دائىرىسى سۈپىتىدە. تاللاش كاتەكچىسى. قىممەت كود.

     ئەسكەرتىش. ماكرونىڭ ئىشلىشى ئۈچۈن ، ئۇنىڭ كودى ۋە RemoveDupeChars UDF نىڭ كودى چوقۇم VBA تەھرىرلىگۈچتىكى ئوخشاش مودۇلغا قويۇلۇشى كېرەك.

     ماكرونى قانداق ئىشلىتىش

     ماكرونىڭ كودىنى خىزمەت دەپتىرىڭىزگە قىستۇرۇپ قويغانلىقىڭىزنى ياكى كودنى ئۆز ئىچىگە ئالغان ئۈلگە خىزمەت دەپتىرىمىزنى ئاچقانلىقىڭىزنى پەرەز قىلساق ، بۇ ئۇسۇلدا ماكرونى قوزغىتىڭ.

     1. تەكرارلانغان ھەرپلەرنى ئۆچۈرمەكچى بولغان بىر قاتار كاتەكچىلەرنى تاللاڭ.
     2. Alt + F8 نى بېسىپ ماكرو سۆزلىشىش رامكىسىنى ئاچىسىز.رامكا.
     3. ماكرو تىزىملىكىدە RemoveDupeChars2 نى تاللاڭ.
     

     Ultimate Suite

     بىلەن تەكرارلانغان تارماق دېتاللارنى ئېلىۋېتىڭ

     بۇ دەرسلىكنىڭ بېشىدا ، Microsoft Excel نىڭ كاتەكچىنىڭ ئىچىدىكى كۆپەيتمىلەرنى ئۆچۈرۈۋېتىدىغان ئىقتىدار يوقلىقى تىلغا ئېلىنغان. ئەمما بىزنىڭ ئەڭ ئاخىرقى يۈرۈشلۈك ئۆيىمىز شۇنداق قىلىدۇ!> گۇرۇپپا. ئەگەر Excel دا كۆپەيتىلگەن بۆلەكلەرنى ئۆچۈرۈش تاللانمىسى كۆرۈنمىسە ، Ultimate Suite نىڭ ئەڭ يېڭى نەشرىنى ئورناتقانلىقىڭىزنى جەزملەشتۈرۈڭ (ھەقسىز سىناقنى بۇ يەردىن چۈشۈرەلەيسىز).

     

     قايتا-قايتا سۆز ياكى تېكىستنى 5 سېكۇنتتا بىر نەچچە كاتەكچىدىن چىقىرىۋېتىش (ھەر بىر سېكۇنتتا :) ، بۇ سىزنىڭ قىلىشقا تېگىشلىك ئىشىڭىز:

     1. مەنبە سانلىق مەلۇماتلىرىڭىزنى تاللاڭ ۋە تەكرارلانغان تارماق بۆلەكلەرنى ئۆچۈرۈڭ قورال.
     2. ئايرىش نى بەلگىلەڭ.
     3. دېلوغا سەزگۈر ياكى دېلو سەزگۈر ئىزدەش ياكى ئىجرا قىلىشنى تاللاڭ.
     4. نى ئۆچۈرۈڭ.

     تامام! VBA ياكى فورمۇلاغا ماس كەلمەيدۇ ، پەقەت تېز ۋە توغرا نەتىجىگە ئېرىشىڭ. ياكى تېخىمۇ ياخشى ، تۆۋەندىكى باھالاش نۇسخىسىنى چۈشۈرۈپ سىناپ بېقىڭ!

     شۇنداق قىلىپ كاتەكچىدىكى تەكرارلانغان تېكىستنى ئۆچۈرۈۋېتىڭ.ئوقۇغانلىقىڭىزغا رەھمەت ، كېلەر ھەپتە بىلوگىمىزدا كۆرۈشىڭىزنى ئۈمىد قىلىمەن! -كۈنلۈك تولۇق ئىقتىدارلىق نەشرى (.exe ھۆججىتى)