VBA वापरून सेलमधील डुप्लिकेट शब्द किंवा मजकूर स्ट्रिंग कसे हायलाइट करायचे हे ट्युटोरियल दाखवते.

एक्सेल कंडिशनल फॉरमॅटिंगमुळे तुम्ही विचार करू शकता अशा प्रत्येक प्रकारे डुप्लिकेट हायलाइट करणे शक्य करते: 1ल्या घटनांसह किंवा त्याशिवाय, एका स्तंभात किंवा एकाधिक स्तंभांमध्ये, सलग डुप्लिकेट सेल आणि की स्तंभातील समान मूल्यांवर आधारित संपूर्ण पंक्ती. पण, नेहमीप्रमाणे, एक "पण" आहे. सशर्त स्वरूपन नियम सेल स्तरावर कार्य करतात जेव्हा आपण संपूर्ण सेलऐवजी डुप्लिकेट मजकूर हायलाइट करू इच्छित असाल. हे केवळ मॅक्रोसह केले जाऊ शकते. तुम्हाला VBA चा अनुभव नसला तरीही, कृपया हे पृष्ठ बंद करण्याची घाई करू नका. येथे, तुम्हाला वापरण्यास-तयार कोड उदाहरणे आणि ते तुमच्या वर्कशीटमध्ये कसे वापरायचे याबद्दल तपशीलवार सूचना मिळतील.

मजकूर केसकडे दुर्लक्ष करून सेलमधील डुप्लिकेट शब्द हायलाइट करा

हे उदाहरण खालील चित्रात दाखवल्याप्रमाणे लाल फॉन्ट रंगात सेलमधील डुप्लिकेट शब्द किंवा मजकूर स्ट्रिंग कसे शेड करायचे ते दाखवते. कृपया लक्षात घ्या की लोअरकेस आणि अपरकेस अक्षरे समान वर्ण मानली जातात. उदाहरणार्थ, ऑरेंज , ऑरेंज आणि ऑरेंज हे समान शब्द मानले जातात.

द मॅक्रोचा कोड खालीलप्रमाणे आहे:

Public Sub HighlightDupesCaseInsensitive() Dim Cell as Range Dim Delimiter as String Delimiter = InputBox( "सेलमधील व्हॅल्यू विभक्त करणारे डिलिमिटर एंटर करा" , "डिलिमिटर" , ", " ) प्रत्येक सेलसाठीApplication.Selection Call HighlightDupeWordsInCell(Cell, Delimiter, False) Next End Sub Sub HighlightDupeWordsInCell(Cell as Range, Optional Delimiter as String = " " , बूलियन = True प्रमाणे पर्यायी CaseSensitive = True ) मंद मजकूर) स्ट्रिंग स्ट्रिंग म्हणून Dim टेक्स्ट स्ट्रिंग मंद wordIndex, matchCount, positionInText पूर्णांक म्हणून केससंवेदी असेल तर शब्द = Split(Cell.Value, Delimiter) बाकी शब्द = Split(LCase(Cell.Value), Delimiter) End If wordIndex = LBound (शब्द) ते UBound (शब्द) - 1 शब्द = शब्द(wordIndex) matchCount = 0 for nextWordIndex = wordIndex + 1 ते UBound (शब्द) जर शब्द = शब्द(nextWordIndex) तर matchCount = matchCount + 1 End पुढील असल्यास nextWordIndex जर matchCount > 0 नंतर मजकूर = "" निर्देशांक = LBound (शब्द) ते UBound (शब्द) मजकूर = मजकूर & शब्द(इंडेक्स) जर (शब्द(इंडेक्स) = शब्द) तर सेल. कॅरेक्टर्स(लेन(टेक्स्ट) - लेन(वर्ड) + 1, लेन(वर्ड)).Font.Color = vbRed End If text = text & डिलिमिटर नेक्स्ट एंड इफ नेक्स्ट वर्डइंडेक्स एंड सब

सेल केस-सेन्सिटिव्हमधील डुप्लिकेट मजकूर हायलाइट करा

बहुतांश परिस्थितींमध्ये, आम्ही एक्सेलमधील मजकूर नोंदीसह काम करताना अक्षर केसकडे दुर्लक्ष करतो. काही विशिष्ट परिस्थितीत, तथापि, मजकूर केस फरक पडतो. उदाहरणार्थ, जर तुम्ही आयडी, पासवर्ड किंवा अशा प्रकारच्या इतर रेकॉर्डशी व्यवहार करत असाल, तर 1-AA , 1-aa आणि 1-Aa<सारख्या स्ट्रिंग 2> डुप्लिकेट नाहीत आणि हायलाइट केले जाऊ नयेत:

या प्रकरणात,कोडची खालील आवृत्ती वापरा:

Public Sub HighlightDupesCaseSensitive() Dim Cell as Range Dim Delimiter as String Delimiter = InputBox( "सेलमधील मूल्ये विभक्त करणारे परिसीमक एंटर करा" , "delimiter" , ", " ) प्रत्येकासाठी ऍप्लिकेशनमधील सेल.निवड कॉल हायलाइटDupeWordsInCell(सेल, डिलिमिटर, ट्रू) नेक्स्ट एंड सब सब हायलाइटDupeWordsInCell(सेल म्हणून श्रेणी, पर्यायी डिलिमिटर म्हणून स्ट्रिंग = "" , बूलियन = ट्रू म्हणून पर्यायी केससंवेदी) मंद मजकूर (स्ट्रिंग म्हणून Dim शब्द) शब्द स्ट्रिंग म्हणून मंद wordIndex, matchCount, positionInText पूर्णांक म्हणून केससंवेदी असल्यास शब्द = Split(Cell.Value, Delimiter) इतर शब्द = Split(LCase(Cell.Value), Delimiter) End If wordIndex = LBound (शब्द) ते UBound ( शब्द) - 1 शब्द = शब्द(wordIndex) matchCount = 0 for nextWordIndex = wordIndex + 1 ते UBound (शब्द) जर शब्द = शब्द(nextWordIndex) नंतर matchCount = matchCount + 1 End पुढील असल्यास nextWordIndex जर matchCount > 0 नंतर मजकूर = "" निर्देशांक = LBound (शब्द) ते UBound (शब्द) मजकूर = मजकूर & शब्द(इंडेक्स) जर (शब्द(इंडेक्स) = शब्द) तर सेल. कॅरेक्टर्स(लेन(टेक्स्ट) - लेन(वर्ड) + 1, लेन(वर्ड)).Font.Color = vbRed End If text = text & डिलिमिटर नेक्स्ट एंड इफ नेक्स्ट वर्डइंडेक्स एंड सब

एक्सेलमध्ये डुप्लिकेट शब्द हायलाइट करण्यासाठी मॅक्रो कसे वापरावे

तुम्ही VBA वापरण्यात नवशिक्या असल्यास, खालील चरण-दर-चरण सूचना तुम्हाला आरामात घेऊन जातील. . अनुभवी वापरकर्ते करू शकतातफक्त डाउनलोड लिंक निवडा आणि बाकी वगळा :)

तुमच्या वर्कबुकमध्ये कोड जोडा

तुम्ही तुमच्या एक्सेल वर्कबुकमध्ये मॅक्रोचा कोड टाकून सुरुवात करा. हे कसे आहे:

1. तुम्हाला डुप्स हायलाइट करायचे आहे ते कार्यपुस्तिका उघडा.
2. Visual Basic Editor उघडण्यासाठी Alt + F11 दाबा.
3. डाव्या उपखंडावर, हे वर्कबुक उजवे-क्लिक करा आणि संदर्भ मेनूमधून घाला > मॉड्यूल निवडा.
4. कोड विंडोमध्ये कोड पेस्ट करा.
5. भविष्यातील वापरासाठी मॅक्रो ठेवण्यासाठी, तुमची कार्यपुस्तिका मॅक्रो-सक्षम .xlsm फाइल म्हणून जतन करण्याचे सुनिश्चित करा.

वैकल्पिकपणे, तुम्ही आमचे नमुना वर्कबुक डाउनलोड करू शकता आणि तेथून मॅक्रो चालवू शकता. नमुना वर्कबुकमध्ये खालील मॅक्रो आहेत:

• HighlightDupesCaseInsensitive - शेड्स डुप्लिकेट सेलमध्ये अक्षर केसकडे दुर्लक्ष करतात.
• HighlightDupesCaseSensitive - हायलाइट लेटर केस लक्षात घेऊन सेलमध्ये ड्युप्स.

अधिक माहितीसाठी, कृपया Excel मध्ये VBA कोड कसा घालायचा ते पहा.

मॅक्रो चालवा

कोडसह तुमच्या स्वतःच्या वर्कबुकमध्ये जोडली किंवा आमची नमुना फाइल डाउनलोड करून उघडली, मॅक्रो या प्रकारे चालवा:

1. तुमच्या वर्कशीटमध्ये, तुम्ही डुप्लिकेट मजकूर हायलाइट करू इच्छित असलेल्या सेल निवडा. ही एक श्रेणी किंवा समीप नसलेल्या अनेक श्रेणी असू शकतात.
2. Alt + F8 दाबा.
3. रुचीचा मॅक्रो निवडा आणि चालवा वर क्लिक करा.

   

4. मॅक्रो तुम्हाला डिलिमिटर निर्दिष्ट करण्यास सांगेलजे निवडलेल्या सेलमधील मूल्यांना वेगळे करते. प्रीसेट डिलिमिटर (आमच्या बाबतीत स्वल्पविराम आणि स्पेस) इनपुट बॉक्समध्ये स्वयंचलितपणे दिसून येईल. तुमच्या गरजेनुसार, तुम्ही डीफॉल्ट डिलिमिटर सोडू शकता किंवा वेगळा टाइप करू शकता आणि नंतर ओके क्लिक करा.

   

थोड्या क्षणानंतर, निवडलेल्या सर्व डुप्लिकेट स्ट्रिंग सेल लाल रंगात शेड केले जातील (किंवा तुमच्या कोडमध्ये कोणताही फॉन्ट रंग सेट केला असेल).

टीप. सेलमधील त्वरीत डुप्लिकेट काढण्यासाठी , तुम्ही आमच्या अल्टिमेट सूटमध्ये समाविष्ट असलेल्या अनेक वेळा बचत करण्याच्या साधनांपैकी एक, रिमूव्ह डुप्लिकेट सबस्ट्रिंग वापरू शकता.

तुमच्या गरजांसाठी कोड कसा समायोजित करायचा

या वापर नोट्स आणि VBA च्या अगदी प्राथमिक ज्ञानासह (किंवा फक्त खालील सूचनांचे बारकाईने पालन केल्याने), तुम्ही तुमच्या गरजेनुसार कोड सहजपणे बदलू शकता.

त्याच मॉड्यूलवर ठेवा

तुम्ही लक्षात घेतल्याप्रमाणे, दोन्ही मॅक्रो ( HighlightDupesCaseSensitive आणि HighlightDupesCaseInsensitive ) HighlightDupeWordsInCell फंक्शनला कॉल करा. वरील दोन मॅक्रोमधला फरक फक्त 3 रा पॅरामीटर (केससेन्सिटिव्ह) सांगितलेल्या फंक्शनमध्ये आहे.

केस-सेन्सिटिव्ह शोधासाठी, ते TRUE वर सेट केले आहे:

Call HighlightDupeWordsInCell(Cell, Delimiter, True)

केस-संवेदनशील शोधासाठी, ते FALSE वर सेट केले आहे:

Call HighlightDupeWordsInCell(Cell, Delimiter, False)

मॅक्रोने कार्य करण्यासाठी, HighlightDupeWordsInCell फंक्शनचा कोड वर ठेवला पाहिजे सारखेच मॉड्यूलmacros.

डिलिमिटर

रन केल्यावर, मॅक्रो तुम्हाला डिलिमिटर निर्दिष्ट करण्यास सांगेल जे निवडलेल्या सेलमधील शब्द/स्ट्रिंग वेगळे करतात. डीफॉल्ट डिलिमिटर हा स्वल्पविराम आणि स्पेस (", ") आहे आणि तो इनपुटबॉक्समध्ये प्रीसेट आहे:

Delimiter = InputBox("Specify the delimiter that separates values in a cell", "Delimiter", ", ")

तुमच्या कोडमध्ये, तुम्ही इतर कोणतेही वर्ण वापरण्यास मोकळे आहात पूर्वनिर्धारित परिसीमक म्हणून.

रंग

डिफॉल्टनुसार, हायलाइटडुपवर्ड्सइनसेल फंक्शन शेड्स लाल फॉन्ट रंगात डुप्लिकेट करतात. या ओळीत रंग परिभाषित केला आहे:

Cell.Characters(positionInText, Len(word)).Font.Color = vbRed

येथे, vbRed एक प्रकारचा VBA रंग स्थिर आहे. डुप्स वेगळ्या रंगात प्रदर्शित करण्यासाठी, तुम्ही vbRed ला दुसऱ्या स्थिरांकाने बदलू शकता जसे की vbGreen, vbYellow, vbBlue, इ. T समर्थित रंग स्थिरांकांची यादी येथे आढळू शकते.

ते आहे एक्सेल सेलमध्ये डुप्लिकेट शब्द कसे हायलाइट करायचे. वाचल्याबद्दल मी तुमचा आभारी आहे आणि पुढील आठवड्यात तुम्हाला आमच्या ब्लॉगवर भेटण्याची आशा आहे!

उपलब्ध डाउनलोड

कोड उदाहरणे सेलमधील डुप्लिकेट हायलाइट करण्यासाठी (.xlsm फाइल)

अंतिम सूट 14-दिवस पूर्ण-कार्यक्षम आवृत्ती (.exe फाइल)