Excel VBA सँग अन्तिम पङ्क्तिमा स्वतः भर्ने सूत्र (५ उदाहरणहरू)

  • यो साझा गर्नुहोस्
Hugh West

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

यस ट्यूटोरियलमा, तपाईँले VBA कोडहरू प्रयोग गरेर Excel मा अन्तिम पङ्क्तिमा सूत्र स्वत: भर्न सिक्नुहुनेछ। यो ट्यूटोरियल उपयुक्त उदाहरणहरू र उचित दृष्टान्तहरूको साथ बिन्दुमा हुनेछ। त्यसोभए, हामीसँग रहनुहोस्।

अभ्यास कार्यपुस्तिका डाउनलोड गर्नुहोस्

अन्तिम पङ्क्तिमा स्वत: भरण सूत्र

स्वत: भरण के हो। एक्सेल?

अब, अटोफिल माइक्रोसफ्ट एक्सेलको बिल्ट-इन सुविधा हो जसले प्रयोगकर्ताहरूलाई मान, ढाँचा वा सूत्रहरूसँग बाँकी पङ्क्ति वा स्तम्भहरू स्वचालित रूपमा भर्न अनुमति दिन्छ। तपाइँ यसलाई पहिचान गर्न सक्नुहुन्छ जब तपाइँ कर्सरलाई कुनै पनि कक्षको दायाँ तल कुनामा लैजानुहुन्छ। हामी यसलाई एक्सेलको अटोफिल ह्यान्डलर भन्छौं।

निम्न स्क्रिनसटमा हेर्नुहोस्:

यहाँ, तपाईंले दुई नम्बरहरू देख्न सक्नुहुन्छ। हामी Excel मा स्वत: भरण प्रयोग गरेर बाँकी पङ्क्तिहरू भर्नेछौं।

पहिले, कक्षहरूको दायरा B5:B6 चयन गर्नुहोस्। त्यस पछि, तपाईंले दायाँ तल्लो कुनामा अटोफिल ह्यान्डल देख्नुहुनेछ।

अब, यो अटोफिल ह्यान्डललाई तल तान्नुहोस्।

तपाईले देख्न सक्नुहुन्छ, एक्सेलले स्वचालित रूपमा भर्योबाँकी कक्षहरू। यो एक्सेलमा स्वत: भरणको आधारभूत प्रयोग हो।

एक्सेल VBA सँग अटोफिल कसरी प्रयोग गर्ने

यदि तपाईंसँग दिइएको दायरामा पङ्क्ति वा स्तम्भहरूको ठूलो संख्या छ भने, तपाईंले तल तान्नु पर्छ। अन्तिम पङ्क्ति वा स्तम्भमा स्वत: भरण ह्यान्डल। यो एक धेरै व्यस्त प्रक्रिया हो। धन्यबाद तपाईले यसलाई एक्सेलमा VBA कोडहरू प्रयोग गरेर कम गर्न सक्नुहुन्छ। तपाईंले मान, सूत्र वा ढाँचाहरू सहित कक्षहरूलाई स्वत: भर्न VBA कोड प्रयोग गर्न सक्नुहुन्छ।

सामान्य सिन्ट्याक्स:

दायरा अटोफिल गन्तव्य, प्रकार

यहाँ,

दायरा(“B5”): बाँकी शृङ्खलाहरू भर्नको लागि मुख्य ढाँचा भएको कक्ष।

गन्तव्य: कक्षहरूको दायरा जहाँ तपाईँ ढाँचा श्रृंखला भर्न चाहनुहुन्छ।

xlAutoFillType को रूपमा टाइप गर्नुहोस्: श्रृंखला भरण प्रकार। त्यहाँ विभिन्न स्वत: भरण प्रकारहरू छन् जुन तपाईंले छनौट गर्न सक्नुहुन्छ।

थप पढ्नुहोस्: एक्सेलमा VBA अटोफिल कसरी प्रयोग गर्ने

एक्सेलमा अटोफिलका ४ प्रकारहरू VBA

यस खण्डमा, म अटोफिलका केही प्रकारहरूबारे छलफल गर्नेछु। हामीले xlAutoFillType प्रयोग गरेर कुनै पनि स्वत: भरण प्रकार रोज्न सक्छौं भनेर हामीले पहिले नै देख्यौं। यहाँ, म तपाईंलाई त्यसका केही उदाहरणहरू देखाउँदै छु।

१. xlFillDefault

हामीले अघिल्लो उदाहरणमा यस प्रकारको स्वत: भरण देख्यौं।

स्क्रिनसटमा हेर्नुहोस्:

बाँकी कक्षहरू स्वत: भर्न निम्न VBA कोड टाइप गर्नुहोस्:

2640

अब, VBA म्याक्रो चलाउनुहोस् र त्यस पछि, तपाईंले देख्नुहुनेछ।निम्न:

यसले स्वचालित रूपमा VBA म्याक्रो प्रयोग गरेर बाँकी कक्षहरू भर्छ।

2। xlFillCopy

उही मानहरू प्रतिलिपि गर्नको लागि तपाईंले स्वत: भरण प्रकारमा xlFillCopy प्रकार प्रयोग गर्न सक्नुहुन्छ।

स्क्रिनसटमा हेर्नुहोस्:

बाँकी कक्षहरू स्वत: भर्नको लागि निम्न VBA कोड टाइप गर्नुहोस्:

6076

अब, VBA म्याक्रो चलाउनुहोस् र त्यस पछि, तपाईंले निम्न देख्नुहुनेछ:

Excel ले बाँकी कक्षहरूलाई समान ढाँचामा भर्छ।

3. xlFillMonths

तपाईँ xlFillMonths स्वत: भरण प्रकार प्रयोग गरेर महिनाहरू पनि भर्न सक्नुहुन्छ।

स्क्रिनसटमा हेर्नुहोस्:

यहाँ, हामीले दुई महिना जनवरी र फेब्रुअरीमा प्रवेश गरेका छौं।

बाँकी कक्षहरू स्वत: भर्न निम्न VBA कोड टाइप गर्नुहोस्:

3676

अब, VBA म्याक्रो र त्यसपछि चलाउनुहोस्। त्यो, तपाईंले निम्न देख्नुहुनेछ:

Excel ले स्वतः ढाँचाहरू बुझ्छ र तिनीहरूलाई भर्दछ।

4. xlFillFormats

तपाईँ VBA स्वत: भरण प्रयोग गरेर अन्य कक्षहरूमा ढाँचाहरू प्रतिलिपि गर्न सक्नुहुन्छ। त्यसको लागि, तपाईंले xlFillFormats स्वत: भरण प्रकार प्रयोग गर्नुपर्नेछ।

स्क्रिनसटमा हेर्नुहोस्:

यहाँ, हामीसँग छ। दुईवटा कक्षहरूलाई केही रङहरू भर्नुहोस्।

अब, बाँकी कक्षहरूलाई स्वत: भर्न निम्न VBA कोड टाइप गर्नुहोस्:

1866

अब, VBA म्याक्रो चलाउनुहोस् र त्यस पछि, तपाईंले देख्नुहुनेछ। निम्न:

तपाईंले देख्न सक्नुहुन्छ, हाम्रो VBA म्याक्रोले स्वत: भरण प्रयोग गर्दछस्तम्भ B को पङ्क्तिहरू प्रभावकारी रूपमा भर्नुहोस्।

थप पढ्नुहोस्: एक्सेलमा कसरी स्वत: भर्ने महिनाहरू

5 स्वत: भरण सूत्रका साथ अन्तिम पङ्क्तिमा उदाहरणहरू एक्सेल VBA

1. VBA अन्तिम प्रयोग गरिएको पङ्क्तिमा सूत्र स्वत: भर्न

त्यस्तै गरी, तपाइँ VBA प्रयोग गरेर सूत्र स्वत: भर्न सक्नुहुन्छ। यदि तपाईंले अघिल्लो खण्डहरू पढ्नुभएको छ भने, तपाईं सजिलैसँग यो गर्न सक्नुहुन्छ। तपाईंले अन्तिम पङ्क्तिमा सूत्र स्वत: भर्नु पर्दा समस्या उत्पन्न हुन्छ। तपाईंले पहिले प्रयोग गरिएको अन्तिम पङ्क्ति पहिचान गर्नुपर्छ। त्यस पछि, VBA कोडले तिनीहरूलाई स्वचालित रूपमा भर्नेछ।

निम्न डेटासेटमा हेर्नुहोस्:

यहाँ, हामीसँग केही विक्रेताहरूको बिक्री डाटासेट छ। । हाम्रो लक्ष्य कुल स्तम्भमा जनवरी र फेब्रुअरीको बिक्री थप्नु हो। त्यस पछि, हामी एक्सेलमा अन्तिम प्रयोग गरिएको पङ्क्तिमा VBA प्रयोग गरेर स्वत: भरण विधि प्रयोग गर्नेछौं।

यसलाई कार्यान्वयन गर्न, निम्न कोड टाइप गर्नुहोस्:

5710

last_row = कक्षहरू(Rows.Count, 2).End(xlUp)।पङ्क्ति: यसले B स्तम्भबाट अन्तिम प्रयोग गरिएको पङ्क्ति फर्काउँछ। तपाईंले आफ्नो डेटासेटबाट कुनै पनि स्तम्भ रोज्न सक्नुहुन्छ।

दायरा(“E5”)।सूत्र = “=SUM(C5:D5)”: हामी सेल C5 D5 को बिक्री थप्छौं।

रेन्ज(“E5”)।स्वतः भरण गन्तव्य:=दायरा(“E5:E” & last_row): नतिजा प्राप्त गरेपछि, हामी स्वत: भरण प्रयोग गर्छौं। यसले सेल E5 बाट हामीले पहिले प्राप्त गरेको अन्तिम प्रयोग पङ्क्तिमा स्वतः भर्न सुरु गर्छ।

अब, VBA म्याक्रो चलाउनुहोस्। त्यस पछि, तपाईंले निम्न आउटपुट देख्नुहुनेछ:

22>

जस्तैतपाईले देख्न सक्नुहुन्छ, हाम्रो VBA कोडले पहिलो नतिजा थप्छ र एक्सेलमा अन्तिम पङ्क्तिमा सूत्र स्वतः भर्दछ।

थप पढ्नुहोस्: डेटाको साथ अन्तिम पङ्क्तिमा कसरी भर्ने। Excel

2. VBA AutoFill ActiveCell देखि अन्तिम पङ्क्तिमा

अब, यदि तपाइँ स्वत: भरण विधिमा विशेष दायरा प्रयोग गर्न चाहनुहुन्न भने, तपाइँ सक्रिय कक्षको मानहरू प्रयोग गर्न सक्नुहुन्छ। , सूत्रहरू, वा ढाँचाहरू। जब तपाइँ सेलमा क्लिक गर्नुहुन्छ र सक्रिय कक्षको सूत्रसँग बाँकी पङ्क्तिहरू स्वत: भर्न चाहनुहुन्छ, यो विधि प्रयोग गर्नुहोस्।

यो अघिल्लो उदाहरण जस्तै छ। हामी अघिल्लो डेटासेट प्रयोग गर्दैछौं:

अब, हामी जनवरी र फेब्रुअरीको बिक्री थप्नेछौं र Excel VBA प्रयोग गरेर अन्तिम पङ्क्तिमा सूत्र स्वत: भर्नेछौं।

अब, निम्न कोड टाइप गर्नुहोस्:

5787

last_row = Cells(Rows.Count, 2).End(xlUp)।Row: यसले पछिल्लो पटक प्रयोग गरेको फर्काउँछ। स्तम्भ B बाट पङ्क्ति। तपाईंले आफ्नो डेटासेटबाट कुनै पनि स्तम्भ रोज्न सक्नुहुन्छ।

ActiveCell.Formula = “=SUM(C5:D5)”: हामी सेलको बिक्री थप्छौं। C5 D5 तपाईंको चयन गरिएको कक्षमा।

ActiveCell.AutoFill गन्तव्य:=Range(ActiveCell.Address & “:E” & last_row): नतिजा प्राप्त गरेपछि, हामी स्वत: भरण प्रयोग गर्दछौं। यसले सक्रिय सेलबाट हामीले पहिले प्राप्त गरेको अन्तिम प्रयोग पङ्क्तिमा स्वतः भर्न सुरु गर्छ।

अब, सेल E5 चयन गर्नुहोस्।

त्यसपछि, सूत्र थप्न VBA म्याक्रो चलाउनुहोस् र अन्तिम पङ्क्तिमा स्वत: भर्नुहोस्।

तपाईले देख्न सक्नुहुन्छ, हामीअन्तिम पङ्क्तिमा सूत्र स्वतः भर्न VBA म्याक्रो सफलतापूर्वक प्रयोग गरियो।

समान पढाइहरू

  • कसरी पङ्क्तिहरू दोहोर्याउने एक निर्दिष्ट संख्यामा एक्सेल (४ तरिकाहरू)
  • एक्सेलमा स्वचालित रूपमा पङ्क्तिहरू (8 विधिहरू)
  • कसरी समान मानको साथ एक्सेलमा स्तम्भ भर्ने (९ युक्तिहरू) )
  • Excel मा AutoFill सर्टकट लागू गर्नुहोस् (7 विधिहरू)

3. एक्सेल VBA को साथ गतिशील दायरा प्रयोग गरेर अन्तिम पङ्क्तिमा स्वत: भर्नुहोस्

पहिले हामीले तपाइँलाई एक्सेलमा अन्तिम पङ्क्तिमा स्वत: भर्न केही VBA म्याक्रोहरू देखाउथ्यौं। अब, ती उदाहरणहरूमा, हामीले पहिले नै गतिशील दायराहरू प्रयोग गरिसकेका छौं।

स्थिर दायराहरू बुझ्न, निम्न कोडमा हेर्नुहोस्:

3312

हामीले मूल रूपमा एक्सेललाई मा सूत्र प्रविष्ट गर्न भन्यौं। सेल E5 र यसलाई सेल E5 बाट सेल E11 मा स्वतः भर्नुहोस्। यहाँ, हामीले दायरा निर्दिष्ट गरेका छौं। यदि तपाईंले थप पङ्क्तिहरू थप्नुभयो भने के हुन्छ? त्यस अवस्थामा, हाम्रो VBA ले ती अतिरिक्त पङ्क्तिहरू स्वत: भर्ने छैन किनभने हामीले यसलाई निश्चित दायरा स्वत: भर्न भनिसकेका छौं।

यस समस्याको समाधान गर्नको लागि म गतिशील दायरा लिन सक्ने समाधान लिएर आएको छु:

3814

तपाइँले देख्न सक्नुहुन्छ, हामीले कोडको यो लाइनद्वारा पहिलो पङ्क्ति फेला पार्छौं:

4074

त्यसपछि, हामी गतिशील दायरा प्रयोग गरेर अन्तिम पङ्क्तिमा स्वत: भर्दछौं:

1295

होइन। तपाईले आफ्नो डेटासेटमा जति पङ्क्तिहरू थप्नुहुन्छ, यो VBA कोड तिनीहरूलाई पहिचान गर्न सफल हुनेछ। र यसले तिनीहरूलाई सूत्रको साथ स्वत: भर्नेछ।

गतिशील दायराको मूलतया मतलब तपाईंले दायरा प्रविष्ट गर्नुपर्दैन।म्यानुअल रूपमा। Excel ले समय समयमा यसलाई अद्यावधिक गर्नेछ।

थप पढ्नुहोस्: Excel VBA: दायरा वर्गको स्वत: भरण विधि असफल भयो

4. अन्तिममा स्वत: भरण VBA प्रयोग गरेर एक्सेलमा स्तम्भ

यदि तपाईंले अन्तिम पङ्क्तिमा स्वत: भर्न अघिल्लो खण्डहरू पढ्नुभएको छ भने, तपाईंले अन्तिम स्तम्भमा सजिलैसँग स्वत: भर्न सक्नुहुन्छ। तपाईंले भर्खर अन्तिम स्तम्भ नम्बर फेला पार्नु पर्छ र यसलाई एक्सेल VBA मार्फत स्वत: भर्नु पर्छ।

निम्न डेटासेटमा हेर्नुहोस्:

29>

यहाँ, हामीसँग एउटा छ डेटासेट जसले व्यक्तिको 3-महिनाको बजेट प्रतिनिधित्व गर्दछ। अब, हामी सबै महिनाको खर्चहरू थप्नेछौं र Excel VBA प्रयोग गरेर अन्तिम स्तम्भमा सूत्र स्वतः भर्नेछौं।

अब, निम्न कोड टाइप गर्नुहोस्:

7784

last_column = Cells(6, Columns.Count)।End(xlToLeft)।स्तम्भ: यसले पङ्क्ति ६ बाट अन्तिम प्रयोग गरिएको स्तम्भ फिर्ता गर्छ। तपाईं आफ्नो डेटासेटबाट सुरु गर्न कुनै पङ्क्ति रोज्न सक्नुहुन्छ।

दायरा(“D9”)।सूत्र = “=SUM(D6:D8)”: हामी तीन महिना (जनवरी, फेब्रुअरी मार्च) को खर्च थप्छौं।

दायरा(“D9”).अटोफिल गन्तव्य:=दायरा(“D9”, कक्षहरू(9, last_column)): नतिजा प्राप्त गरेपछि, हामी स्वत: भरण प्रयोग गर्छौं। यहाँ, हाम्रो मुख्य पङ्क्ति रो नम्बर 9 हो। हाम्रा सबै डाटाहरू यो पङ्क्तिमा हुनेछन्। यसले स्तम्भ D बाट पछिल्लो प्रयोग गरिएको स्तम्भमा स्वत: भर्न सुरु गर्छ जुन हामीले पहिले अन्तिम_स्तम्भ द्वारा प्राप्त गरेका थियौं।

म्याक्रो चलाएपछि, तपाईंले निम्न आउटपुट देख्नुहुनेछ। :

तपाईले देख्न सक्नुहुन्छ, हामीले सफलतापूर्वक VBA को स्वत: भर्न प्रयोग गर्यौंExcel मा अन्तिम स्तम्भमा सूत्र।

थप पढ्नुहोस्: एक्सेलमा स्तम्भ कसरी स्वत: भर्ने

5. अन्तिम पङ्क्तिमा स्वत: भरण क्रमिक संख्याहरू एक्सेलमा VBA प्रयोग गरेर

तपाईँ VBA मा स्वत: भरण प्रयोग गरेर क्रमिक संख्याहरू स्वत: भर्न सक्नुहुन्छ। यहाँ, तपाईंले अटोफिल प्रकारमा xlFillSeries प्रयोग गर्नुपर्नेछ। Excel ले ढाँचा बुझ्नेछ र तिनीहरूलाई भर्नेछ।

निम्न स्क्रिनसटमा हेर्नुहोस्:

यहाँ, हामीसँग केही नामहरू छन्। र हामी तिनीहरूलाई क्रमिक रूपमा आईडी दिन चाहन्छौं। यो गर्नको लागि, हामी VBA स्वत: भरण प्रयोग गर्नेछौं।

स्थिर दायराको साथ क्रमिक संख्याहरू स्वत: भर्नुहोस्:

3211

कोड चलाएपछि, तपाईंले आउटपुट देख्नुहुनेछ:

यदि तपाइँ गतिशील दायरा प्रयोग गर्न चाहनुहुन्छ भने, त्यसपछि निम्न कोड प्रयोग गर्नुहोस्:

4449

last_row = Cells(rows. Count, 2).End(xlUp)।पङ्क्ति: यसले स्तम्भ B बाट अन्तिम प्रयोग गरिएको पङ्क्ति फर्काउँछ।

दायरा(“C5”)।स्वतः भरण गन्तव्य:=दायरा(“C5) :C” & last_row), Type:=xlFillSeries: यसले Cell C5 को ID लिनेछ र <6 को प्रयोग गरेर C स्तम्भमा अन्तिम प्रयोग गरिएको पङ्क्तिमा स्वत: भरिनेछ।>xlFillSeries ,

दुवै अवस्थामा, तपाईंले समान आउटपुट प्राप्त गर्नुहुनेछ:

तपाईले देख्न सक्नुहुन्छ, हामीले सफलतापूर्वक VBA कोड प्रयोग गर्यौं एक्सेलमा क्रमिक संख्याहरू स्वत: भर्नुहोस्।

थप पढ्नुहोस्: अनुक्रम संख्याहरू भर्नको लागि एक्सेल सूत्रहरू लुकेका पङ्क्तिहरू छोड्नुहोस्

💬 सम्झनुपर्ने कुराहरू

तपाईँ स्वत: भरण रोक्न सक्नुहुन्छ भित्रयदि तपाईं यो चाहनुहुन्न भने विभिन्न तरिकाहरू

तपाईँले एकै साथ धेरै पङ्क्ति र स्तम्भहरू स्वत: भर्न सक्नुहुन्न। यसलाई एक एक गरेर गर्नुहोस्।

निष्कर्ष

समाप्त गर्नको लागि, मलाई आशा छ कि यो ट्युटोरियलले तपाईंलाई VBA कोडहरू प्रयोग गरेर अन्तिम पङ्क्तिमा सूत्र स्वत: भर्न उपयोगी ज्ञान प्रदान गरेको छ। हामी तपाईंलाई यी सबै निर्देशनहरू सिक्न र आफ्नो डेटासेटमा लागू गर्न सिफारिस गर्छौं। अभ्यास कार्यपुस्तिका डाउनलोड गर्नुहोस् र आफैलाई प्रयास गर्नुहोस्। साथै, कमेन्ट सेक्सनमा प्रतिक्रिया दिन नहिचकिचाउनुहोस्। तपाईंको बहुमूल्य प्रतिक्रियाले हामीलाई यस प्रकारका ट्यूटोरियलहरू सिर्जना गर्न उत्प्रेरित राख्छ।

विभिन्न एक्सेल-सम्बन्धित समस्याहरू र समाधानहरूको लागि हाम्रो वेबसाइट Exceldemy.com जाँच गर्न नबिर्सनुहोस्।

नयाँ तरिकाहरू सिक्नुहोस् र बढ्दै जानुहोस्!

Hugh West एक उच्च अनुभवी एक्सेल प्रशिक्षक र उद्योग मा 10 वर्ष भन्दा बढी अनुभव संग विश्लेषक हो। उनले लेखा र वित्तमा स्नातक र व्यवसाय प्रशासनमा स्नातकोत्तर डिग्री हासिल गरेका छन्। Hugh को शिक्षण को लागी एक जोश छ र एक अद्वितीय शिक्षण दृष्टिकोण को विकास गरेको छ जुन पछ्याउन र बुझ्न सजिलो छ। एक्सेलको उनको विशेषज्ञ ज्ञानले विश्वभरका हजारौं विद्यार्थी र पेशेवरहरूलाई उनीहरूको सीप सुधार गर्न र उनीहरूको करियरमा उत्कृष्टता हासिल गर्न मद्दत गरेको छ। आफ्नो ब्लग मार्फत, हगले व्यक्ति र व्यवसायहरूलाई उनीहरूको पूर्ण क्षमतामा पुग्न मद्दत गर्न नि:शुल्क एक्सेल ट्यूटोरियलहरू र अनलाइन प्रशिक्षणहरू प्रदान गर्दै आफ्नो ज्ञान संसारसँग साझा गर्छन्।