वीबीए मैक्रो का उपयोग करके एक्सेल फाइलों को कैसे मर्ज करें?

एक्सेल वीबीए एक्सेल ऑटोमेशन का एक अभिन्न अंग है, और वीबीए के उपयोग और लाभों को कम करके नहीं आंका जा सकता है। यदि आप एक्सेल में एकाधिक शीट और कार्यपुस्तिकाओं को समेकित करने का प्रयास कर रहे एक कठिन लड़ाई में हैं, तो हम यहां सहायता के लिए हैं।

इस गाइड में उल्लिखित मैक्रोज़ आपको कुछ ही सेकंड में (या मिनट, यदि डेटा संपत्ति बड़ी है) प्रतीत होने वाले दुर्गम कार्य को प्राप्त करने में मदद करेंगे।

इस ट्यूटोरियल का अनुसरण करके, आप एक्सेल में अपना खुद का वीबीए मैक्रो बनाएंगे और एक ही फाइल में कई शीट्स को कुशलतापूर्वक मर्ज करेंगे।

एकाधिक एक्सेल शीट्स को एक फाइल में मर्ज करना

इस कार्य के लिए, डेटा को निम्नलिखित शीट में संग्रहीत किया जाता है:

• पत्रक 1
• पत्रक2
• पत्रक 3

ऊपर सूचीबद्ध पत्रक नाम केवल दृष्टांत उद्देश्यों के लिए हैं। यह वीबीए मैक्रो सामान्य है और शीट नामों पर निर्भर नहीं है; आप कोड को किसी भी शीट नाम (नामों) के साथ उपयोग करने के लिए अनुकूलित कर सकते हैं।

कोड चलाने के लिए पूर्व-आवश्यकताएँ

नीचे सूचीबद्ध VBA कोड को चलाने के लिए कुछ पूर्वापेक्षाएँ हैं।

आपको मैक्रो कोड को एक नई एक्सेल फाइल में स्टोर करना होगा। इस कार्यपुस्तिका को a. के साथ सहेजें

.xlsm विस्तार। आप VBA मैक्रो कार्यपुस्तिका को किसी भी नाम से सहेज सकते हैं।

एक नई एक्सेल फ़ाइल खोलें; दबाएँ ऑल्ट + F11 एक्सेल वीबीए संपादक खोलने के लिए अपने कीबोर्ड पर। एक बार संपादक खुलने के बाद, पर क्लिक करके एक नया कोड मॉड्यूल जोड़ें डालने शीर्ष पर टैब। चुनते हैं मापांक एक नया मॉड्यूल सम्मिलित करने के लिए; यह वह जगह है जहां आप नीचे दिए गए वीबीए मैक्रो कोड दर्ज करेंगे।

समेकित की जाने वाली डेटा शीट पूरी तरह से एक अलग कार्यपुस्तिका में होनी चाहिए। कार्यपुस्तिका और शीट का नाम आप जो भी चुनते हैं वह हो सकता है।

जैसे ही आप वीबीए कोड निष्पादित करते हैं, वीबीए मैक्रो प्रत्येक उपलब्ध वर्कशीट के माध्यम से चक्र में होगा प्राथमिक कार्यपुस्तिका (डेटा कार्यपुस्तिका) और सामग्री को उसी के भीतर एक नई जोड़ी गई शीट में पेस्ट करें कार्यपुस्तिका

समेकित डेटा नाम की शीट में उपलब्ध होगा समेकित।

वीबीए कोड चलाना

नए सहेजे गए मैक्रो कोड को चलाने का समय आ गया है। इस कोड को VBA संपादक के मॉड्यूल में कॉपी-पेस्ट करें:

उप समेकित_शट्स ()
'कोड और वीबीए डेटा प्रकारों के भीतर उपयोग किए जाने वाले विभिन्न चर घोषित करें'
वर्कशीट के रूप में मंद sht, वर्कशीट के रूप में sht1, पूर्णांक के रूप में अंतिम, पूर्णांक के रूप में lastrow1
'निष्पादन के दौरान स्क्रीन फ़्लिकरिंग और अलर्ट पॉप-अप अक्षम करें'
आवेदन के साथ
.स्क्रीन अपडेट करना = झूठा
.डिस्प्लेअलर्ट्स = असत्य
के साथ समाप्त करना
'प्राथमिक कार्यपुस्तिका का नाम मैक्रो चर में संग्रहीत करें। Test.xlsx को अपनी प्राथमिक कार्यपुस्तिका के नाम से बदलें
सेट wbk1 = कार्यपुस्तिकाएं ("Test.xlsx")
'इस पर कार्य करने से पहले कार्यपुस्तिका को सक्रिय करें'
wbk1.सक्रिय करें
'यह जांचने के लिए लूप के लिए एक वीबीए चलाएं कि समेकित शीट पहले से मौजूद है या नहीं। यदि यह मौजूद है, तो लूप के लिए इसे हटा देगा।
wbk1.Sheets में प्रत्येक शट के लिए
अगर शट। नाम = "समेकित" फिर शट। हटाएं
अगला शट
'नए समेकित डेटा को संग्रहीत करने के लिए एक नई शीट जोड़ें
कार्यपत्रक। जोड़ें। नाम = "समेकित"
'समेकित पत्रक के भीतर प्रत्येक व्यक्तिगत कॉलम में कुछ शीर्षलेख जोड़ें'
शीट्स के साथ ("समेकित")
.रेंज ("ए 1")। मान = "ऑर्डरडेट"
.रेंज ("बी 1")। मान = "क्षेत्र"
रेंज ("सी 1")। मान = "प्रतिनिधि"
.रेंज ("डी 1")। मान = "आइटम"
.रेंज ("ई 1")। मान = "इकाइयां"
.रेंज ("f1")। मान = "यूनिटकॉस्ट"
.रेंज ("g1")। मान = "कुल"
के साथ समाप्त करना
'नई बनाई गई शीट समेकित प्राथमिक कार्यपुस्तिका में प्रत्येक व्यक्तिगत शीट से समेकित डेटा रखेगी'
i = 1 के लिए wbk1 के लिए। वर्कशीट। गिनती
यदि पत्रक (i).नाम <> "समेकित" तो
'कार्यपुस्तिका में डेटा शीट से अंतिम आबादी वाली पंक्ति को कैप्चर करें'
लास्ट्रो = शीट्स (i)। रेंज ("ए 1")। एंड (एक्सएलडाउन)। रो
'समेकित शीट में अंतिम आबादी वाली पंक्ति को कैप्चर करें'
lastrow1 = wbk1.Sheets("Consolated").Range("a1048576").End (xlUp).Row + 1
'स्रोत पत्रक से डेटा की प्रतिलिपि बनाएँ और समेकित पत्रक में चिपकाएँ'
शीट्स (i)। रेंज ("ए 2: जी" और लास्ट्रो)। कॉपी डेस्टिनेशन: = शीट्स ("कंसोलिडेटेड")। रेंज ("ए" और लास्ट्रो 1)
अगर अंत
अगला मैं
'भविष्य में उपयोग के लिए एक्सेल वीबीए फ़ंक्शन सक्षम करें'
आवेदन के साथ
.स्क्रीनअपडेटिंग = सही
.डिस्प्लेअलर्ट्स = ट्रू
के साथ समाप्त करना
अंत उप

वीबीए कोड समझाया गया

सबसे पहले, कोड के भीतर आपके द्वारा उपयोग किए जा रहे सभी चर घोषित करें और कोड को निर्बाध रूप से चलाने के लिए उन्हें सही VBA डेटा प्रकारों के साथ असाइन करें।

एक बार जब आप चर घोषित कर देते हैं, तो कुछ बुनियादी हाउसकीपिंग की आवश्यकता होती है। यह स्क्रीन झिलमिलाहट को अक्षम करके और पॉप-अप अलर्ट को दबाकर किया जाता है। उदाहरण के लिए, जब आप वीबीए कोड का उपयोग करके किसी मौजूदा शीट को हटाते हैं, तो एक्सेल के भीतर एक प्रॉम्प्ट शीट को हटाने से पहले पुष्टि के लिए कहता है। निष्पादन की गति बढ़ाने के लिए इस तरह के संकेतों को दबा दिया जाता है।

अगले चरण में, आपको कार्यपुस्तिका का नाम परिभाषित करना होगा, जिसमें आपका सारा डेटा शामिल है। बदलने के टेस्ट.xlsx आपकी कार्यपुस्तिका के नाम और विस्तार के साथ। सुनिश्चित करें कि आपने नाम को उद्धरणों से घेर लिया है।

प्राथमिक कार्यपुस्तिका को सक्रिय करें और नाम के साथ किसी भी मौजूदा पत्रक को हटा दें समेकित किसी भी पहले से संग्रहीत डेटा को खत्म करने के लिए। वीबीए कोड प्रत्येक शीट के माध्यम से टॉगल करता है, और जैसे ही यह शीट नाम का सामना करता है समेकित यह इसे हटा देगा। यह का उपयोग करके किया जाता है वीबीए आईएफ स्टेटमेंट, जो तार्किक स्थितियों की जांच करता है और शर्त पूरी होते ही शीट को हटा देता है।

समेकित डेटा को संग्रहीत करने के लिए प्राथमिक कार्यपुस्तिका में एक नई शीट जोड़ी जाती है। इसके बाद, इस शीट में पूर्व-स्वरूपित, मानकीकृत शीर्षलेख जोड़े जाते हैं। आप उद्धरणों के भीतर सेल संदर्भों के आगे की जानकारी को अपडेट करके शीर्षकों (कॉलम हेडर) के मूल्यों को बदल सकते हैं।

उदाहरण के लिए: .रेंज ("ए 1") = "ऑर्डरडेट" से बदला जा सकता है .रेंज ("ए 1") = "ऑर्डर नंबर"

इसके बाद, प्रत्येक वर्कशीट के माध्यम से लूप के लिए एक वीबीए टॉगल करता है, शीट की सामग्री की प्रतिलिपि बनाता है, और सामग्री को चिपकाता है समेकित कार्यपुस्तिका में अगली शीट पर जाने से पहले कार्यपत्रक। यह प्रक्रिया तब तक दोहराई जाती है जब तक कि सभी शीट कॉपी नहीं हो जातीं।

इस प्रक्रिया के दौरान, सभी पंक्तियों की स्वतः गणना की जाती है और समेकित शीट में चिपका दी जाती है। डेटा को चिपकाने से पहले अंतिम आबादी वाली पंक्ति की स्वतः गणना की जाती है। मैक्रो गतिशील है और प्रत्येक कार्यपत्रक के भीतर अलग-अलग डेटा पंक्तियों को समायोजित कर सकता है।

सम्बंधित: उन्नत Microsoft Excel सुविधाएँ जो आपको अवश्य जाननी चाहिए

एक बार सभी शीट से डेटा को मुख्य समेकन शीट में चिपका दिया जाता है, तो मैक्रो कोड के अंतिम चरण में चला जाता है। प्रारंभ में अक्षम किए गए VBA फ़ंक्शन भविष्य में उपयोग के लिए फिर से सक्षम किए गए हैं।

एक्सेल वीबीए मैक्रो का उपयोग करके एकाधिक शीट्स को समेकित करना

एक्सेल वीबीए एक फालतू प्रोग्रामिंग भाषा है, जो सभी एक्सेल घटकों के साथ अच्छी तरह से काम करती है। कोड का प्रत्येक भाग आवश्यक है, और यह याद रखना महत्वपूर्ण है कि निष्पादन एक लाइन-बाय-लाइन निष्पादन प्रणाली पर निर्भर है, इसलिए आपको कोड लाइनों के क्रम को नहीं बदलना चाहिए।

अपनी आवश्यकताओं के लिए कोड को अनुकूलित करने के लिए, आप आवश्यक परिवर्तन कर सकते हैं और सेकंड में डेटा को कुशलतापूर्वक और प्रभावी ढंग से समेकित करने के लिए इस कोड को चला सकते हैं।

डेटा सॉर्ट करने के लिए 5 कूल माइक्रोसॉफ्ट एक्सेल मैक्रोज़

इन एक्सेल मैक्रोज़ के साथ डेटा प्रबंधन को आसान बनाएं।

आगे पढ़िए

लेखक के बारे में