आमच्या एक्सेल वर्कबुकमध्ये जेव्हा आमच्याकडे मोठा डेटासेट असतो, तेव्हा काहीवेळा आम्हाला जे विशिष्ट परिणाम मिळवायचे आहेत ते काढण्यासाठी आम्ही पंक्तीमधून लूप करू शकलो तर ते सोयीचे असते. VBA ची अंमलबजावणी करणे ही Excel मध्ये कोणतेही ऑपरेशन चालवण्यासाठी सर्वात प्रभावी, जलद आणि सुरक्षित पद्धत आहे. या लेखात, आम्ही तुम्हाला एक्सेलमध्ये VBA मॅक्रो सह सारणीच्या ओळींमधून कसे लूप करावे 11 वेगवेगळ्या पद्धती दाखवू.

वर्कबुक डाउनलोड करा

तुम्ही येथून विनामूल्य सराव एक्सेल कार्यपुस्तिका डाउनलोड करू शकता.

एक्सेलमधील टेबलच्या पंक्तींमधून लूप करण्यासाठी VBA सह 11 पद्धती

या विभागाचे अनुसरण करून, तुम्ही 11 वेगवेगळ्या पद्धतींसह सारणीच्या ओळींमधून कसे लूप करावे शिकाल, जसे की रिक्त सेलपर्यंत पंक्तींमधून लूप, विशिष्ट मूल्य सापडेपर्यंत पंक्तींमधून लूप, एक्सेलमध्ये VBA मॅक्रोसह ओळींमधून लूप आणि विशिष्ट सेलला रंग इ.

<8

पद्धतींचे वर्णन करण्यासाठी हा लेख फॉलो करेल असे डेटासेटचे उदाहरण वर दिले आहे.

1. सेल संदर्भ क्रमांकानुसार टेबलच्या प्रत्येक पंक्तीमधील प्रत्येक सेलमधून लूप करण्यासाठी VBA एम्बेड करा

तुम्हाला तुमच्या एक्सेल वर्कशीटमध्ये सारणीच्या प्रत्येक पंक्तीमधील प्रत्येक सेलमधून लूप करायचे असल्यास आणि रिटर्न व्हॅल्यू म्हणून सेल संदर्भ क्रमांक मिळवा , नंतर खाली चर्चा केलेल्या चरणांचे अनुसरण करा.

चरण:

• सुरुवातीला , तुमच्या कीबोर्डवर Alt + F11 दाबा किंवा जाव्हेरिएबल.

4661

कोडचा हा तुकडा 1 ते 15 पर्यंतच्या पंक्तींमधून लूप करण्यासाठी येथे आहे. जर त्याला विशिष्ट शब्द “ एज ” आढळला तर तो शब्द धारण करणाऱ्या सेलला रंग देतो. शब्द शोधण्यासाठी 1 ते 15 पंक्तींमधील सर्व डेटा स्कॅन करणे पूर्ण होईपर्यंत ते हे करत राहते.

अधिक वाचा: वर आधारित VLOOKUP टेबल अॅरे कसे वापरावे Excel मध्ये सेल मूल्य

समान रीडिंग

• TABLE फंक्शन Excel मध्ये अस्तित्वात आहे का?
• एक्सेलमध्ये सारणीचे सूचीमध्ये रूपांतर कसे करावे (3 द्रुत मार्ग)
• एक्सेलमधील श्रेणी टेबलमध्ये रूपांतरित करा (5 सोप्या पद्धती)
• एक्सेल टेबलमधील सूत्र प्रभावीपणे वापरा (4 उदाहरणांसह)
• एक्सेल टेबलचे नाव: तुम्हाला सर्व माहिती असणे आवश्यक आहे

7. प्रत्येक पंक्तीद्वारे लूप करण्यासाठी VBA लागू करा आणि Excel मध्ये प्रत्येक विषम पंक्तीला रंग द्या

मागील विभागातून, विशिष्ट मूल्य असलेल्या सेलला रंग कसा द्यावा हे आपण शिकलो. या विभागात, आपण सारणीच्या प्रत्येक पंक्तीमधून कसे लूप करावे आणि एक्सेलमध्ये VBA मॅक्रोसह प्रत्येक विषम पंक्ती रंगवावी हे शिकू.

प्रक्रिया कार्यान्वित करण्यासाठी चरण खाली वर्णन केले आहे.

चरण:

• आधी दाखवल्याप्रमाणे, विकसक कडून Visual Basic Editor उघडा टॅब आणि कोड विंडोमध्ये मोड्यूल घाला.
• नंतर, खालील कोड कॉपी करा आणि त्यात पेस्ट करा कोड विंडो.

6364

तुमचा कोड आता चालण्यासाठी तयार आहे.

• आता,मॅक्रो चालवा आणि आउटपुट पाहण्यासाठी खालील इमेज पहा.

सर्व विषम-संख्येच्या पंक्ती रंगीत आहेत वर्कशीटच्या टेबलमध्ये असलेल्या सर्व ओळींमधून लूप केल्यानंतर.

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

4273

व्हेरिएबल परिभाषित करा.

1765

आम्ही ज्या श्रेणीसह कार्य करू त्या श्रेणीची व्याख्या करा.

8278

कोडचा हा भाग सध्याच्या पंक्तीच्या पुढील पंक्तीपासून सुरू होणार्‍या, B4<सर्व पंक्तींमधील पुनरावृत्तीचा संदर्भ देतो. 25>. जर पंक्ती संख्यांना 2 ने विभाजित करण्याचा मोड पूर्णांक प्रकारात संग्रहित केलेल्या परत केलेल्या पंक्ती क्रमांकाच्या बरोबरीचा असेल, तर हा कोड कोडमध्ये प्रदान केलेल्या रंग निर्देशांकासह गणना करून काढलेल्या सर्व पंक्तींना रंग देतो. तो रेंजच्या शेवटी पोहोचेपर्यंत सर्व पंक्तींमधून फिरत राहतो.

8. व्हीबीए टू लूप थ्रू रो आणि एक्सेलमधील प्रत्येक सम पंक्ती रंगवा

मागील विभागात, आपण टेबलच्या प्रत्येक विषम पंक्तीला रंग कसा रंगवायचा ते शिकलो. या विभागात, आपण एक्सेलमधील VBA मॅक्रोसह सारणीच्या प्रत्येक पंक्तीमधून कसे लूप करावे आणि प्रत्येक सम रांगेला रंग कसा द्यावा शिकू.

प्रक्रिया कार्यान्वित करण्याच्या चरणांची खाली चर्चा केली आहे.

स्टेप्स:

• प्रथम, डेव्हलपर टॅबमधून व्हिज्युअल बेसिक एडिटर उघडा आणि इन्सर्ट करा कोड विंडोमध्ये मॉड्यूल .
• नंतर, खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

9631

तुमचा कोड आता तयार आहेचालवा.

• पुढे, मॅक्रो चालवा आणि परिणाम पाहण्यासाठी खालील इमेज पहा.

वर्कशीटच्या टेबलमध्ये असलेल्या सर्व पंक्तींमधून लूप केल्यानंतर सर्व सम-संख्येच्या पंक्ती रंगीत केल्या जातात.

1 सध्याच्या पंक्तीमधील तीन पंक्ती, B4 . ते प्रथम त्यास रंग देते नंतर पंक्तीची संख्या 2 ने वाढवते आणि डेटासेटच्या शेवटच्या पंक्तीपर्यंत पोहोचेपर्यंत त्यास रंग देत राहते.

9. एक्सेलमधील रिक्त सेलपर्यंत पंक्तीद्वारे पुनरावृत्ती करण्यासाठी मॅक्रो लागू करा

तुम्हाला तुमचा कोड असे कार्य करायचे असल्यास ते सारणीच्या सर्व पंक्तींमधून लूप करेल आणि रिक्त सेलमध्ये पोहोचल्यावर थांबेल , तर हा विभाग तुमच्यासाठी आहे. तुम्ही ते कार्य एक्सेल VBA मधील FOR लूप आणि Do-Til Loop या दोन्हीसह कार्यान्वित करू शकता.

9.1. FOR लूपसह

VBA Excel मध्ये FOR लूप सह रिक्त सेल येईपर्यंत टेबलमधील पंक्तींमधून लूप करा.

स्टेप्स:

• प्रथम, डेव्हलपर टॅबमधून Visual Basic Editor उघडा आणि Insert कोड विंडोमध्ये मॉड्युल .
• त्यानंतर, खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

4890

तुमचा कोड आता चालण्यासाठी तयार आहे.

• नंतर, चालवा मॅक्रो आणि परिणाम खाली gif मध्ये दर्शविला आहे.

मॅक्रो चालवल्यानंतर, ते टेबलमधील सर्व ओळींमधून लूप करू लागले आणि एकदा तो रिक्त सेल, सेल B8 वर पोहोचला, तेव्हा त्याने पुनरावृत्ती थांबवली .

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

7903

व्हेरिएबल परिभाषित करा.

4954

स्क्रीन अपडेटिंग इव्हेंट बंद करा.

2158

सेल B4 पासून सुरू होणार्‍या शेवटच्या पंक्तीपर्यंत सर्व पंक्ती संग्रहित करा.

6144

सेल B4 निवडा.

6228

कोडचा हा तुकडा सर्व ओळींमधून लूप सुरू करतो. जेव्हा त्याला एका ओळीत रिक्त सेल आढळतो तेव्हा तो निवडतो आणि तो शेवटपर्यंत पोहोचेपर्यंत पंक्ती स्कॅन करणे सुरू ठेवतो.

7942

स्क्रीन अपडेटिंग इव्हेंट चालू करा.

9.2. डू-अंटिल लूपसह

VBA मधील डू-एन्टिल लूप रिक्त सेल येईपर्यंत पंक्तीमधून लूप करा.

स्टेप्स:

• प्रथम, डेव्हलपर टॅबमधून Visual Basic Editor उघडा आणि Insert a कोड विंडोमध्ये मॉड्युल .
• नंतर, खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

3905

तुमचा कोड आता रन करण्यासाठी तयार आहे.

• नंतर, रन मॅक्रो. परिणाम खालील gif मध्ये दर्शविला आहे.

मॅक्रो चालवल्यानंतर, ते टेबलमधील सर्व ओळींमधून लूप करणे सुरू केले आणि एकदा तो रिक्त सेल, सेल B8 वर पोहोचला, त्याने पुनरावृत्ती थांबवली .

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

3836

आम्ही ज्या सेलमधून काम करू ते निवडा.

4040

रिक्त सेल सापडेपर्यंत वळण सुरू होते आणि चालू राहते.

5944

जेव्हा रिक्त सेल असतो एका ओळीत आढळले नंतर ते निवडा आणि पुनरावृत्ती थांबवा.

10. व्हीबीए मॅक्रो एक्सेलमधील एकाधिक रिक्त सेलपर्यंत पंक्तीद्वारे पुनरावृत्ती करण्यासाठी

मागील विभागात, आपण रिक्त सेल आढळल्यास लूप कसे थांबवायचे ते शिकले आहे. पण एकापेक्षा जास्त रिक्त सेल मिळेपर्यंत तुम्हाला पुनरावृत्ती थांबवायची नसेल तर काय.

टेबलमध्ये अनेक रिक्त सेल मिळेपर्यंत पंक्तींमधून लूप करा पायऱ्या सह VBA Excel खाली दाखवले आहेत.

चरण:

• सर्वप्रथम, वरून Visual Basic Editor उघडा. कोड विंडोमध्ये डेव्हलपर टॅब आणि घाला एक मॉड्यूल .
• नंतर, खालील कोड कॉपी करा आणि <1 कोड विंडोमध्ये>पेस्ट करा 1> मॅक्रो चालवा आणि आउटपुटसाठी खालील gif पहा.

मॅक्रो चालवल्यानंतर, ते वर थांबले नाही पहिला रिक्त सेल, सेल B8 . जेव्हा त्याला सेल B16 वर सलग दोन रिक्त सेल आढळले तेव्हा ते थांबले.

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

6679

सेल निवडा ज्यावरून आपण कार्य करू.

8846

सुरू होते आणि सलग दोन रिकाम्या सेल सापडत नाहीत तोपर्यंत वळण चालू ठेवते.

5511

जेव्हा सलग दोन रिकाम्या सेल आढळतात, तेव्हाते निवडा आणि पुनरावृत्ती थांबवा.

11. एक्सेलमध्ये रिक्त होईपर्यंत सर्व स्तंभ एकत्र करून पंक्तींमधून लूप करण्यासाठी VBA एम्बेड करा

हा विभाग तुम्हाला सारणीमधील सर्व पंक्तींमधून कसे लूप करायचे आणि रिक्त सेलपर्यंत सर्व स्तंभ कसे जोडायचे ते दर्शवेल. हे VBA Excel मध्ये आढळले आहे.

ते Excel मध्ये VBA macro सह कसे करायचे ते जाणून घेऊया.

चरण:

• प्रथम, डेव्हलपर टॅबमधून व्हिज्युअल बेसिक एडिटर उघडा आणि मोड्यूल घाला> कोड विंडोमध्ये.
• नंतर, खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

5050

तुमचा कोड आता चालण्यासाठी तयार आहे.

• नंतर, चालवा मॅक्रो आणि परिणामासाठी खालील gif पहा.

जसे तुम्ही वरील gif वरून पाहू शकता की तेथे एक पॉप-अप MsgBox आहे जो तुम्हाला प्रत्येक कॉलम्सचे एकत्रित मूल्य दर्शवित आहे. पंक्ती तुमच्या एक्सेल वर्कशीटच्या टेबलवरून. पण ते रिक्त सेलवर पोहोचल्यावर थांबले .

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

5464

व्हेरिएबल परिभाषित करा.

9111

आम्ही ज्या शीटचे नाव घेऊन काम करू ते सेट करा (“ ConcatenatingAllColUntilBlank ” हे वर्कबुकमधील शीटचे नाव आहे).

1407

आम्ही ज्या श्रेणीसह कार्य करू ते परिभाषित करा.

5617

कोडचा हा तुकडा अॅरेसह लूप सुरू करतो. अॅरेची सर्वात मोठी सबस्क्रिप्ट आणि ची खालची सीमा परत येईपर्यंत तो लूप चालू ठेवतोप्रथम परिमाण. मग ते दुसऱ्या मितीच्या खालच्या सीमा काढण्याच्या पुनरावृत्तीमध्ये प्रवेश करते. त्यानंतर, ते iResult व्हेरिएबलमधील सर्व एक्सट्रॅक्ट व्हॅल्यूज एकत्रित करून आणि परिणाम MsgBox मध्ये टाकून पास करते. जोपर्यंत तो रिक्त सेल शोधत नाही तोपर्यंत ते असेच करत राहते.

निष्कर्ष

समाप्त करण्यासाठी, या लेखाने तुम्हाला पंक्तींमधून कसे लूप करावे यावरील 11 प्रभावी पद्धती दाखवल्या आहेत. एका टेबलचे Excel मध्ये VBA मॅक्रो सह. मला आशा आहे की हा लेख तुमच्यासाठी खूप फायदेशीर ठरला आहे. विषयाशी संबंधित कोणतेही प्रश्न मोकळ्या मनाने विचारा.

• पुढे, पॉप-अप कोड विंडोमध्ये, मेनू बार, घाला -> मॉड्यूल .

• नंतर, खालील कोड कॉपी करा आणि कोडमध्ये पेस्ट करा विंडो.

6319

तुमचा कोड आता रन करण्यासाठी तयार आहे.

• आता, तुमच्यावर F5 दाबा कीबोर्ड किंवा मेनू बारमधून चालवा -> निवडा. Sub/UserForm चालवा. मॅक्रो चालवण्यासाठी तुम्ही सब-मेनू बारमधील स्मॉल प्ले आयकॉन वर क्लिक करू शकता.

• किंवा डेटासेट आणि परिणाम दृश्यमानपणे पहा आणि त्याची तुलना करा, तुम्ही कोड सेव्ह करू शकता आणि स्वारस्य असलेल्या वर्कशीटवर परत जाऊ शकता .
• तेथून, तुम्ही <1 क्लिक करू शकता>मॅक्रो विकसक टॅबमधून, मॅक्रो नाव निवडा, आणि नंतर चालवा क्लिक करा.

कोडच्या यशस्वी अंमलबजावणीनंतर, परिणाम पाहण्यासाठी वरील gif पहा. एक पॉप-अप MsgBox असेल जो तुम्हाला तुमच्या एक्सेल शीटमधील टेबलवरून प्रत्येक पंक्तीतील प्रत्येक सेलचा सेल संदर्भ क्रमांक दर्शवेल.

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

5272

कॉलम B शोधून टेबलमधील शेवटचा पंक्ती क्रमांक मिळवण्यासाठी.

7884

पंक्ती क्रमांक 4 सेट करा, जिथून आमचा डेटा सुरू होतो.

4954

पहिल्या रांगेतून लूप काढण्यासाठी.

4131

स्तंभ क्रमांक 2 सेट करा, जिथून आमचा डेटा सुरू होतो.

6880

शेवटची पाने मिळवण्यासाठी पंक्तीमधून लूप सुरू कराशेवटच्या पंक्तीपर्यंत वर्तमान पंक्तीचे मूल्यमापन करून स्तंभ क्रमांक.

2556

पहिल्या रांगेपासून शेवटच्या पंक्तीपर्यंत स्तंभाची लूप वाढवा.

2016

कोडचा हा तुकडा प्रक्रिया करण्यासाठी कार्य करतो, प्रत्येक नंतर वाढ पुनरावृत्ती करा आणि कोडचा परिणाम प्रदर्शित करा.

अधिक वाचा: एक्सेल टेबलमध्ये नवीन पंक्ती स्वयंचलितपणे कशी जोडायची

2 . मूल्यानुसार प्रत्येक पंक्तीमधील प्रत्येक सेलमधून लूप करण्यासाठी VBA लागू करा

जर तुम्हाला सारणीच्या प्रत्येक पंक्तीमधील प्रत्येक सेलमधून लूप घ्यायचा असेल आणि सेलमध्ये राहणारे मूल्य रिटर्न व्हॅल्यू म्हणून फेकून द्या. , नंतर हा विभाग तुम्हाला ते VBA Excel सह कसे करायचे ते शोधण्यात मदत करेल.

तुम्ही ते ListObject आणि <1 सह करू शकता>DataBodyRange गुणधर्म VBA . आम्ही तुम्हाला ऑब्जेक्ट आणि प्रॉपर्टी या दोन्हीसह मॅक्रो कोड दाखवू.

2.1. ListObject

VBA Excel मध्ये ListObject सह सेल मूल्यानुसार टेबलच्या प्रत्येक पंक्तीमधील प्रत्येक सेलमधून लूप करण्याच्या पायऱ्या खाली दिल्या आहेत.

चरण:

• पूर्वी प्रमाणेच, विकसक टॅबमधून Visual Basic Editor उघडा आणि कोड विंडोमध्ये एक मॉड्युल घाला.
• नंतर, कोड विंडोमध्ये, खालील कोड कॉपी करा आणि पेस्ट करा ते.

8112

तुमचा कोड आता रन करण्यासाठी तयार आहे.

• त्यानंतर, रन मॅक्रो जसे आम्ही तुम्हाला वरील विभागात दाखवले आहे. परिणाम gif मध्ये दर्शविला आहेखाली.

एक पॉप-अप असेल MsgBox तुम्हाला प्रत्येक पंक्तीतील प्रत्येक सेलद्वारे वाहून नेले जाणारे मूल्य दर्शवेल तुमच्या एक्सेल शीटमधील टेबलवरून.

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

1794

व्हेरिएबल्स परिभाषित करा.

8556

हा भाग कोडचा प्रथम टेबलमधील पंक्तींमधून लूप सुरू होतो (“ TblStudents ” हे आमचे टेबलचे नाव आहे). नंतर प्रत्येक पंक्तीसाठी स्तंभ प्रविष्ट करतो. त्यानंतर, सेलचे मूल्य MsgBox मध्ये पास करा. नंतर पुढील स्तंभावर जा. एका पंक्तीच्या सर्व स्तंभांमधून पुनरावृत्ती पूर्ण केल्यानंतर, ते पुढील पंक्तीवर जाते आणि शेवटच्या पंक्तीपर्यंत पुनरावृत्ती प्रक्रिया सुरू ठेवते.

2.2. DataBodyRange प्रॉपर्टी

टेबलमधून काढलेल्या डेटासह अधिक विशिष्ट होण्यासाठी, तुम्ही ListObject च्या DataBodyRange गुणधर्माचा वापर करू शकता. DataBodyRange गुणधर्म तुम्हाला शीर्षलेख पंक्ती आणि समाविष्ट पंक्तीमधील सूचीमधील श्रेणी असलेला निकाल देईल.

तुम्ही प्रत्येक पंक्तीमधील प्रत्येक सेलमधून लूप कसे करू शकता यावरील पायऱ्या VBA Excel मधील DataBodyRange सेल मूल्यानुसार सारणी खाली दिली आहे.

चरण:

• दाखवल्याप्रमाणे आधी, डेव्हलपर टॅबमधून Visual Basic Editor उघडा आणि कोड विंडोमध्ये Insert a Module .
• नंतर , खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

8373

तुमचा कोड आता रन करण्यासाठी तयार आहे.

• नंतर,मॅक्रो चालवा आणि आउटपुट पाहण्यासाठी खालील gif पहा.

एक पॉप-अप असेल MsgBox तुमच्या एक्सेल शीटमधील टेबलवरून प्रत्येक पंक्तीतील प्रत्येक सेलने दिलेले मूल्य दाखवत आहे.

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

7980

व्हेरिएबल परिभाषित करा.

2628

कोडचा हा तुकडा प्रथम टेबलमधील पंक्तींमधून लूप सुरू करतो (“ TblStdnt ” हे आमचे टेबलचे नाव आहे) आणि वगळून अनेक मूल्यांची श्रेणी मिळवते. टेबलची हेडर पंक्ती. त्यानंतर MsgBox मध्ये रेंजचे मूल्य पास करा. मग ती श्रेणी काढण्यासाठी पुढील पंक्तीवर जाते आणि शेवटच्या पंक्तीपर्यंत पुनरावृत्ती प्रक्रिया सुरू ठेवते.

3. एक्सेलमध्ये स्तंभ एकत्र करून पंक्तींद्वारे पुनरावृत्ती करण्यासाठी VBA मॅक्रो लागू करा

हा विभाग तुमच्या डेटासेटमधून पहिल्या स्तंभासह स्तंभ जोडून सारणीमधील पंक्तींमधून कसे लूप करायचे ते दर्शवेल. Excel मध्ये.

उदाहरणार्थ, आमच्या डेटासेटसाठी, प्रथम, आम्ही सेल B5 मधील जॉन आणि 101 सेल C5 द्वारे त्यांना एकत्र करून पुनरावृत्ती करू आणि नंतर पुनरावृत्ती करू. सेल B5 मधील जॉन आणि 89 सेल D5 मध्ये त्यांना पंक्ती 5 मधून एकत्रित करून.

तुम्ही ते यासह कसे करू शकता ते आम्हाला दाखवूया एक्सेलमध्ये VBA मॅक्रो.

स्टेप्स:

• प्रथम, Visual Basic Editor वरून उघडा. 1>डेव्हलपर टॅब आणि कोड विंडोमध्ये इन्सर्ट एक मॉड्यूल .
• दुसरं, कोड विंडोमध्ये, कॉपी खालील कोडआणि पेस्ट करा ते.

8138

तुमचा कोड आता रन करण्यासाठी तयार आहे.

• तिसरे, <1 मॅक्रो चालवा. निकाल पाहण्यासाठी खालील gif पहा.

एक पॉप-अप असेल MsgBox तुम्हाला एकत्रित मूल्य दर्शवेल पहिल्या आणि दुसर्‍या स्तंभातील सेलचे ( कोलम B5 मधील जॉन कॉलम B आणि 101 सेल C5 मधील कॉलम C ) आणि नंतर संयुक्त मूल्य पहिल्या आणि तिसऱ्या स्तंभातील सेलचे ( कोलम B मधील सेल B5 मधील जॉन आणि पंक्ती क्रमांक 5<मधील कॉलम डी मधील सेल D5 मधील 89) 2> तुमच्या डेटासेटवरून. आणि हे एकत्रीकरण ऑपरेशन टेबलच्या शेवटच्या पंक्तीपर्यंत पोहोचेपर्यंत चालूच राहील.

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

6990

व्हेरिएबल परिभाषित करा.

3103

नंतर कोड सक्रिय शीटमधून टेबल निवडतो (“ TblConcatenate ” आमच्या टेबलच्या नावात).

5246

त्यानंतर, हेडर वगळून प्रत्येक पंक्तीची पुनरावृत्ती सुरू होते. स्तंभ जर पुनरावृत्तीला स्तंभ शीर्षलेख आणि पंक्तींमधील श्रेणीमध्ये जुळणारे आढळले तर ते मूल्य iValue व्हेरिएबलमध्ये संग्रहित करते.

2490

वरील अट पूर्ण होत नसल्यास, नंतर कोड MsgBox मध्ये मूल्य टाकतो आणि स्थिती पूर्ण करतो. त्यानंतर, ते दुसर्‍या श्रेणीमध्ये लूपिंगकडे जाते आणि शेवटच्या पंक्तीपर्यंत पुनरावृत्ती चालू ठेवते. एकदा ते शेवटच्या पंक्तीपर्यंत पोहोचल्यावर, मॅक्रो कोडची अंमलबजावणी समाप्त करेल.

4. पुनरावृत्ती करण्यासाठी मॅक्रो एम्बेड कराएक्सेलमधील सारणीतील सर्व स्तंभ एकत्र करून पंक्तींद्वारे

या विभागात, आपण सह डेटासेटमध्ये प्रत्येक पंक्तीने धारण केलेले सर्व स्तंभ कसे जोडायचे ते शिकू. एक्सेल मधील VBA मॅक्रो.

कार्यान्वीत करण्याच्या पायर्‍या खाली दर्शविल्या आहेत.

चरण:

• प्रथम, उघडा Visual Basic Editor Developer टॅबमधून आणि कोड विंडोमध्ये Insert a Module .
• नंतर, खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

2484

तुमचा कोड आता रन करण्यासाठी तयार आहे.

<3

• पुढे, मॅक्रो कोड रन करा.

जसे तुम्ही वरील gif वरून पाहू शकता की तेथे आहे एक पॉप-अप MsgBox तुम्हाला तुमच्या Excel वर्कशीटच्या टेबलवरून प्रत्येक पंक्तीमध्ये असलेल्या सर्व स्तंभांचे एकत्रित मूल्य दर्शवित आहे.

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

2519

व्हेरिएबल्स परिभाषित करा.

5472

शीटचे नाव सेट करा ज्यावर आम्ही काम करू (“ ConcatenatingAllCol ” हे शीटचे नाव आहे. कार्यपुस्तिकेत).

7577

दे आम्ही ज्या टेबलच्या नावावर काम करू ते ठीक करा (“ TblConcatenateAll ” हे आमच्या डेटासेटमधील टेबलचे नाव आहे).

2162

टेबलच्या प्रत्येक ओळीतून पुनरावृत्ती सुरू करते.

3201

सारणीच्या प्रत्येक पंक्तीच्या प्रत्येक स्तंभातून पुनरावृत्ती सुरू होते.

6486

प्रत्येक पंक्तीच्या प्रत्येक स्तंभामध्ये असलेल्या मूल्यांना छेद देऊन निकाल संग्रहित करा. प्रत्येक रांगेत राहणार्‍या सर्व स्तंभांचे स्कॅनिंग केल्यानंतर, ते पास झालेपरिणाम MsgBox मध्ये. नंतर पुन्हा पुढील पंक्तीमध्ये लूप सुरू होते आणि ते टेबलच्या शेवटच्या पंक्तीपर्यंत पोहोचेपर्यंत लूप चालू ठेवते.

अधिक वाचा: एक्सेल VBA सह टेबलचे अनेक स्तंभ कसे क्रमवारी लावायचे (2 पद्धती)

5. VBA मॅक्रो

समजा तुम्हाला तुमच्या टेबलच्या ओळींमधून लूप करून पंक्ती वळवायची आहे आणि विशिष्ट मूल्य सापडल्यावर लूपिंग थांबवायचे असेल तर पुनरावृत्ती थांबवा . तुम्ही ते फक्त एका साध्या मॅक्रो कोडने करू शकता.

ते कसे करायचे ते जाणून घेऊया VBA Excel मध्ये.

चरण:

• प्रथम, डेव्हलपर टॅबमधून व्हिज्युअल बेसिक एडिटर उघडा आणि कोड विंडोमध्ये इन्सर्ट करा एक मॉड्यूल .
• नंतर, कोड विंडोमध्ये, खालील कोड कॉपी करा आणि पेस्ट करा तो.

6475

तुमचा कोड आता रन करण्यासाठी तयार आहे .

• नंतर, मॅक्रो चालवा .
• ते लूप सुरू करेल आणि जेव्हा ते थांबेल श्रेणीमध्ये विशिष्ट मूल्य (“ एज ”) शोधते आणि परिणाम MsgBox मध्ये टाकते.

जसे तुम्ही वरील प्रतिमेतून पाहू शकता, तेथे एक पॉप-अप MsgBox आहे जो तुम्हाला सेल पत्ता, $B$10 दर्शवितो, जिथे आम्हाला आढळले निर्दिष्ट मूल्य, “ एज ” .

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

9315

व्याख्या करा व्हेरिएबल.

1141

कोडचा हा तुकडा 1 ते 15 पंक्तींमधून लूप करण्यासाठी येथे आहे. जर त्याला विशिष्ट शब्द सापडला तर“ एज ” नंतर तो शब्द धारण केलेल्या सेल पत्त्यासह निकाल पास करतो. शब्द शोधण्यासाठी पंक्ती 1 ते 15 मधील सर्व डेटा स्कॅन करणे पूर्ण होईपर्यंत हे असे करणे सुरू ठेवते.

अधिक वाचा: एक्सेल टेबल मधून पंक्ती आणि स्तंभ कसे घालायचे किंवा हटवायचे

6. प्रत्येक पंक्तीमधून लूप करण्यासाठी VBA आणि एक्सेलमध्ये विशिष्ट मूल्य रंगवा

तुम्हाला MsgBox मध्ये निर्दिष्ट मूल्याचा सेल पत्ता टाकायचा नसेल तर काय? तुम्ही शोधत असलेल्या सेलला मूल्य धारण करणार्‍या सेलला रंग द्यावासा वाटेल.

ते VBA मॅक्रोने कसे करायचे ते शिकूया.

पायऱ्या:

• पूर्वीप्रमाणेच, विकसक टॅबमधून Visual Basic Editor उघडा आणि Insert कोड विंडोमध्ये मॉड्यूल .
• नंतर, खालील कोड कॉपी करा आणि कोड विंडोमध्ये पेस्ट करा .

9328

तुमचा कोड आता रन करण्यासाठी तयार आहे.

• त्यानंतर, रन मॅक्रो.
• ते लूप सुरू करेल आणि जेव्हा त्याला विशिष्ट मूल्य (“ एज ”) श्रेणीमध्ये सापडेल तेव्हा ते थांबवेल आणि कलरइंडेक्ससह सेलला रंग देईल जो तुम्ही कोडमध्ये प्रदान केला आहे.

तुम्ही वरील इमेजवरून पाहू शकता, C ell B10 , जिथे आम्हाला निर्दिष्ट मूल्य आढळले, “ एज ” रंगीत कोड अंमलबजावणीनंतर.

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

8695

व्याख्या करा