सामग्री तालिका
VBA मा तपाईंले अन्तिम पङ्क्ति फेला पार्न विभिन्न तरिकाहरू प्रयोग गर्न सक्नुहुन्छ। यस लेखमा, म एक्सेलमा अन्तिम पङ्क्ति खोज्ने VBA को विभिन्न विधिहरू व्याख्या गर्न जाँदैछु।
यो स्पष्टीकरण दृश्यात्मक बनाउन, म नमूना डेटासेट प्रयोग गर्न जाँदैछु। बिक्री जानकारी प्रतिनिधित्व गर्ने डेटासेटमा 4 वटा स्तम्भहरू छन्। यी स्तम्भहरू बिक्री व्यक्ति, क्षेत्र, उत्पादन, र मूल्य हुन्।
अभ्यास गर्न डाउनलोड गर्नुहोस्
VBA पत्ता लगाउनुहोस् अन्तिम पङ्क्ति अन्तिम पङ्क्ति फेला पार्नतपाईँले VBA प्रयोग गरेर अन्तिम पङ्क्ति फेला पार्न SpecialCells विधि प्रयोग गर्न सक्नुहुन्छ।
पहिले, विकासकर्ता खोल्नुहोस्। ट्याब >> त्यसपछि भिजुअल बेसिक
13>
अनुप्रयोगका लागि माइक्रोसफ्ट भिजुअल बेसिक को नयाँ विन्डो पप अप हुनेछ।
चयन गर्नुहोस्। अब, Insert >> बाट Module
A Module खोलिनेछ।
त्यसपछि <2 मा निम्न कोड लेख्नुहोस्>मोड्युल
।2341
यहाँ, मैले LastRow_SpecialCells नामक उप प्रक्रिया सिर्जना गरेको छु, जहाँ Long प्रकार चर LastRow घोषणा गरिएको छ।
त्यसपछि Range.SpecialCells विधि प्रयोग गरी चर परिभाषित गरियो। यहाँ, मैले दायराको रूपमा स्तम्भ A ( A:A ) प्रयोग गरेको छु। प्रदान गरिएको xlCellTypeLastCell को प्रकार प्यारामिटरको रूपमा SpecialCells , यसले दायराको लागि अन्तिम सेल फर्काउनेछ (यस अवस्थामा, स्तम्भबाट A )।
मैले नतिजा देखाउन सन्देश बाकस प्रयोग गरेको छु।
त्यसपछि, सेभ गर्नुहोस् कोड र मा फर्कनुहोस्। कार्यपत्र।
फेरि, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
16>
त्यसपछि, एउटा संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नाम बाट LastRow_SpecialCells म्याक्रो भित्रको कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चयन गरिएको म्याक्रो चलाउनुहोस्।
यसले, यसले अन्तिम पङ्क्ति नम्बर देखाउने सन्देश बाकस पपअप गर्नेछ।
2. पङ्क्तिहरू प्रयोग गर्दै। गैर-खाली कक्षहरूको लागि गणना
तपाईंले VBA प्रयोग गरेर अन्तिम पङ्क्ति फेला पार्न Rows.Count विधि प्रयोग गर्न सक्नुहुन्छ।
अब, विकासकर्ता ट्याब >> खोल्नुहोस्। त्यसपछि Visual Basic
19>
Microsoft Visual Basic for Applications को नयाँ विन्डो पप अप हुनेछ।
अब, Insert >> बाट Module
A Module खोलिनेछ।
त्यसपछि <2 मा निम्न कोड लेख्नुहोस्>मोड्युल ।
5135
यहाँ, मैले LastRow_NonEmpty नामक उप प्रक्रिया सिर्जना गरेको छु, जहाँ Long प्रकारको चर LastRow घोषणा गरिएको छ।
अब, CELLS(Rows.Count, 1) ले पहिलो स्तम्भमा कति पङ्क्तिहरू छन् भनेर गणना गर्नेछ। त्यसपछि End(xlUp) प्रयोग गरियो।पङ्क्ति अब यसले एक्सेल दायरामा अन्तिम प्रयोग गरिएको पङ्क्ति फेला पार्नेछ।
अन्तमा, मैले देखाउनको लागि सन्देश बाकस प्रयोग गरेको छु।परिणाम।
त्यसपछि, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
यहाँ, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
19>
अब, एउटा संवाद बक्स पप अप हुनेछ।
त्यसपछि, म्याक्रो नाम बाट LastRow_NonEmpty म्याक्रो भित्रको कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस् चयन गरिएको म्याक्रो ।
यसले, यसले अन्तिम पङ्क्ति नम्बर देखाउने सन्देश बाकस पपअप गर्नेछ।
3. कुनै पनि चयन गरिएको स्तम्भको लागि पङ्क्तिहरू गणना गर्दै
VBA, मा कुनै पनि चयन गरिएको स्तम्भ प्रयोग गरेर तपाईंले अन्तिम पङ्क्ति फेला पार्न सक्नुहुन्छ।
पहिलो , विकासकर्ता ट्याब >> खोल्नुहोस्। त्यसपछि भिजुअल बेसिक
13>
अनुप्रयोगका लागि माइक्रोसफ्ट भिजुअल बेसिक को नयाँ विन्डो पप अप हुनेछ।
चयन गर्नुहोस्। अब, Insert >> बाट Module
A Module खोलिनेछ।
त्यसपछि <2 मा निम्न कोड लेख्नुहोस्>मोड्युल ।
1797
यहाँ, मैले LastRow_AnyColumn नामक उप प्रक्रिया सिर्जना गरेको छु, जहाँ Long प्रकारको चर LastRow यो दिइएको स्तम्भ B मा कति पङ्क्तिहरू छन् गणना गर्नेछ। अर्को, प्रयोग गरिएको End(xlup)। पङ्क्ति जसले एक्सेल दायरामा अन्तिम प्रयोग गरिएको पङ्क्ति फेला पार्नेछ।
अन्तिम, मैले देखाउनको लागि सन्देश बाकस प्रयोग गरेको छु।परिणाम।
अर्को, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
त्यसपछि, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
यहाँ, एउटा संवाद बक्स पप अप हुनेछ।
<1
अब, म्याक्रो नाम बाट LastRow_AnyColumn Macros in भित्रको कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चयन गरिएको म्याक्रो चलाउनुहोस्।
यसले, यसले अन्तिम पङ्क्ति नम्बर देखाउने सन्देश बाकस पपअप गर्नेछ।
समान पढाइहरू:
- VBA Excel मा स्तम्भमा फेला पार्नुहोस् (7 दृष्टिकोण)
- VBA प्रयोग गरेर फेला पार्नुहोस् र बदल्नुहोस् (11 तरिकाहरू)
- एक्सेलमा VBA प्रयोग गरेर सटीक मिलान खोज्नुहोस् (5 तरिकाहरू)
- एक्सेलमा VBA सँग स्ट्रिङ कसरी फेला पार्ने (८ उदाहरणहरू)
4. अन्तिम पङ्क्ति फेला पार्न UsedRange प्रयोग गर्दै
तपाईंले अन्तिम पङ्क्ति फेला पार्न कार्यपत्रको UsedRange गुण प्रयोग गर्न सक्नुहुन्छ। VBA प्रयोग गरेर पङ्क्ति।
अब, विकासकर्ता ट्याब >> खोल्नुहोस्। त्यसपछि भिजुअल बेसिक
13>
त्यसपछि अनुप्रयोगका लागि माइक्रोसफ्ट भिजुअल बेसिक को नयाँ विन्डो पप अप हुनेछ।
अब, घुसाउनुहोस् >> बाट Module
A Module खोल्नेछ।
त्यसपछि, <<मा निम्न कोड लेख्नुहोस् 2>मोड्युल ।
2321
यहाँ, मैले LastRow_UsedRange नामक उप प्रक्रिया सिर्जना गरेको छु, जहाँ Long प्रकारको चर LastRow घोषणा गरिएको छ।
अर्को, परिभाषितचर प्रयोग गरी ActiveSheet.UsedRange.Rows विधि पनि उपलब्ध गराइएको छ ActiveSheet.UsedRange.Rows को प्यारामिटरको रूपमा ActiveSheet.UsedRange.Rows.Count , यसले फिर्ता गर्नेछ अन्तिम पङ्क्ति।
मैले नतिजा देखाउन सन्देश बाकस प्रयोग गरेको छु।
अब, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
त्यसपछि, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
अर्को, एउटा संवाद बक्स पप अप हुनेछ।
त्यसपछि, म्याक्रोबाट नाम LastRow_UsedRange Macros मा भित्रको कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, Run चयन गरिएको Macro ।
यसैले, यसले अन्तिम पङ्क्ति नम्बर देखाउने सन्देश बाकस पपअप गर्नेछ।
5. दायरा प्रयोग गर्दै।अन्तिम फेला पार्न खोज्नुहोस् पङ्क्ति
तपाईँले रेन्ज खोज्नुहोस् विधि प्रयोग गर्न सक्नुहुन्छ VBA प्रयोग गरेर अन्तिम पङ्क्ति फेला पार्न।
अब, <2 खोल्नुहोस्।>विकासकर्ता ट्याब >> त्यसपछि भिजुअल बेसिक
यहाँ, एप्लिकेशनका लागि माइक्रोसफ्ट भिजुअल बेसिक को नयाँ विन्डो पप अप हुनेछ।
अब, <बाट 2> घुसाउनुहोस् >> Module
A Module खोलिनेछ।
त्यसपछि Module मा निम्न कोड लेख्नुहोस्।
5956
यहाँ, मैले Range_Find_Method नामक उप प्रक्रिया सिर्जना गरेको छु, जहाँ Long प्रकारको चर LastRow घोषणा गरिएको छ। .
त्यसपछि Cells.Find विधि प्रयोग गरी चर परिभाषित गर्नुहोस्। यहाँ, 7 घोषणा गरियोप्यारामिटरहरू। के मापदण्ड मैले प्रयोग गरें ("*") जसले पहिलो गैर-खाली सेल फेला पार्नेछ। दिइएको A1 को दायराको रूपमा पछि सुरु गर्न प्यारामिटर। LookAt मापदण्ड प्रदान गरिएको xlPart सेल भित्रको पाठको कुनै पनि भाग हेर्नको लागि।
LookIn:=xlFormulas प्यारामिटरले खोज्नेछ। सूत्रहरू यदि त्यहाँ छन्। SearchOrder:=xlByRows प्यारामिटर दायाँ-देखि-बायाँ सर्ने छ र प्रत्येक पङ्क्तिमा लूप अप पनि हुन्छ जबसम्म यसले खाली नभएको सेल फेला पार्छ।
MatchCase:=False प्यारामिटरले फेला पार्नुहोस् माथिल्लो वा सानो अक्षरहरूलाई विचार नगर्ने बताउनेछ। जब कुनै खाली नभएको फेला पर्यो भने यो रोकिन्छ र पङ्क्ति नम्बर फर्काउँछ।
मैले नतिजा देखाउन सन्देश बाकस प्रयोग गरेको छु।
अब, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
यहाँ, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
16>
अब, एउटा संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नाम बाट रेन्ज_फाइन्ड_मेथड म्याक्रो भित्रको कार्यपत्र पनि चयन गर्नुहोस्।
अन्तमा, चयन गरिएको म्याक्रो चलाउनुहोस्।
यसले, यसले अन्तिम पङ्क्ति नम्बर देखाउने सन्देश बाकस पपअप गर्नेछ।
निष्कर्ष
यस लेखमा, मैले VBA एक्सेलमा अन्तिम पङ्क्ति फेला पार्ने ५ तरिकाहरू वर्णन गरेको छु। तपाईं अन्तिम पङ्क्ति फेला पार्न कुनै पनि विधिहरू पछ्याउन सक्नुहुन्छ। यदि तपाइँसँग यी विधिहरूको बारेमा कुनै भ्रम वा प्रश्न छ भने तपाइँ गर्न सक्नुहुन्छतल टिप्पणी गर्नुहोस्।
