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

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

तपाईँ यहाँबाट नि:शुल्क अभ्यास एक्सेल कार्यपुस्तिका डाउनलोड गर्न सक्नुहुन्छ।

एक्सेलमा तालिकाको पङ्क्तिहरू मार्फत लुप गर्न VBA सँग 11 विधिहरू

यस खण्ड पछ्याउँदै, तपाईंले 11 विभिन्न विधिहरूसँग कसरी तालिकाका पङ्क्तिहरू लुप गर्ने सिक्नुहुनेछ, जस्तै खाली सेल नभएसम्म पङ्क्तिहरू मार्फत लुप गर्नुहोस्, कुनै निश्चित मान नभेटिएसम्म पङ्क्तिहरू मार्फत लुप गर्नुहोस्, पङ्क्तिहरू मार्फत लुप गर्नुहोस् र एक्सेलमा VBA म्याक्रोको साथ कुनै विशेष सेललाई रंग दिनुहोस्।

<8

माथिको उदाहरण डेटासेट हो जुन यस लेखले विधिहरू वर्णन गर्न अनुसरण गर्नेछ।

१। कक्ष सन्दर्भ नम्बर

यदि तपाईँ आफ्नो एक्सेल कार्यपत्रमा तालिकाको प्रत्येक पङ्क्तिमा प्रत्येक कक्षमा लुप गर्न चाहनुहुन्छ भने VBA इम्बेड गर्नुहोस्। र फिर्ता मानको रूपमा सेल सन्दर्भ नम्बर प्राप्त गर्नुहोस् , त्यसपछि तल छलफल गरिएका चरणहरू पालना गर्नुहोस्।

चरणहरू:

• सुरुमा , आफ्नो किबोर्डमा Alt + F11 थिच्नुहोस् वा जानुहोस्चर।

7592

कोडको यो टुक्रा 1 देखि 15 सम्म पङ्क्तिहरू मार्फत लुप गर्नको लागि यहाँ छ। यदि यसले विशिष्ट शब्द " Edge " फेला पार्छ भने, यसले शब्द राख्ने कक्षलाई रंग दिन्छ। यो शब्द खोजीमा पङ्क्ति 1 देखि 15 सम्मका सबै डेटा स्क्यान नगरेसम्म यो गर्न जारी राख्छ।

थप पढ्नुहोस्: कसरी प्रयोग गर्ने VLOOKUP तालिका एरेमा आधारित। Excel मा सेल मान

समान पढाइहरू

• के TABLE प्रकार्य Excel मा अवस्थित छ?
• एक्सेलमा तालिकालाई सूचीमा कसरी रूपान्तरण गर्ने (३ द्रुत तरिकाहरू)
• रेन्जलाई एक्सेलमा तालिकामा रूपान्तरण गर्नुहोस् (५ सजिलो विधिहरू)
• एक्सेल तालिकामा प्रभावकारी रूपमा सूत्र प्रयोग गर्नुहोस् (४ उदाहरणहरू सहित)
• Excel तालिका नाम: तपाईलाई थाहा हुनु पर्ने सबै कुरा

7। प्रत्येक पङ्क्तिबाट लुप गर्न VBA लागू गर्नुहोस् र एक्सेलमा हरेक विषम पङ्क्तिलाई कल गर्नुहोस्

अघिल्लो खण्डबाट, हामीले एक विशेष मान बोक्ने सेललाई कसरी रङ गर्ने भनेर सिकेका छौं। यस खण्डमा, हामी एक्सेलमा VBA म्याक्रोसँग तालिकाको प्रत्येक पङ्क्तिमा लुप गर्ने र हरेक विषम पङ्क्तिलाई रङ गर्ने तरिका सिक्ने छौँ।

प्रक्रिया कार्यान्वयन गर्ने चरणहरू तल वर्णन गरिएको छ।

चरणहरू:

• पहिले देखाइए जस्तै, विकासकर्ता बाट भिजुअल बेसिक सम्पादक खोल्नुहोस्। कोड विन्डोमा ट्याब र घुसाउनुहोस् एउटा मोड्युल ।
• त्यसपछि, निम्न कोड प्रतिलिपि र यसलाई टाँस्नुहोस् कोड विन्डो।

6593

तपाईँको कोड अब चल्नको लागि तयार छ।

• अब, दौडाउनुहोस् म्याक्रो र आउटपुट हेर्नको लागि निम्न छवि हेर्नुहोस्।

सबै विजोड-नम्बरका पङ्क्तिहरू रंगीन छन् कार्यपत्रको तालिकामा रहेका सबै पङ्क्तिहरू लुप गरेपछि।

VBA कोड स्पष्टीकरण

4817

चर परिभाषित गर्नुहोस्।

2163

हामीले काम गर्ने दायरा परिभाषित गर्नुहोस्।

3761

कोडको यो भागले हालको पङ्क्तिको अर्को पङ्क्तिबाट सुरु गरी सबै पङ्क्तिहरू मार्फत पुनरावृत्तिलाई जनाउँछ, B4<। २५>। यदि पङ्क्ति संख्याहरूलाई 2 ले विभाजन गर्ने मोड पूर्णांक प्रकारमा भण्डारण गरिएको पङ्क्ति संख्या बराबर छ भने, यो कोडले कोडमा प्रदान गरिएको रङ अनुक्रमणिकाको साथ गणनाद्वारा निकालिएका सबै पङ्क्तिहरूलाई रंग दिन्छ। यो दायराको अन्त्यमा नपुग्दासम्म सबै पङ्क्तिहरू मार्फत चलिरहन्छ।

8। VBA लाई पङ्क्तिहरू मार्फत लुप गर्नुहोस् र Excel मा हरेक सम पङ्क्तिहरू रंग गर्नुहोस्

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

प्रक्रिया कार्यान्वयन गर्ने चरणहरू तल छलफल गरिएको छ।

चरणहरू:

• सबैभन्दा पहिले, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र घुसाउनुहोस् कोड विन्डोमा मोड्युल ।
• त्यसपछि, निम्न कोड प्रतिलिपि र टाँस्नुहोस् कोड विन्डोमा।

8242

तपाईँको कोड अब तयार छचलाउनुहोस्।

40>

• अर्को, रन म्याक्रो र नतिजा हेर्नको लागि निम्न छवि हेर्नुहोस्।

कार्यपत्रको तालिकामा रहेका सबै पङ्क्तिहरू लुप गरेपछि सबै समान-संख्या गरिएका पङ्क्तिहरू रंगीन हुन्छन् ।

VBA कोड स्पष्टीकरण

2123

चर परिभाषित गर्नुहोस्।

8226

हामीले काम गर्ने दायरा परिभाषित गर्नुहोस्।

8211

कोडको यो टुक्रा पछि पुनरावृत्ति सुरु हुन्छ। हालको पङ्क्तिबाट तीन पङ्क्तिहरू, B4 । यसले पहिले यसलाई रङ गर्छ त्यसपछि पङ्क्तिको गणनालाई 2 ले बढाउँछ र डेटासेटको अन्तिम पङ्क्तिमा नपुग्दासम्म यसलाई रङ गरिरहन्छ।

9। एक्सेलमा खाली सेलमा पङ्क्तिहरू मार्फत पुनरावृत्ति गर्न म्याक्रो लागू गर्नुहोस्

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

9.1। FOR लूपको साथ

चरणहरू तालिकामा पङ्क्तिहरू मार्फत लुप गर्नुहोस् जबसम्म VBA एक्सेलमा FOR लूप भएको खाली कक्ष तल दिइएको छ।

• सुरुमा, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र घुसाउनुहोस् कोड विन्डोमा मोड्युल ।
• त्यसपछि, निम्न कोड प्रतिलिपि र टाँस्नुहोस् कोड विन्डोमा।

6964

तपाईँको कोड अब चल्नको लागि तयार छ।

• त्यसपछि, चलाउनुहोस् macro र नतिजा तल gif मा देखाइएको छ।

म्याक्रो चलाएपछि, यसले तालिकाका सबै पङ्क्तिहरू मार्फत लुप गर्न थाल्यो र एक पटक यो खाली कक्ष, सेल B8 मा पुगेपछि, यसले पुनरावृत्ति रोक्यो ।

VBA कोड स्पष्टीकरण

7790

चर परिभाषित गर्नुहोस्।

2783

स्क्रिन अपडेट गर्ने घटना बन्द गर्नुहोस्।

3406

सबै पङ्क्तिहरू सेल B4 बाट सुरु हुने अन्तिम सम्म भण्डार गर्नुहोस्।

6915

सेल B4 चयन गर्नुहोस्।

9471

कोडको यो टुक्रा सबै पङ्क्तिहरू मार्फत लुप गर्न थाल्छ। जब यसले पङ्क्तिमा एउटा खाली सेल फेला पार्छ तब यसलाई चयन गर्छ र पङ्क्तिहरू स्क्यान गर्न जारी राख्छ जबसम्म यो अन्त्यमा पुग्दैन।

5611

स्क्रिन अद्यावधिक गर्ने घटना खोल्नुहोस्।

9.2। Do- Until Loop संग

VBA मा Do- Until loop को साथ खाली सेल नभएसम्म पङ्क्तिहरू मार्फत लुप गर्ने चरणहरू तल दिइएको छ।

• सबैभन्दा पहिले, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र घुसाउनुहोस् a मोड्युल कोड विन्डोमा।
• त्यसपछि, निम्न कोड प्रतिलिपि र टाँस्नुहोस् कोड विन्डोमा।

9965

तपाईँको कोड अब चल्नको लागि तयार छ।

• पछि, चलाउनुहोस् म्याक्रो। नतिजा निम्न gif मा देखाइएको छ।

म्याक्रो चलाएपछि, यसले सबै पङ्क्तिहरू मार्फत लुप गर्न थाल्यो तालिकामा र एक पटक यो खाली कक्षमा पुग्यो, सेल B8 , यसले पुनरावृत्ति रोक्यो ।

VBA कोडस्पष्टीकरण

6173

हामीले काम गर्ने सेल चयन गर्नुहोस्।

5908

सुरु हुन्छ र खाली सेल फेला नपरेसम्म लुपिङ जारी रहन्छ।

4316

जब खाली सेल हुन्छ पङ्क्तिमा फेला पार्नुहोस् त्यसपछि यसलाई चयन गर्नुहोस् र पुनरावृत्ति रोक्नुहोस्।

10। VBA म्याक्रो एक्सेलमा धेरै खाली कक्षहरू सम्म पङ्क्तिहरू मार्फत पुनरावृत्ति गर्न

अघिल्लो खण्डमा, तपाईंले खाली सेल फेला पर्दा लुप कसरी रोक्ने भनेर सिक्नुभएको छ। तर के हुन्छ यदि तपाईं पुनरावृत्ति रोक्न चाहनुहुन्न जबसम्म एकको सट्टा धेरै खाली कक्षहरू फेला पर्दैन।

चरणहरू पङ्क्तिहरू मार्फत लुप गर्नुहोस् जबसम्म धेरै खाली कक्षहरू टेबलमा फेला पर्दैनन् VBA Excel को साथ तल देखाइएको छ।

चरणहरू:

• सबैभन्दा पहिले, भिजुअल बेसिक सम्पादक खोल्नुहोस् कोड विन्डोमा विकासकर्ता ट्याब र घुसाउनुहोस् एउटा मोड्युल ।
• त्यसपछि, प्रतिलिपि निम्न कोड र <1 कोड विन्डोमा टाँस्नुहोस्।

1617

तपाईँको कोड अब चल्नको लागि तयार छ।

46>

• अब, म्याक्रो चलाउनुहोस् र आउटपुटको लागि निम्न gif हेर्नुहोस्।

47>

म्याक्रो चलाए पछि, यो मा रोकिएन। पहिलो खाली सेल, सेल B8 । यो रोकियो जब यसले सेल B16 मा दुई लगातार खाली कक्षहरू फेला पार्यो ।

VBA कोड स्पष्टीकरण

5327

सेल चयन गर्नुहोस् जसबाट हामी काम गर्नेछौं।

9039

सुरु हुन्छ र लगातार दुईवटा खाली कक्षहरू नभेटिएसम्म लुपिङ जारी रहन्छ।

9758

दुई लगातार खाली कक्षहरू फेला परेपछियसलाई चयन गर्नुहोस् र पुनरावृत्ति रोक्नुहोस्।

11. एक्सेलमा खाली नभएसम्म सबै स्तम्भहरू जोडेर पङ्क्तिहरू मार्फत लुप गर्न VBA इम्बेड गर्नुहोस्

यस खण्डले तपाईंलाई कसरी तालिकाका सबै पङ्क्तिहरू लुप गर्ने र खाली कक्ष नभएसम्म सबै स्तम्भहरूलाई जोड्ने देखाउनेछ। VBA Excel मा पाइन्छ।

यसलाई एक्सेलमा VBA म्याक्रोसँग कसरी गर्ने भनेर जानौँ।

चरणहरू:

• सुरुमा, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र घुसाउनुहोस् एक मोड्युल कोड विन्डोमा।
• त्यसपछि, निम्न कोड प्रतिलिपि र टाँस्नुहोस् कोड विन्डोमा।

6250

तपाईँको कोड अब चल्नको लागि तयार छ।

• पछि, चलाउनुहोस् म्याक्रो र परिणामको लागि निम्न gif हेर्नुहोस्।

तपाइँले माथिको gif बाट देख्न सक्नुहुन्छ कि त्यहाँ पप-अप MsgBox तपाईँलाई देखाउँदै सबै स्तम्भहरूमा रहेको प्रत्येक स्तम्भहरूको सङ्कलित मान देखाउँछ। पङ्क्ति तपाईको एक्सेल कार्यपत्रको तालिकाबाट। तर यो खाली कक्षमा पुगेपछि रोकियो ।

VBA कोड स्पष्टीकरण

8250

चर परिभाषित गर्नुहोस्।

1316

पानाको नाम सेट गर्नुहोस् जुन हामीले काम गर्नेछौं (“ ConcatenatingAllColUntilBlank ” कार्यपुस्तिकाको पानाको नाम हो)।

7499

हामीले काम गर्ने दायरा परिभाषित गर्नुहोस्।

7472

कोडको यो टुक्राले एरेसँग लूप सुरु गर्छ। यो एरेको सबैभन्दा ठूलो सबस्क्रिप्ट र को तल्लो बाउन्ड नफर्केसम्म लुप गर्न जारी रहन्छपहिलो आयाम। त्यसपछि यो दोस्रो आयामको तल्लो सीमा निकाल्ने पुनरावृत्तिमा प्रवेश गर्दछ। त्यस पछि, यसले iResult भेरिएबलमा निकालिएका सबै मानहरूलाई जोडेर MsgBox मा नतिजा फालेर पास गर्छ। यसले खाली सेल फेला नपरेसम्म त्यसलाई जारी राख्छ।

निष्कर्ष

समाप्त गर्नको लागि, यस लेखले तपाइँलाई कसरी पङ्क्तिहरू मार्फत लुप गर्ने भन्ने बारे ११ प्रभावकारी विधिहरू देखाएको छ। तालिकाको एक्सेलमा VBA म्याक्रो सँग। मलाई आशा छ कि यो लेख तपाईलाई धेरै लाभदायक भएको छ। यस विषयमा कुनै पनि प्रश्न सोध्न स्वतन्त्र महसुस गर्नुहोस्।

• अर्को, पप-अप कोड विन्डोमा, मेनु पट्टी, घुसाउनुहोस् -> मोड्युल ।

• त्यसपछि, निम्न कोडलाई प्रतिलिपि र पेस्ट गर्नुहोस् कोडमा window.

2569

तपाईँको कोड अब चल्नको लागि तयार छ।

• अब, आफ्नो मा F5 थिच्नुहोस् किबोर्ड वा मेनु पट्टीबाट चलाउनुहोस् -> Sub/UserForm चलाउनुहोस्। म्याक्रो चलाउनको लागि सब-मेनु पट्टीमा रहेको सानो प्ले आइकन मा क्लिक गर्न सक्नुहुन्छ।

• वा दृश्यात्मक रूपमा साक्षी र डेटासेट र परिणाम तुलना गर्नुहोस्, तपाईं कोड बचत गर्न सक्नुहुन्छ र रुचिको कार्यपत्रमा फर्कनुहोस् ।
• त्यहाँबाट, तपाईं <1 क्लिक गर्न सक्नुहुन्छ।>Macros Developer ट्याबबाट, Macro नाम चयन गर्नुहोस्, र त्यसपछि Run मा क्लिक गर्नुहोस्।

सफल कोड कार्यान्वयन पछि, नतिजा हेर्न माथिको gif हेर्नुहोस्। त्यहाँ पप-अप हुनेछ MsgBox तपाईँको एक्सेल पानाको तालिकाबाट प्रत्येक पङ्क्तिबाट प्रत्येक सेलको सेल सन्दर्भ नम्बर देखाउँदै।

VBA कोड स्पष्टीकरण

2487

तालिकामा अन्तिम पङ्क्ति नम्बर प्राप्त गर्न स्तम्भ B खोजी।

2255

पङ्क्ति नम्बर 4 सेट गर्नुहोस्, जहाँबाट हाम्रो डेटा सुरु हुन्छ।

1871

पहिलो पङ्क्तिबाट लुप गर्न।

1287

स्तम्भ नम्बर 2 सेट गर्नुहोस्, जहाँबाट हाम्रो डेटा सुरु हुन्छ।

4400

अन्तिम प्राप्त गर्न पङ्क्तिहरू मार्फत लुप गर्न सुरु गर्नुहोस्।अन्तिम पङ्क्तिसम्म हालको पङ्क्तिको मूल्याङ्कन गरेर स्तम्भ सङ्ख्या।

5781

पहिलो पङ्क्तिबाट अन्तिम पङ्क्तिसम्म स्तम्भ लुप गर्दै बढाउनुहोस्।

9760

कोडको यो टुक्राले प्रक्रियामा काम गर्छ, प्रत्येक पछि वृद्धि पुनरावृत्ति र कोडको नतिजा प्रदर्शन गर्नुहोस्।

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

2 । VBA लागू गर्नुहोस् प्रत्येक पङ्क्तिमा प्रत्येक कक्ष मार्फत लूप गर्नुहोस् मान

यदि तपाईं तालिकाको प्रत्येक पङ्क्तिमा प्रत्येक कक्ष मार्फत लुप गर्न चाहनुहुन्छ र फिर्ता मानको रूपमा कक्षहरूमा रहेको मान फ्याँक्नुहोस्। , त्यसपछि यो खण्डले तपाईंलाई VBA Excel मार्फत कसरी गर्ने भनेर पत्ता लगाउन मद्दत गर्नेछ।

तपाईँले ListObject र <1 सँग गर्न सक्नुहुन्छ।>DataBodyRange VBA को गुण। हामी तपाईंलाई वस्तु र गुण दुवैको साथ म्याक्रो कोड देखाउनेछौं।

2.1। ListObject

VBA Excel मा ListObject को साथ सेल मानद्वारा तालिकाको प्रत्येक पङ्क्तिमा प्रत्येक सेल मार्फत लुप गर्ने चरणहरू तल दिइएको छ।

चरणहरू:

• पहिले जस्तै, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र कोड विन्डोमा मोड्युल घुसाउनुहोस्।
• त्यसपछि, कोड विन्डोमा, प्रतिलिपि निम्न कोड र टाँस्नुहोस् यो।

3514

तपाईँको कोड अब चल्नको लागि तयार छ।

22>

• त्यसपछि, चलाउनुहोस् म्याक्रो हामीले माथिको खण्डमा देखाएको जस्तै। परिणाम gif मा देखाइएको छतल।

त्यहाँ एउटा पप-अप हुनेछ MsgBox तपाईँलाई प्रत्येक पङ्क्तिबाट प्रत्येक कक्षले बोकेको मान देखाउँदै तपाईँको एक्सेल पानाको तालिकाबाट।

VBA कोड स्पष्टीकरण

8043

चर परिभाषित गर्नुहोस्।

6241

यो टुक्रा कोडको पहिले तालिकामा पङ्क्तिहरू मार्फत लुप सुरु हुन्छ (“ TblStudents ” हाम्रो तालिकाको नाम हो)। त्यसपछि प्रत्येक पङ्क्तिको लागि स्तम्भहरू प्रविष्ट गर्दछ। त्यस पछि, MsgBox मा सेलको मान पास गर्नुहोस्। त्यसपछि अर्को स्तम्भमा जानुहोस्। एक पङ्क्तिको सबै स्तम्भहरू मार्फत पुनरावृत्ति समाप्त गरेपछि, त्यसपछि यो अर्को पङ्क्तिमा जान्छ र अन्तिम पङ्क्ति सम्म पुनरावृत्ति प्रक्रिया जारी राख्छ।

2.2। DataBodyRange गुणसँग

तालिकाबाट निकालिएको डाटासँग थप विशिष्ट हुन, तपाईंले ListObject को DataBodyRange गुण प्रयोग गर्न सक्नुहुन्छ। DataBodyRange गुणले तपाइँलाई हेडर पङ्क्ति र सम्मिलित पङ्क्ति बीचको सूचीबाट दायरा समावेश गरी परिणाम फ्याँक्नेछ।

तपाईले कसरी प्रत्येक पङ्क्तिमा प्रत्येक कक्ष मार्फत लुप गर्न सक्नुहुन्छ भन्ने चरणहरू VBA Excel मा DataBodyRange को सेल मानद्वारा तालिका तल दिइएको छ।

चरणहरू:

• देखाइएअनुसार पहिले, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र कोड विन्डोमा घुसाउनुहोस् एउटा मोड्युल ।
• त्यसपछि , प्रतिलिपि निम्न कोड र टाँस्नुहोस् कोड विन्डोमा।

9407

तपाईँको कोड अब चल्नको लागि तयार छ।

• पछि, चलाउनुहोस् म्याक्रो र आउटपुट हेर्नको लागि निम्न gif हेर्नुहोस्।

त्यहाँ एक पप-अप हुनेछ MsgBox तपाईँको एक्सेल पानाको तालिकाबाट प्रत्येक पङ्क्तिबाट प्रत्येक कक्षले बोकेको मान देखाउँदै।

VBA कोड स्पष्टीकरण

4857

चर परिभाषित गर्नुहोस्।

5065

कोडको यो टुक्राले पहिले तालिकामा पङ्क्तिहरू मार्फत लुप गर्न थाल्छ (“ TblStdnt ” हाम्रो तालिका नाम हो) र बाहेक मानहरूको दायरा फर्काउँछ। तालिकाको हेडर पङ्क्ति। त्यसपछि MsgBox मा दायराको मान पास गर्नुहोस्। त्यसपछि यो दायरा निकाल्न अर्को पङ्क्तिमा जान्छ र अन्तिम पङ्क्ति सम्म पुनरावृत्ति प्रक्रिया जारी राख्छ।

3। एक्सेलमा स्तम्भहरू जोडेर पङ्क्तिहरू मार्फत पुनरावृत्ति गर्न VBA म्याक्रो लागू गर्नुहोस्

यस खण्डले तपाइँको डेटासेटबाट पहिलो स्तम्भसँग स्तम्भहरू जोडेर तालिकामा पङ्क्तिहरू मार्फत कसरी लुप गर्ने भनेर देखाउनेछ। एक्सेलमा।

उदाहरणका लागि, हाम्रो डेटासेटको लागि, पहिले, हामी सेल B5 मा जॉन र 101 सेल C5 मा मार्फत पुनरावृत्ति गर्नेछौं र त्यसपछि पुनरावृत्ति गर्नेछौं। सेल B5 मा जोन र 89 सेल D5 मा तिनीहरूलाई पङ्क्ति 5 बाट जोडेर।

हामीलाई तपाइँ यो कसरी गर्न सक्नुहुन्छ भनेर देखाउनुहोस्। एक्सेलमा VBA म्याक्रो।

चरणहरू:

• पहिले, भिजुअल बेसिक सम्पादक <बाट खोल्नुहोस्। 1>विकासकर्ता ट्याब र घुसाउनुहोस् एउटा मोड्युल कोड विन्डोमा।
• दोस्रो, कोड विन्डोमा, प्रतिलिपि निम्न कोडर टाँस्नुहोस् यो।

1304

तपाईँको कोड अब चल्नको लागि तयार छ।

• तेस्रो, <1 म्याक्रो चलाउनुहोस्। नतिजा हेर्नको लागि तलको gif हेर्नुहोस्।

त्यहाँ एउटा पप-अप हुनेछ MsgBox तपाईंलाई concatenated मान देखाउँदै पहिलो र दोस्रो स्तम्भ ( कोलम B बाट सेल B5 मा जोन र स्तम्भ C बाट सेल C5 मा 101) र त्यसपछि कन्कटेनेट गरिएको मान पङ्क्ति नम्बर 5<को पहिलो र तेस्रो स्तम्भ ( कोलम B बाट कक्ष B5 मा र स्तम्भ D बाट कक्ष D5 मा 89 मा जोन। 2> तपाईंको डेटासेटबाट। र यो संयोजन कार्य तालिकाको अन्तिम पङ्क्तिमा नपुग्दासम्म जारी रहनेछ।

VBA कोड स्पष्टीकरण

9350

चर परिभाषित गर्नुहोस्।

6122

त्यसपछि कोडले सक्रिय पानाबाट तालिका चयन गर्दछ (“ TblConcatenate ” हाम्रो तालिकाको नाममा)।

3826

त्यसपछि, हेडर बाहेक प्रत्येक पङ्क्ति दोहोर्याउन थाल्छ। स्तम्भ। यदि पुनरावृत्तिले स्तम्भ हेडर र पङ्क्तिहरू बीचको दायरामा मिल्दो फेला पार्छ भने यसले मानलाई iValue चरमा भण्डार गर्छ।

3175

माथिको सर्त पूरा भएन भने, त्यसपछि कोडले MsgBox मा मान फ्याँक्छ र अवस्था समाप्त गर्दछ। त्यस पछि, यो अर्को दायरामा लुप गर्न जान्छ र अन्त्य पङ्क्ति सम्म दोहोरिरहन्छ। यो अन्तिम पङ्क्तिमा पुगेपछि, म्याक्रोले कोड कार्यान्वयन समाप्त गर्छ।

4. पुनरावृत्ति गर्न म्याक्रो इम्बेड गर्नुहोस्एक्सेलमा तालिकामा सबै स्तम्भहरू जोडेर पङ्क्तिहरू मार्फत

यस खण्डमा, हामी कसरी डेटासेटमा प्रत्येक पङ्क्तिमा रहेका सबै स्तम्भहरूलाई जोड्ने तरिका सिक्ने छौँ। एक्सेलमा VBA म्याक्रो।

कार्यान्वयन गर्ने चरणहरू जुन तल देखाइएको छ।

चरणहरू:

• पहिले, खोल्नुहोस् भिजुअल बेसिक सम्पादक विकासकर्ता ट्याबबाट र कोड विन्डोमा घुसाउनुहोस् एउटा मोड्युल ।
• त्यसपछि, निम्न कोड प्रतिलिपि गर्नुहोस् र टाँस्नुहोस् कोड विन्डोमा।

1590

तपाईँको कोड अब चल्नको लागि तयार छ।

<3

• अर्को, चलाउनुहोस् म्याक्रो कोड।

तपाईले माथिको gif बाट देख्न सक्नुहुन्छ कि त्यहाँ छ। एउटा पप-अप MsgBox तपाईँको एक्सेल कार्यपत्रको तालिकाबाट प्रत्येक पङ्क्तिमा रहेका सबै स्तम्भहरूको सङ्कलित मान देखाउँदै।

VBA कोड स्पष्टीकरण

1306

चर परिभाषित गर्नुहोस्।

4195

पानाको नाम सेट गर्नुहोस् जुन हामीले काम गर्नेछौं (“ ConcatenatingAllCol ” पानाको नाम हो। कार्यपुस्तिकामा)।

3987

डे हामीले काम गर्ने तालिकाको नाम ठीक गर्नुहोस् (“ TblConcatenateAll ” हाम्रो डेटासेटमा तालिकाको नाम हो)।

6685

तालिकाको प्रत्येक पङ्क्ति मार्फत पुनरावृत्ति सुरु हुन्छ।

5091

तालिकाको प्रत्येक पङ्क्तिको प्रत्येक स्तम्भबाट पुनरावृत्ति सुरु हुन्छ।

9601

प्रत्येक पङ्क्तिको प्रत्येक स्तम्भले बोक्ने मानहरूलाई प्रतिच्छेदन गरेर परिणाम भण्डार गर्नुहोस्। प्रत्येक पङ्क्तिमा रहेका सबै स्तम्भहरू स्क्यान गरेपछि, यो पास भयोMsgBox मा परिणाम। त्यसपछि फेरि अर्को पङ्क्तिमा लुप गर्न थाल्छ र तालिकाको अन्तिम पङ्क्तिमा नपुग्दासम्म लुपिङ जारी राख्छ।

थप पढ्नुहोस्: एक्सेल VBA सँग तालिकाको बहु स्तम्भहरू कसरी क्रमबद्ध गर्ने (२ विधिहरू)

5. VBA म्याक्रोको साथ तालिकाको पङ्क्तिहरू मार्फत लुप गरेर मान फेला परेको खण्डमा पुनरावृत्ति रोक्नुहोस्

मान्नुहोस् तपाईं तपाईको तालिकाको पङ्क्तिहरू मार्फत लुप गर्न चाहनुहुन्छ र जब यसले निश्चित मान फेला पार्छ तब लुपिङ रोक्नुहोस्<२>। तपाइँ यसलाई साधारण म्याक्रो कोड मार्फत गर्न सक्नुहुन्छ।

यसलाई कसरी गर्ने सिक्नुहोस् VBA Excel मा।

चरणहरू:

• सुरुमा, विकासकर्ता ट्याबबाट भिजुअल आधारभूत सम्पादक खोल्नुहोस् र कोड विन्डोमा घुसाउनुहोस् एउटा मोड्युल ।
• त्यसपछि, कोड विन्डोमा, प्रतिलिपि निम्न कोड र टाँस्नुहोस् यसलाई।

6249

तपाईँको कोड अब चल्नको लागि तयार छ। .

• पछि, चलाउनुहोस् म्याक्रो।
• यसले लूप सुरु गर्नेछ र जब यो रोक्छ दायरामा निर्दिष्ट मान (“ Edge ”) फेला पार्छ र परिणामलाई MsgBox मा फाल्छ।

तपाईँले माथिको छविबाट देख्न सक्नुहुन्छ, त्यहाँ एउटा पप-अप MsgBox तपाईँलाई सेल ठेगाना, $B$10 देखाउँदै छ, जहाँ हामीले फेला पारेका छौं। निर्दिष्ट मान, “ Edge ” ।

VBA कोड स्पष्टीकरण

9015

परिभाषित गर्नुहोस् चर।

4675

कोडको यो टुक्रा १ देखि १५ सम्म पङ्क्तिहरू लुप गर्नको लागि यहाँ छ। यदि यसले विशिष्ट शब्द फेला पार्छ भने" Edge " त्यसपछि यसले शब्द राखेको सेल ठेगानाको साथ परिणाम पास गर्छ। यो शब्दको खोजीमा पङ्क्तिहरू 1 देखि 15 सम्मका सबै डेटा स्क्यानिङ समाप्त नभएसम्म यो गर्न जारी रहन्छ।

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

6। VBA लाई प्रत्येक पङ्क्ति मार्फत लुप गर्नुहोस् र एक्सेलमा एक विशेष मान रंग गर्नुहोस्

यदि तपाइँ MsgBox मा निर्दिष्ट मानको सेल ठेगाना फाल्न चाहनुहुन्न भने के हुन्छ? तपाईले खोजिरहनु भएको मान बोक्ने सेललाई रङ लगाउन सक्नुहुन्छ ।

यसलाई VBA म्याक्रोसँग कसरी गर्ने भनेर जानौं।

चरणहरू:

• पहिले जस्तै, विकासकर्ता ट्याबबाट भिजुअल बेसिक सम्पादक खोल्नुहोस् र घुसाउनुहोस् कोड विन्डोमा मोड्युल ।
• त्यसपछि, निम्न कोड प्रतिलिपि र टाँस्नुहोस् कोड विन्डोमा।

4994

तपाईँको कोड अब चल्नको लागि तयार छ।

• त्यसपछि, चलाउनुहोस् म्याक्रो।
• यसले लुप सुरु गर्नेछ र जब यसले निर्दिष्ट मान (“ Edge ”) दायरामा फेला पार्छ र ColourIndex सँग सेललाई रङ फेला पार्छ तब रोक्छ। जुन तपाईंले कोडमा प्रदान गर्नुभयो।

तपाईंले माथिको छविबाट देख्न सक्नुहुन्छ, C ell B10 , जहाँ हामीले तोकिएको मान फेला पार्‍यौं, “ Edge ” रंगीन हुन्छ कोड कार्यान्वयन पछि।

VBA कोड व्याख्या

6518

परिभाषित गर्नुहोस्