वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें

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

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

यह विशेष उदाहरण कॉलम A में पंक्तियों की संख्या की गणना करता है, फिर सेल E2 को परिणाम निर्दिष्ट करता है।

यदि आप इसके बजाय किसी संदेश बॉक्स में पंक्तियों की संख्या प्रदर्शित करना चाहते हैं, तो आप निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटा सेट के साथ अभ्यास में इनमें से प्रत्येक विधि का उपयोग कैसे किया जाए जिसमें तीन अलग-अलग टीमों के बास्केटबॉल खिलाड़ियों के नाम शामिल हैं:

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

मान लीजिए कि हम कॉलम ए में पंक्तियों की संख्या की गणना करना चाहते हैं और परिणामों को एक विशिष्ट सेल में प्रदर्शित करना चाहते हैं।

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

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

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

ध्यान दें कि सेल E2 में मान 9 है।

यह हमें बताता है कि कॉलम ए में मानों के साथ 9 पंक्तियाँ हैं।

उदाहरण 2: वीबीए का उपयोग करके श्रेणी में पंक्तियों की गणना करें और संदेश बॉक्स में परिणाम प्रदर्शित करें

मान लीजिए कि हम इसके बजाय कॉलम ए में पंक्तियों की संख्या गिनना चाहते हैं और परिणामों को एक संदेश बॉक्स में प्रदर्शित करना चाहते हैं।

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

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

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

संदेश बॉक्स हमें बताता है कि कॉलम ए में मानों के साथ 9 पंक्तियाँ हैं।

ध्यान दें कि इस उदाहरण में हमने श्रेणी के रूप में A:A का उपयोग करके सभी कॉलम A में पंक्तियों की संख्या की गणना की है।

हालाँकि, यदि आप इसके बजाय किसी विशिष्ट श्रेणी में मानों वाली पंक्तियों की संख्या की गणना करना चाहते हैं, तो आप A2:A9 (या कोई अन्य श्रेणी जिसमें आप रुचि रखते हैं) टाइप कर सकते हैं।

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

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

वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें
वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें