உள்ளடக்க அட்டவணை
Excel இல் உள்ள கலத்தில் நகல்களைக் கண்டறிந்து நீக்க மூன்று வழிகள் உள்ளன. உங்களுக்குச் சிறப்பாகச் செயல்படும் ஒன்றைத் தேர்வுசெய்யவும்.
நகல் மதிப்புகள் அல்லது வரிசைகளை அகற்றுவது பற்றி கவலைப்படும்போது, Microsoft Excel பல்வேறு விருப்பங்களின் வரிசையை வழங்குகிறது. ஆனால் கொடுக்கப்பட்ட கலத்தில் ஒரே மாதிரியான உரையை அகற்றும் போது, எக்செல் வழங்குகிறது... எதுவும் இல்லை. கருவிகள் இல்லை, அம்சங்கள் இல்லை, சூத்திரங்கள் இல்லை, எதுவும் இல்லை. அது நம் இலக்கை அடைவதைத் தடுக்குமா? எந்த சந்தர்ப்பத்திலும். எக்செல் நமக்குத் தேவையான செயல்பாடு இல்லை என்றால், சொந்தமாக எழுதுவோம் :)
எக்செல் செல்லில் மீண்டும் மீண்டும் வரும் சொற்களை எப்படி அகற்றுவது
சிக்கல் : நீங்கள் ஒரு கலத்தில் அதே வார்த்தைகள் அல்லது உரைச் சரங்களை வைத்திருக்கிறீர்கள், மேலும் இரண்டாவது மற்றும் அனைத்து அடுத்தடுத்த மறுநிகழ்வுகளையும் அகற்ற விரும்புகிறீர்கள்.
தீர்வு : தனிப்பயன் பயனர் வரையறுக்கப்பட்ட செயல்பாடு அல்லது VBA மேக்ரோ.
ஒரு கலத்தில் உள்ள நகல்களை அகற்ற பயனர் வரையறுக்கப்பட்ட செயல்பாடு
கலத்தில் உள்ள நகல் உரையை அகற்ற, பின்வரும் பயனர் வரையறுக்கப்பட்ட செயல்பாட்டை (UDF) நீங்கள் பயன்படுத்தலாம் , பெயரிடப்பட்ட RemoveDupeWords :
செயல்பாடு RemoveDupeWords(Text As String , Optional delimiter As String = " " ) சரம் மங்கலான அகராதி பொருளாக Dim x, பகுதி அமை அகராதி = CreateObject ( "Scripting.Dictionary" ) அகராதி .ஒப்பிடுதல்முறை = vbTextஒவ்வொரு x இன் பிளவு(உரை, பிரிப்பான்) பகுதி = டிரிம்(x) என்றால் பகுதி "" மற்றும் அகராதி இல்லை.(பகுதி) இருந்தால் அகராதி. பகுதியைச் சேர், அடுத்ததாக இருந்தால் எதுவும் முடிவடையாது அகராதி என்றால் எண்ணு > 0 பிறகு RemoveDupeWords = Join(dictionary.keys,delimiter) வேறு RemoveDupeWords = "" End If Set dictionary = Nothing End Functionஉங்கள் பணிப்புத்தகத்தில் செயல்பாட்டின் குறியீட்டை எவ்வாறு செருகுவது
மேலே உள்ள குறியீட்டை உங்கள் Excel இல் சேர்க்க, நீங்கள் செய்ய வேண்டியது இதுதான்:
- விஷுவல் பேசிக் எடிட்டரைத் திறக்க Alt + F11 ஐ அழுத்தவும்.
- இடது பலகத்தில் ThisWorkbook வலது கிளிக் செய்து Insert என்பதைத் தேர்ந்தெடுக்கவும். > தொகுதி .
- மேலே உள்ள குறியீட்டை குறியீடு சாளரத்தில் ஒட்டவும்.
மேலும் தகவலுக்கு, VBA ஐ எவ்வாறு செருகுவது என்பதைப் பார்க்கவும் எக்செல் இல் குறியீடு.
RemoveDupeWords செயல்பாடு தொடரியல்
ஒரு கலத்தில் உள்ள நகல் உரையை அகற்றுவதற்காக நாங்கள் புதிதாக உருவாக்கிய செயல்பாட்டில் பின்வரும் தொடரியல் உள்ளது:
RemoveDupeWords(text, [delimiter])எங்கே :
- உரை (அவசியம்) - மீண்டும் மீண்டும் வரும் உரையை நீக்க விரும்பும் சரம் அல்லது கலம்.
- டிலிமிட்டர் (விரும்பினால்) - திரும்பத் திரும்ப வரும் உரை பிரிக்கப்பட்ட வரம்பு. தவிர்க்கப்பட்டால், பிரிப்பிற்கு ஒரு இடைவெளி பயன்படுத்தப்படும்.
செயல்பாடு கேஸ்-சென்சிட்டிவ் அல்ல , அதாவது சிற்றெழுத்து மற்றும் பெரிய எழுத்துகள் ஒரே எழுத்துகளாகக் கருதப்படுகின்றன.
RemoveDupeWords செயல்பாட்டை எவ்வாறு பயன்படுத்துவது
உங்கள் பணிப்புத்தகத்தில் செயல்பாட்டின் குறியீடு சேர்க்கப்பட்டவுடன், நீங்கள் Excel இன் உள்ளமைக்கப்பட்ட செயல்பாடுகளைப் பயன்படுத்துவதைப் போலவே அதை உங்கள் சூத்திரங்களிலும் பயன்படுத்தலாம்.
செயல்பாட்டின் பெயரை சம அடையாளத்திற்குப் பிறகு தட்டச்சு செய்யத் தொடங்குங்கள், அது நுண்ணறிவு சூத்திரத்தில் தோன்றும். செயல்பாட்டில் இருமுறை கிளிக் செய்யவும், உங்களுக்கு அது கிடைக்கும்ஒரு கலத்தில் செருகப்பட்டது. வாதங்களை வரையறுத்து, மூடும் அடைப்புக்குறியைத் தட்டச்சு செய்து, Enter ஐ அழுத்தவும், உங்கள் சூத்திரம் நிறைவுற்றது.
உதாரணமாக, A2 இலிருந்து கமா மற்றும் இடைவெளியால் பிரிக்கப்பட்ட நகல் வார்த்தைகளை நீக்க, கீழே உள்ள சூத்திரத்தை B2 இல் உள்ளிடவும், பின்னர் தேவையான அளவு செல்கள் வழியாக கீழே இழுக்கவும்:
=RemoveDupeWords(A2, ", ")
இதன் விளைவாக,
ஆல் பிரிக்கப்பட்ட தனித்துவமான சொற்கள் அல்லது துணைச்சரங்களின் பட்டியலைப் பெறுவீர்கள். 17>காற்புள்ளி மற்றும் இடம்:
நீங்கள் காற்புள்ளியால் பிரிக்கப்பட்ட பட்டியலைப் பெற விரும்பினால், டிலிமிட்டருக்கு காற்புள்ளியை பயன்படுத்தவும் :
=RemoveDupeWords(A2, ",")
உங்கள் மூலத் தரவு ஸ்பேஸ் மூலம் பிரிக்கப்பட்டால், இரண்டாவது வாதம் " " ஆக இருக்க வேண்டும் அல்லது தவிர்க்கப்பட வேண்டும்:
=RemoveDupeWords(A2)
=RemoveDupeWords(A2)
எந்த எக்செல் செயல்பாட்டைப் போலவே, மூலத் தரவு மாறும்போது எங்கள் UDF தானாகவே மீண்டும் கணக்கிடுகிறது, எனவே உங்கள் முடிவுகள் எப்போதும் புதுப்பித்த நிலையில் இருக்கும்.
VBA மேக்ரோ பல கலங்களில் இருந்து ஒரே நேரத்தில் நகல் உரையை நீக்கலாம்
நீங்கள் ஒரே நேரத்தில் பல கலங்களில் இருந்து மீண்டும் மீண்டும் வரும் உரையை அகற்ற விரும்பினால், RemoveDupeWords செயல்பாட்டை fro ஐ அழைக்கலாம் ஒரு மேக்ரோவிற்குள் மீ. இந்த வழக்கில், டிலிமிட்டர் ஹார்ட்கோட் செய்யப்படுகிறது, மேலும் ஒவ்வொரு முறையும் டிலிமிட்டர் மாறும்போது மேக்ரோவின் குறியீட்டைப் புதுப்பிக்க வேண்டும். மாற்றாக, நீங்கள் மிகவும் பொதுவான டிலிமிட்டர்களுக்கு சில குறியீடு மாறுபாடுகளை எழுதலாம், அதாவது, ஒரு இடம், காற்புள்ளி, அல்லது கமா மற்றும் இடம், மேலும் உங்கள் மேக்ரோக்களுக்கு அர்த்தமுள்ள பெயர்களை வழங்கலாம், எ.கா. RemoveDupesDelimSpace .
மேக்ரோவின் குறியீடு பின்வருமாறு:
பொது துணை RemoveDupeWords2() பயன்பாட்டில் உள்ள ஒவ்வொரு கலத்திற்கும் வரம்பாக மங்கலான கலம்.Selection cell.Value = RemoveDupeWords(cell.Value, ", " ) அடுத்த முடிவு துணைமேலே உள்ள குறியீட்டில், டிலிமிட்டர் ஒரு காற்புள்ளி மற்றும் விண்வெளி . வேறொரு டிலிமிட்டரைப் பயன்படுத்த, "," ஐ இந்த குறியீட்டு வரியில் மற்றொரு எழுத்து(கள்) மூலம் மாற்றவும்:
cell.Value = RemoveDupeWords(cell.Value, ", ")
குறிப்பு. மேக்ரோ வேலை செய்ய, அதன் குறியீடு மற்றும் RemoveDupeWords செயல்பாட்டின் குறியீடு ஒரே தொகுதியில் வைக்கப்பட வேண்டும்.
மேக்ரோவை எவ்வாறு பயன்படுத்துவது
உங்கள் சொந்தப் பணிப்புத்தகத்தில் மேக்ரோவின் குறியீட்டைச் செருகவும் அல்லது குறியீட்டுடன் எங்கள் மாதிரிப் பணிப்புத்தகத்தைத் திறக்கவும், பின்னர் மேக்ரோவை இயக்க பின்வரும் படிகளைச் செய்யவும்.
- தொடர்ந்து வரும் உரையை நீக்க விரும்பும் கலங்களின் வரம்பைத் தேர்ந்தெடுக்கவும்.
- Macro உரையாடல் பெட்டியைத் திறக்க Alt + F8 ஐ அழுத்தவும்.
- மேக்ரோக்களின் பட்டியலில், RemoveDupeWords2 என்பதைத் தேர்ந்தெடுக்கவும்.
- Run என்பதைக் கிளிக் செய்யவும்.
மேலும் விவரங்களுக்கு, எப்படி என்பதைப் பார்க்கவும் Excel இல் மேக்ரோவை இயக்கவும்.
குறிப்பு. மேக்ரோவின் செயலை தவிர்க்க முடியாது , மேக்ரோவைப் பயன்படுத்துவதற்கு முன்பே உங்கள் பணிப்புத்தகத்தைச் சேமிக்குமாறு கடுமையாகப் பரிந்துரைக்கிறோம். இந்த வழியில், ஏதேனும் தவறு நடந்தால், பணிப்புத்தகத்தை மூடிவிட்டு மீண்டும் திறக்கலாம், மேலும் நீங்கள் இருந்த இடத்திற்குத் திரும்புவீர்கள். அல்லது மேக்ரோவால் பாதிக்கப்படக்கூடிய பணித்தாள்(களின்) நகலை நீங்கள் உருவாக்கலாம்.
கலத்தில் உள்ள நகல் எழுத்துகளை எவ்வாறு அகற்றுவது
சிக்கல் : ஒரு கலத்தில் ஒரே எழுத்தின் பல நிகழ்வுகள் உள்ளன, ஒவ்வொன்றும்கலத்தில் கொடுக்கப்பட்ட எழுத்தின் ஒரு நிகழ்வு மட்டுமே இருக்க வேண்டும்.
தீர்வு : தனிப்பயன் பயனர் வரையறுக்கப்பட்ட செயல்பாடு அல்லது VBA மேக்ரோ.
தொடர்ந்து வரும் எழுத்துக்களை நீக்குவதற்கு பயனர் வரையறுக்கப்பட்ட செயல்பாடு
முதல் நிகழ்வுகளை மட்டும் வைத்து கலத்தில் உள்ள நகல் எழுத்துகளை அகற்ற, RemoveDupeChars :
எனப் பெயரிடப்பட்ட பின்வரும் பயனர் வரையறுக்கப்பட்ட செயல்பாட்டைப் பயன்படுத்தலாம். செயல்பாடு RemoveDupeChars(text As String ) என சரம் மங்கலான அகராதி என பொருள் மங்கலான char என சரம் மங்கலான முடிவு சரம் அமை அகராதி = CreateObject ( "Scripting.Dictionary" ) for i = 1 To Len(text) char = Mid(text, i, 1 ) அகராதி இல்லை என்றால்.இருக்கிறது(கரி) பின்னர் அகராதி.எரி சேர்க்க, எதுவும் முடிவு = முடிவு & char End என்றால் Next RemoveDupeChars = முடிவு செட் அகராதி = Nothing End Functionஉங்கள் பணிப்புத்தகத்தில் செயல்பாட்டின் குறியீட்டைச் செருக, முந்தைய எடுத்துக்காட்டில் உள்ள படிகள் சரியாக இருக்கும்.
RemoveDupeChars செயல்பாடு தொடரியல்
இந்தத் தனிப்பயன் செயல்பாட்டின் தொடரியல் அது எவ்வளவு எளிமையாக இருக்கலாம் - ஒரே ஒரு வாதம் தேவை:
எங்கே text என்பது நீங்கள் விரும்பும் சரம் அல்லது கலமாகும் நகல் எழுத்துகளை அகற்ற.
செயல்பாடு கேஸ்-சென்சிட்டிவ் மற்றும் சிறிய மற்றும் பெரிய எழுத்துக்களை வெவ்வேறு எழுத்துகளாகக் கருதுகிறது.
RemoveDupeChars செயல்பாட்டை எவ்வாறு பயன்படுத்துவது
RemoveDupeWords ஐப் பற்றி நாங்கள் கூறிய அனைத்தும் RemoveDupeChars க்கு உண்மை. எனவே, செல்லாமல்கோட்பாட்டில் அதிகம், நேரடியாக ஒரு உதாரணத்திற்கு வருவோம்.
A2 இல் தொடங்கும் நெடுவரிசை A இலிருந்து நகல் எழுத்துக்களை நீக்க, B2 இல் இந்த சூத்திரத்தை உள்ளிட்டு அதை நகலெடுக்கவும்:
=RemoveDupeChars(A2)
குறிப்பு. ஸ்பேஸ், கமா அல்லது ஹைபன் போன்ற சில டிலிமிட்டர் மூலம் உங்கள் எழுத்துக்கள் ஒன்றோடொன்று பிரிக்கப்பட்டிருந்தால், முந்தைய எடுத்துக்காட்டில் காட்டப்பட்டுள்ளபடி RemoveDupeWords செயல்பாட்டைப் பயன்படுத்தவும்.
VBA மேக்ரோ ஒரு கலத்திலிருந்து அதே எழுத்துக்களை அகற்றுவதற்கு
RemoveDupeWords போன்று, RemoveDupeChars செயல்பாடு மேக்ரோவில் இருந்தும் அழைக்கப்படலாம்:
பொது சப் RemoveDupeChars2() பயன்பாட்டில் உள்ள ஒவ்வொரு கலத்திற்கும் வரம்பாக மங்கலான செல். தேர்வு செல் குறியீடு.குறிப்பு. மேக்ரோ வேலை செய்ய, அதன் குறியீடு மற்றும் RemoveDupeChars UDF இன் குறியீடு VBA எடிட்டரில் அதே தொகுதியில் வைக்கப்பட வேண்டும்.
மேக்ரோவை எவ்வாறு பயன்படுத்துவது
உங்கள் பணிப்புத்தகத்தில் ஏற்கனவே மேக்ரோவின் குறியீட்டைச் செருகியுள்ளீர்கள் அல்லது குறியீட்டைக் கொண்ட எங்கள் மாதிரிப் பணிப்புத்தகத்தைத் திறந்துவிட்டீர்கள் என வைத்துக் கொண்டால், மேக்ரோவை இந்த வழியில் துவக்கவும்.
- தொடர்ந்து வரும் எழுத்துகளை நீக்க விரும்பும் கலங்களின் வரம்பைத் தேர்ந்தெடுக்கவும்.
- Macro உரையாடலைத் திறக்க Alt + F8 ஐ அழுத்தவும்பெட்டி.
- மேக்ரோக்களின் பட்டியலில், RemoveDupeChars2 என்பதைத் தேர்ந்தெடுக்கவும்.
- Run என்பதைக் கிளிக் செய்யவும்.
அல்டிமேட் சூட் மூலம் நகல் சப்ஸ்ட்ரிங்ஸை அகற்று
இந்த டுடோரியலின் தொடக்கத்தில், மைக்ரோசாஃப்ட் எக்செல் ஒரு கலத்தில் உள்ள நகல்களை அகற்றுவதற்கான உள்ளமைக்கப்பட்ட அம்சம் இல்லை என்று குறிப்பிடப்பட்டுள்ளது. ஆனால் எங்கள் அல்டிமேட் சூட் செய்கிறது!
நீங்கள் அதை Duplicate Remover கீழ்தோன்றும் மெனுவில் Ablebits Data தாவலில் Dedupe<2 இல் காணலாம்> குழு. நகல் சப்ஸ்ட்ரிங்ஸை அகற்று விருப்பம் உங்கள் எக்செல் இல் தோன்றவில்லை என்றால், அல்டிமேட் சூட்டின் சமீபத்திய பதிப்பை நிறுவியுள்ளீர்கள் என்பதை உறுதிப்படுத்திக் கொள்ளுங்கள் (இலவச சோதனையை இங்கே பதிவிறக்கம் செய்யலாம்).
3>
5 வினாடிகளில் பல கலங்களில் இருந்து மீண்டும் மீண்டும் வரும் வார்த்தைகள் அல்லது உரையை அகற்ற (ஒரு படிக்கு ஒரு வினாடி :), நீங்கள் செய்ய வேண்டியது இதுதான்:
- உங்கள் மூலத் தரவைத் தேர்ந்தெடுத்து நகல் சப்ஸ்ட்ரிங்ஸ் கருவியை அகற்றவும்.
- டிலிமிட்டரைக் குறிப்பிடவும் .
- தொடர்ச்சியான டிலிமிட்டர்களை ஒன்றாக (இயல்புநிலை) கருத வேண்டுமா என்பதை வரையறுக்கவும்.
- கேஸ்-சென்சிட்டிவ் அல்லது கேஸ்-சென்சிட்டிவ் தேடலைச் செய்ய வேண்டுமா என்பதைத் தேர்வுசெய்யவும்.
- நீக்கு என்பதைக் கிளிக் செய்யவும்.
முடிந்தது! VBA அல்லது ஃபார்முலாக்களுடன் பிட்லிங் இல்லை, விரைவான மற்றும் துல்லியமான முடிவுகள்.
இந்த அற்புதமான ஆட்-இன் பற்றி மேலும் அறிய, அதன் முகப்புப் பக்கத்தைப் பார்வையிடவும். அல்லது இன்னும் சிறப்பாக, கீழே உள்ள மதிப்பீட்டு பதிப்பைப் பதிவிறக்கி முயற்சிக்கவும்!
இவ்வாறுதான் கலத்தில் உள்ள நகல் உரையை அகற்றுவது.படித்ததற்கு நன்றி, அடுத்த வாரம் எங்கள் வலைப்பதிவில் உங்களைப் பார்ப்பேன் என்று நம்புகிறேன்!
கிடைக்கும் பதிவிறக்கங்கள்
செல்லில் உள்ள நகல்களை அகற்றுவதற்கான எடுத்துக்காட்டுகள் (.xlsm கோப்பு)
Ultimate Suite 14 -நாள் முழு செயல்பாட்டு பதிப்பு (.exe கோப்பு)