मुख्य सामग्री पर जाएं

एक्सेल में किसी कॉलम से अद्वितीय मान कैसे हटाएं?

लेखक: रवि अंतिम संशोधित: 2014-06-26

आमतौर पर, हममें से अधिकांश लोग किसी कॉलम से डुप्लिकेट मान हटाना चाहते हैं, लेकिन कभी-कभी, आप उन अद्वितीय मानों को हटाना चाह सकते हैं जो कॉलम में केवल एक बार दिखाई देते हैं। यह ट्यूटोरियल आपके लिए एक्सेल में केवल एक कॉलम से अद्वितीय मान हटाने की युक्तियों के बारे में बात कर रहा है।

Excel में VBA के साथ unqiue मान हटाएँ

Excel के लिए Kutools के साथ unqiue मान हटाएँ


तीर नीला दायां बुलबुला Excel में VBA के साथ unqiue मान हटाएँ

वीबीए का उपयोग करके एक कॉलम से सभी अद्वितीय मानों को तुरंत हटाया जा सकता है।

1। दबाएँ ऑल्ट + F11 प्रदर्शित करने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल विंडो दिखाने के लिए, फिर निम्नलिखित VBA कोड को मॉड्यूल विंडो में कॉपी करें।

वीबीए: किसी कॉलम से अद्वितीय मान हटाएं।

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub
3। क्लिक करें रन VBA कोड चलाने के लिए बटन, और a KutoolsforExcel काम करने के लिए एक श्रेणी का चयन करने के लिए संवाद पॉप आउट होता है। स्क्रीनशॉट देखें:

 

दस्तावेज़-हटाएं-अद्वितीय-1

4। क्लिक करें OK, और सभी अद्वितीय मान हटा दिए जाते हैं।


तीर नीला दायां बुलबुला Excel के लिए Kutools के साथ unqiue मान हटाएँ

यदि आप वीबीए से परिचित नहीं हैं, तो आप एक्सेल में अद्वितीय मानों को हटाने के लिए एक्सेल के सेलेक्ट डुप्लिकेट और यूनिक सेल फीचर के लिए कुटूल का उपयोग करने पर विचार कर सकते हैं।

एक्सेल के लिए कुटूल इसमें 300 से अधिक उपयोगी एक्सेल टूल शामिल हैं। 30 दिनों में बिना किसी सीमा के प्रयास करने के लिए निःशुल्क। अब समझे

1. उस कॉलम का चयन करें जिससे आप अद्वितीय मान हटाना चाहते हैं और क्लिक करें कुटूल > उपकरण चुनें > डुप्लिकेट और अद्वितीय सेल का चयन करें. स्क्रीनशॉट देखें:

दस्तावेज़-हटाएं-अद्वितीय-2

2. पॉप-आउट संवाद में, जाँचें केवल अद्वितीय मूल्य और क्लिक करें Ok, और फिर इस संवाद से बाहर निकलें। स्क्रीनशॉट देखें:

दस्तावेज़-हटाएं-अद्वितीय-3

3. तब सभी मान केवल एक बार चुने जाने पर दिखाई देते हैं। और क्लिक करने के लिए राइट-क्लिक करें मिटाना संदर्भ मेनू में. स्क्रीनशॉट देखें:

दस्तावेज़-हटाएं-अद्वितीय-4

4। में मिटाना संवाद, संपूर्ण पंक्ति जांचें, और क्लिक करें OK. स्क्रीनशॉट देखें:

दस्तावेज़-हटाएं-अद्वितीय-5

अब आप देख सकते हैं कि अद्वितीय मान हटा दिए गए हैं।

दस्तावेज़-हटाएं-अद्वितीय-6 दस्तावेज़-तीर दस्तावेज़-हटाएं-अद्वितीय-7

टिप: यदि आप केवल सेल सामग्री को हटाना चाहते हैं, तो आप क्लिक कर सकते हैं सामान हटाना चरण 3 में संदर्भ मेनू से।

सेलेक्ट डुप्लिकेट और यूनिक सेल के बारे में अधिक जानकारी जानने के लिए आप यहां क्लिक कर सकते हैं।


संबंधित लेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It works great! Thanks!Only issue is it doesn't extend the selection to delete the whole row. But it works. Thanks.
This comment was minimized by the moderator on the site
VBA code does not work....I use option explicit and while I Dim xValue as Variant, keeps saying variable not defined. I'd say a good 80% of copied code from net does not work at first shot.
This comment was minimized by the moderator on the site
You are a life saver. God bless you
This comment was minimized by the moderator on the site
How would one tweak the VBA code to delete the entire row based on unique value of one field only? The Kutools for Excel allow deletion of the entire row, but the code deletes only the unique values from one field. Thank you,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations