डुप्लिकेटहरूको दोहोरो रोशनी

मानक माइक्रोसफ्ट एक्सेल उपकरणहरू मध्ये, रङसँग डुप्लिकेटहरू हाइलाइट गर्न धेरै फरक तरिकाहरू छन्। सशर्त ढाँचाको साथ सबैभन्दा सजिलो र छिटो तरिका हो। यो गर्नका लागि, केवल कक्षहरूको दायरा चयन गर्नुहोस् र ट्याबमा चयन गर्नुहोस् गृह — सशर्त ढाँचा — कक्ष चयन नियम — नक्कल मानहरू (गृह - सशर्त ढाँचा - हाइलाइट कक्ष नियमहरू - नक्कल मानहरू):

यद्यपि, यस अवस्थामा, सबै कक्षहरूको फिल रङ एउटै हुनेछ, अर्थात् यसले सङ्केत गर्छ कि तत्वले दायरा भित्र कतै नक्कल गरेको छ, तर तिनीहरूलाई फेला पार्न मद्दत गर्न केही गर्दैन। तपाईले एउटा सानो म्याक्रोको साथ स्थितिलाई ठीक गर्न सक्नुहुन्छ जसले प्रत्येक जोडी (वा बढी) दोहोर्याइएको डुप्लिकेटको आफ्नै रंगमा भर्नेछ:

यति धेरै स्पष्ट, हैन? निस्सन्देह, दोहोर्याउने कक्षहरूको ठूलो संख्याको साथ, छायाहरू बीच भेद गर्न गाह्रो हुनेछ, तर डुप्लिकेटहरूको अपेक्षाकृत सानो संख्याको साथ, यो विधिले पूर्ण रूपमा काम गर्नेछ।

यो म्याक्रो प्रयोग गर्न, किबोर्ड सर्टकट थिच्नुहोस् Alt + F11 वा बटन दृश्य मूल ट्याब विकासकर्ता, मेनु मार्फत नयाँ खाली मोड्युल घुसाउनुहोस् घुसाउनुहोस् - मोड्युल र त्यहाँ यो म्याक्रोको कोड प्रतिलिपि गर्नुहोस्:

Sub DuplicatesColoring() Dim Dupes()' डुप्लिकेटहरू भण्डारण गर्न एर्रे घोषणा गर्नुहोस् ReDim Dupes(1 to Selection.Cells.Count, 1 to 2) Selection.Interior.ColorIndex = -4142 'fill हटाउनुहोस् यदि i = 3 प्रत्येक कक्षको लागि चयन यदि WorksheetFunction.CountIf(चयन, cell.Value) > 1 त्यसपछि k = LBound(Dupes) UBound(Dupes) को लागि 'यदि सेल पहिले नै डुप्लिकेटको एरेमा छ भने, यदि Dupes(k, 1) = cell मा भर्नुहोस् त्यसपछि सेल। भित्री। ColorIndex = Dupes(k, 2) Next k 'यदि सेलमा नक्कल छ, तर अझै array मा छैन भने, array मा थप्नुहोस् र भर्नुहोस् यदि cell.Interior.ColorIndex = -4142 त्यसपछि cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End यदि End यदि अर्को सेल End Sub  

अब तपाइँ पानामा डेटाको साथ कुनै पनि दायरा चयन गर्न सक्नुहुन्छ र किबोर्ड सर्टकट प्रयोग गरेर हाम्रो म्याक्रो चलाउन सक्नुहुन्छ Alt + F8 वा बटन मार्फत म्याक्रो (म्याक्रो) ट्याब विकासकर्ता (विकासकर्ता).

• रङको साथ डुप्लिकेट हाइलाइट गर्नुहोस्
• म्याक्रोहरू के हुन्, भिजुअल बेसिकमा म्याक्रो कोड कहाँ घुसाउने, कसरी चलाउने
• कक्षहरूको दिइएको दायरामा अद्वितीय मानहरूको संख्या कसरी गणना गर्ने