Vba का उपयोग करके श्रेणी में अद्वितीय मानों की गणना कैसे करें

आप VBA का उपयोग करके किसी श्रेणी में अद्वितीय मानों की संख्या गिनने के लिए निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:

 SubCountUnique ()
    Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
    For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
'store unique count
UniqueCount = List.Count
    
    ' display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

यह विशेष उदाहरण A2:A11 श्रेणी में अद्वितीय मानों की संख्या की गणना करता है और फिर एक संदेश बॉक्स में गिनती प्रदर्शित करता है।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए का उपयोग करके रेंज में अद्वितीय मानों की गणना करें

मान लीजिए हमारे पास एक्सेल में बास्केटबॉल टीम के नामों की निम्नलिखित सूची है:

मान लीजिए हम A2:A11 श्रेणी में अद्वितीय टीम नामों की संख्या गिनना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCountUnique()
Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
    'store unique count
    UniqueCount = List.Count
    
    'display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

संदेश बॉक्स हमें बताता है कि 5 अद्वितीय टीम नाम हैं।

हम प्रत्येक अद्वितीय टीम नाम को मैन्युअल रूप से पहचानकर सत्यापित कर सकते हैं कि यह सही है:

• माव्स
• गर्मी
• जाल
• योद्धा की
• किंग्स

वास्तव में 5 अद्वितीय टीम नाम हैं।

ध्यान दें : एक अलग रेंज में अद्वितीय मानों की संख्या की गणना करने के लिए, बस प्रत्येक लूप के लिए A2:A11 को एक अलग रेंज से बदलें।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें