Excel හි සෛලයක් තුළ අනුපිටපත් සෙවීමට සහ මකා දැමීමට ක්‍රම තුනක් තිබේ. ඔබට වඩාත් සුදුසු එකක් තෝරන්න.

අනුපිටපත් අගයන් හෝ පේළි ඉවත් කිරීම ගැන සැලකිලිමත් වන විට, Microsoft Excel විවිධ විකල්ප රාශියක් ඉදිරිපත් කරයි. නමුත් දී ඇති කොටුවක් තුළ ඇති සමාන පෙළ ඉවත් කිරීමට පැමිණෙන විට, Excel සපයයි... කිසිවක් නැත. මෙවලම් නැත, විශේෂාංග නැත, සූත්‍ර නැත, කිසිවක් නැත. එය අපගේ ඉලක්කය සපුරා ගැනීම වළක්වයිද? කිසිම අවස්ථාවක. Excel සතුව අපට අවශ්‍ය කාර්යය නොමැති නම්, අපි අපේම එකක් ලියන්න යමු :)

Excel කොටුවේ නැවත නැවත වචන ඉවත් කරන්නේ කෙසේද

ගැටලු : ඔබට කොටුවක් තුළ එකම වචන හෝ පෙළ තන්තු ඇති අතර දෙවන සහ සියලු පසු පුනරාවර්තන ඉවත් කිරීමට කැමතිය.

විසඳුම : අභිරුචි පරිශීලක-නිර්වචනය කළ ශ්‍රිතයක් හෝ VBA මැක්‍රෝ.

කොටුවක් තුළ අනුපිටපත් ඉවත් කිරීමට පරිශීලක-නිර්වචනය කළ ශ්‍රිතය

කොටුවක ඇති අනුපිටපත් ඉවත් කිරීමට, ඔබට පහත පරිශීලක-නිර්වචනය කළ ශ්‍රිතය (UDF) භාවිත කළ හැක. , නමින් RemoveDupeWords :

Function RemoveDupeWords(Text As String , Optional delimiter as String = " " ) String Dim dictionary ලෙස Dim x, කොටස Set dictionary = CreateObject ( "Scripting.Dictionary" ) ශබ්දකෝෂය .සසඳන්න ප්‍රකාරය = vbTextඑක් එක් x සඳහා සසඳන්න බෙදීම (පෙළ, පරිසීමකය) කොටස = Trim(x) නම් කොටස "" සහ ශබ්දකෝෂය නොවේ. (කොටස) පවතී නම් ශබ්ද කෝෂය. කොටසක් එකතු කරන්න, ඊළඟට නම් කිසිවක් අවසන් නොවේ ශබ්දකෝෂය. ගණන් කරන්න > 0 ඉන්පසු RemoveDupeWords = Join(dictionary.keys,delimiter) Else RemoveDupeWords = "" End නම් සකසන්න ශබ්දකෝෂය = කිසිවක් අවසන් නොවන කාර්යය

ඔබේ වැඩපොතෙහි ශ්‍රිතයේ කේතය ඇතුළත් කරන්නේ කෙසේද

ඉහත කේතය ඔබේ Excel වෙත එක් කිරීමට, ඔබ කළ යුත්තේ මෙයයි:

1. දෘශ්‍ය මූලික සංස්කාරකය විවෘත කිරීමට Alt + F11 ඔබන්න.
2. වම් කවුළුවෙහි, This Workbook දකුණු-ක්ලික් කර Insert තෝරන්න > මොඩියුලය .
3. ඉහත කේතය කේත කවුළුවෙහි අලවන්න.

වැඩිදුර තොරතුරු සඳහා, කරුණාකර VBA ඇතුළු කරන්නේ කෙසේදැයි බලන්න Excel හි කේතය.

RemoveDupeWords ශ්‍රිත වාක්‍ය වින්‍යාසය

කොටුවක අනුපිටපත් පෙළ ඉවත් කිරීම සඳහා අපගේ අලුතින් සාදන ලද ශ්‍රිතයට පහත වාක්‍ය ඛණ්ඩය ඇත:

RemoveDupeWords(text, [delimiter])

කොහින්ද :

• පෙළ (අවශ්‍යයි) - ඔබට නැවත නැවතත් පෙළ මැකීමට අවශ්‍ය තන්තුවක් හෝ කොටුවකි.
• ඩිලිමිටරය (විකල්ප) - පුනරාවර්තන පෙළ වෙන් කර ඇති පරිසීමකය. ඉවත් කර ඇත්නම්, පරිසීමකය සඳහා ඉඩක් භාවිතා වේ.

ශ්‍රිතය අවස්ථා සංවේදී නොවේ , එනම් කුඩා අකුරු සහ ලොකු අකුරු එකම අක්ෂර ලෙස සලකනු ලැබේ.

RemoveDupeWords ශ්‍රිතය භාවිතා කරන්නේ කෙසේද

ඔබගේ වැඩපොතට ශ්‍රිතයේ කේතය එක් කළ පසු, ඔබ Excel හි බිල්ට්-ඉන් කර්තව්‍යයන් භාවිතා කරන ආකාරයටම එය ඔබගේ සූත්‍රවල භාවිතා කළ හැක.

සමාන ලකුණෙන් පසුව ශ්‍රිතයේ නම ටයිප් කිරීම ආරම්භ කරන්න, එය බුද්ධිමය සූත්‍රයේ දිස්වනු ඇත. කාර්යය මත දෙවරක් ක්ලික් කරන්න, එවිට ඔබට එය ලැබෙනු ඇතසෛලයකට ඇතුල් කර ඇත. තර්ක නිර්වචනය කරන්න, අවසන් වරහන් ටයිප් කරන්න, Enter ඔබන්න, එවිට ඔබේ සූත්‍රය සම්පූර්ණ වේ.

උදාහරණයක් ලෙස, A2 වෙතින් කොමාවකින් සහ ඉඩකින් වෙන් කරන ලද අනුපිටපත් වචන මැකීමට, B2 හි පහත සූත්‍රය ඇතුළු කරන්න, ඉන්පසු එය අවශ්‍ය තරම් සෛල හරහා පහළට ඇද දමන්න:

=RemoveDupeWords(A2, ", ")

ප්‍රතිඵලයක් ලෙස, ඔබට <කින් වෙන් කරන ලද අද්විතීය වචන හෝ උපසිරසි ලැයිස්තුවක් ලැබෙනු ඇත. 17>කොමාව සහ ඉඩ :

ඔබට කොමාවෙන් වෙන්වූ ලැයිස්තුවක් ලබා ගැනීමට අවශ්‍ය නම්, පරිසීමකය සඳහා කොමාවක් පමණක් භාවිතා කරන්න. :

=RemoveDupeWords(A2, ",")

ඔබේ මූලාශ්‍ර දත්ත හිස්තැනක් කින් වෙන් කර ඇත්නම්, දෙවන තර්කය " " හෝ මඟ හැරිය යුතුය:

=RemoveDupeWords(A2)

=RemoveDupeWords(A2)

වෙනත් ඕනෑම Excel ශ්‍රිතයක් මෙන්, මූලාශ්‍ර දත්ත වෙනස් වූ විට අපගේ UDF ස්වයංක්‍රීයව නැවත ගණනය කරයි, එබැවින් ඔබේ ප්‍රතිඵල සැමවිටම යාවත්කාලීන වේ.

VBA macro එකවර බහුවිධ සෛල වලින් අනුපිටපත් මැකීමට

ඔබ එක් වරකදී සෛල කිහිපයකින් පුනරාවර්තන පෙළ ඉවත් කිරීමට බලාපොරොත්තු වන්නේ නම්, ඔබට RemoveDupeWords ශ්‍රිතය fro ඇමතීමට හැකිය macro තුළ m. මෙම අවස්ථාවෙහිදී, පරිසීමකය දෘඪ කේත කර ඇති අතර, පරිසීමකය වෙනස් වන සෑම අවස්ථාවකම ඔබට මැක්‍රෝ කේතය යාවත්කාලීන කිරීමට සිදුවේ. විකල්පයක් ලෙස, ඔබට වඩාත් පොදු පරිසීමක සඳහා කේත විචලන කිහිපයක් ලිවිය හැක, කියන්න, අවකාශයක්, කොමාවක්, හෝ කොමාවක් සහ ඉඩක්, සහ ඔබේ මැක්‍රෝවලට අර්ථවත් නම් දෙන්න, උදා. RemoveDupesDelimSpace .

මැක්‍රෝ කේතය පහත පරිදි වේ:

පොදු උප RemoveDupeWords2() යෙදුමේ එක් එක් කොටුව සඳහා පරාසයක් ලෙස සෛල අඳුරු කරන්න.Selection cell.Value = RemoveDupeWords(cell.Value, ", " ) Next End Sub

ඉහත කේතයේ, පරිසීමකය කොමාවක් සහ අවකාශය . වෙනස් පරිසීමකයක් භාවිතා කිරීමට, මෙම කේත රේඛාවේ "," වෙනත් අක්ෂර(ය) සමඟ ප්‍රතිස්ථාපනය කරන්න:

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

සටහන. මැක්‍රෝව ක්‍රියා කිරීමට නම්, එහි කේතය සහ RemoveDupeWords ශ්‍රිතයේ කේතය එකම මොඩියුලය මත තැබිය යුතුය.

මැක්‍රෝ භාවිතා කරන්නේ කෙසේද

ඔබගේම වැඩපොතෙහි මැක්‍රෝ කේතය ඇතුළු කරන්න හෝ කේතය සමඟ අපගේ නියැදි වැඩපොත විවෘත කරන්න, ඉන්පසු මැක්‍රෝව ක්‍රියාත්මක කිරීමට පහත පියවර අනුගමනය කරන්න.

1. ඔබට පුනරාවර්තන පෙළ ඉවත් කිරීමට අවශ්‍ය කොටු පරාසයක් තෝරන්න.
2. Macro සංවාද කොටුව විවෘත කිරීමට Alt + F8 ඔබන්න.
3. මැක්‍රෝ ලැයිස්තුවේ, RemoveDupeWords2 තෝරන්න.
4. Run ක්ලික් කරන්න.

වැඩිදුර විස්තර සඳහා කරුණාකර බලන්න බලන්න Excel හි macro ධාවනය කරන්න.

සටහන. මැක්‍රෝ ක්‍රියාව පසුගමනය කළ නොහැක , මැක්‍රෝ භාවිතා කිරීමට පෙර ඔබේ වැඩපොත සුරැකීමට අපි තරයේ නිර්දේශ කරමු. මේ ආකාරයෙන්, යම් දෙයක් වැරදී ගියහොත්, ඔබට වැඩපොත වසා දමා නැවත විවෘත කළ හැකි අතර, ඔබ හරියටම ඔබ සිටි ස්ථානයට ආපසු පැමිණෙනු ඇත. නැතහොත් ඔබට සාර්ව මගින් බලපෑමට ලක්විය හැකි වැඩ පත්‍රිකාවේ (ය) පිටපතක් සෑදිය හැක.

කොටුවක අනුපිටපත් අකුරු ඉවත් කරන්නේ කෙසේද

ගැටලුව : ඔබට කොටුවක එකම අක්ෂරයේ බහුවිධ සිදුවීම් ඇති අතර,කොටුවේ අඩංගු විය යුත්තේ ලබා දී ඇති අක්ෂරයක තනි සිදුවීමක් පමණි.

විසඳුම : අභිරුචි පරිශීලක-නිර්වචනය කළ ශ්‍රිතයක් හෝ VBA මැක්‍රෝ.

පරිශීලක-නිර්වචනය කරන ලද පුනරාවර්තන අක්ෂර මකා දැමීමට

පළමු සංසිද්ධි පමණක් තබාගෙන කොටුවක් තුළ අනුපිටපත් ඉවත් කිරීමට, ඔබට RemoveDupeChars :

නමින් පහත සඳහන් පරිශීලක-නිර්වචනය කළ ශ්‍රිතය භාවිතා කළ හැක. ශ්‍රිතය RemoveDupeChars(Text As String ) String Dim dictionary ලෙස Object Dim char ලෙස String Dim result ලෙස String Set ශබ්ද කෝෂය = CreateObject ( "Scripting.Dictionary" ) සඳහා i = 1 සිට ලෙන්(පෙළ) char = මැද(පෙළ, i, 1 ) ශබ්දකෝෂය නොවේ නම්.පවතියි(චාරු) ඉන්පසු ශබ්දකෝෂය.අකුරු එකතු කරන්න, කිසිවක් නැත ප්‍රතිඵලය = ප්‍රතිඵලය & char End ඊලඟට RemoveDupeChars නම් = ප්‍රතිඵලය සකසන්න ශබ්දකෝෂය = කිසිවක් අවසන් නොවන කාර්යය

ඔබගේ වැඩපොතට ශ්‍රිතයේ කේතය ඇතුළු කිරීමට, පියවර හරියටම පෙර උදාහරණයේ ඇති ආකාරයටම වේ.

RemoveDupeChars ශ්‍රිත වාක්‍ය ඛණ්ඩය

මෙම අභිරුචි ශ්‍රිතයේ වාක්‍ය ඛණ්ඩය එය විය හැකි තරම් සරල ය - එක් තර්කයක් පමණක් අවශ්‍ය වේ:

RemoveDupeChars(text)

text යනු ඔබට අවශ්‍ය තන්තුවක් හෝ කොටුවකි. අනුපිටපත් අක්ෂර ඉවත් කිරීමට.

ශ්‍රිතය කේස්-සංවේදී වන අතර කුඩා අකුරු සහ ලොකු අකුරු විවිධ අක්ෂර ලෙස සලකයි.

RemoveDupeChars ශ්‍රිතය භාවිතා කරන ආකාරය

RemoveDupeWords භාවිතය ගැන අප පැවසූ සියල්ල RemoveDupeChars සඳහා සත්‍ය වේ. ඉතින් යන්නෙ නැතුවන්‍යායට වැඩිය, අපි කෙලින්ම උදාහරණයකට යමු.

A2 හි ආරම්භ වන A තීරුවේ අනුපිටපත් අක්ෂර මැකීමට, B2 හි මෙම සූත්‍රය ඇතුළත් කර එය පිටපත් කරන්න:

=RemoveDupeChars(A2)

0>ඔබට පහත රූපයේ පෙනෙන පරිදි, ශ්‍රිතය අකුරු, ඉලක්කම් සහ විශේෂ සංකේත ඇතුළු විවිධ අක්ෂර වර්ග සාර්ථකව හසුරුවයි:

ඉඟිය. ඔබේ අක්ෂර අවකාශයක්, කොමාවක් හෝ hyphen වැනි සීමාවකින් එකිනෙක වෙන් කර ඇත්නම්, පෙර උදාහරණයේ පෙන්වා ඇති පරිදි RemoveDupeWords ශ්‍රිතය භාවිතා කරන්න.

VBA මැක්‍රෝ සෛලයකින් එකම අක්ෂර ඉවත් කිරීමට

RemoveDupeWords වැනි, RemoveDupeChars ශ්‍රිතය මැක්‍රෝ එකක් තුළ සිට ද හැඳින්විය හැක:

පොදු Sub RemoveDupeChars2() යෙදුමේ ඇති සෑම කොටුවකටම පරාසයක් ලෙස සෛලය අඳුරු කරන්න.Selection cell.Value = RemoveDupeChars(cell.Value) ඊළඟ අන්තය උප

මෙම UDF කිසිඳු පරිසීමකයක් භාවිතා නොකරන නිසා, ඔබට මෙහි කිසිදු ගැලපීමක් කිරීමට සිදු නොවේ. කේතය.

සටහන. මැක්‍රෝව ක්‍රියා කිරීමට නම්, එහි කේතය සහ RemoveDupeChars UDF කේතය VBA සංස්කාරකයේ එකම මොඩියුලය මත තැබිය යුතුය.

මැක්‍රෝව භාවිතා කරන්නේ කෙසේද

ඔබ දැනටමත් ඔබේ වැඩපොතෙහි මැක්‍රෝ කේතය ඇතුළත් කර ඇති බව උපකල්පනය කර හෝ කේතය අඩංගු අපගේ නියැදි වැඩපොත විවෘත කර ඇතැයි උපකල්පනය කර, මැක්‍රෝව මේ ආකාරයෙන් දියත් කරන්න.

1. ඔබට නැවත නැවත අකුරු ඉවත් කිරීමට අවශ්‍ය කොටු පරාසයක් තෝරන්න.
2. Macro සංවාද කොටුව විවෘත කිරීමට Alt + F8 ඔබන්නකොටුව.
3. මැක්‍රෝ ලැයිස්තුවේ, RemoveDupeChars2 තෝරන්න.
4. Run ක්ලික් කරන්න.

Ultimate Suite සමඟ අනුපිටපත් උපසිරසි ඉවත් කරන්න

මෙම නිබන්ධනය ආරම්භයේදී, Microsoft Excel හට සෛලයක් තුළ අනුපිටපත් ඉවත් කිරීම සඳහා inbuilt විශේෂාංගයක් නොමැති බව සඳහන් කර ඇත. නමුත් අපගේ Ultimate Suite එසේ කරයි!

ඔබට එය Duplicate Remover drop-down menu හි Ablebits Data ටැබය තුළ Dedupe<2 හි සොයා ගත හැක> කණ්ඩායම. අනුපිටපත් උපසිරැසි ඉවත් කරන්න විකල්පය ඔබේ Excel හි දිස් නොවේ නම්, ඔබ Ultimate Suite හි නවතම අනුවාදය ස්ථාපනය කර ඇති බවට වග බලා ගන්න (නොමිලේ අත්හදා බැලීමක් මෙතැනින් බාගත හැකිය).

3>

තත්පර 5 කින් (පියවරකට තත්පරයක් :), නැවත නැවතත් වචන හෝ අකුරු ඉවත් කිරීම සඳහා, ඔබ කළ යුත්තේ මෙයයි:

1. ඔබේ මූලාශ්‍ර දත්ත තෝරා <දියත් කරන්න 1>අනුපිටපත් උපසිරසි මෙවලම ඉවත් කරන්න.
2. සීමකය සඳහන් කරන්න.
3. අඛණ්ඩ පරිසීමක එකක් ලෙස සලකන්නේද යන්න නිර්වචනය කරන්න (පෙරනිමිය).
4. අවස්ථා සංවේදී හෝ අවස්ථාව-සංවේදී සෙවීම සිදු කරන්නේද යන්න තෝරන්න.
5. ඉවත් කරන්න ක්ලික් කරන්න.

නිමයි! VBA හෝ සූත්‍ර සමඟ කම්මැලිකමක් නැත, ඉක්මන් සහ නිවැරදි ප්‍රතිඵල පමණි.

මෙම විස්මිත ඇඩෝනය ගැන වැඩිදුර දැන ගැනීමට, කරුණාකර එහි මුල් පිටුවට පිවිසෙන්න. එසේත් නැතිනම් ඊටත් වඩා හොඳයි, පහත ඇගයුම් අනුවාදයක් බාගත කර එය උත්සාහ කරන්න!

කොටුවක අනුපිටපත් අකුරු ඉවත් කරන ආකාරය එයයි.කියවීමට මම ඔබට ස්තූතිවන්ත වන අතර ලබන සතියේ අපගේ බ්ලොගයේ ඔබව දැකීමට බලාපොරොත්තු වෙමි!

ලබාගත හැකි බාගැනීම්

කොටුව තුළ අනුපිටපත් ඉවත් කිරීමට උදාහරණ (.xlsm ගොනුව)

Ultimate Suite 14 -day පූර්ණ-ක්‍රියාකාරී අනුවාදය (.exe ගොනුව)