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

एक्सेल मैक्रोज़ अन्य ऑटोमेशन टूल्स की तरह व्यापक नहीं हो सकते हैं, लेकिन एक्सेल वीबीए की वैधता और दक्षता को कम नहीं किया जा सकता है। यदि आप एक्सेल और अन्य माइक्रोसॉफ्ट ऑफिस टूल्स जैसे वर्ड और एक्सेस में काम करते हैं, तो आप वीबीए और इसकी क्षमताओं के साथ गलत नहीं हो सकते।

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

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

एक डमी डेटासेट डाउनलोड करें

शुरुआत के लिए, आप अपने एक्सेल मैक्रो कौशल पर काम करने के लिए एक डमी डेटासेट डाउनलोड कर सकते हैं।

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

यदि आप साथ चलना चाहते हैं तो आप इस आलेख में प्रयुक्त डेटासेट डाउनलोड कर सकते हैं।

डाउनलोड: एक्सेल डेटासेट

1. एक्सेल मैक्रोज़ का उपयोग करके एक कॉलम को छाँटना

एक्सेल स्प्रेडशीट में डेटा कॉलम को सॉर्ट करने के लिए इस सरल कोड का उपयोग करें। यदि आपने डमी डेटासेट डाउनलोड किया है, तो आप कॉलम ई (इकाई बेची गई) को सॉर्ट करने का प्रयास कर सकते हैं।

एक नई एक्सेल फ़ाइल खोलें और इसे एक के साथ सहेजें एक्सेल मैक्रो-सक्षम कार्यपुस्तिका (.xlsm) कार्यपुस्तिका प्रकार। यह फ़ाइल किसी अन्य फ़ाइल से आपके डेटा को सॉर्ट करने के लिए मैक्रो को संग्रहीत करेगी।

सम्बंधित: उन्नत एक्सेल में महारत हासिल करने के लिए सर्वश्रेष्ठ ऑनलाइन पाठ्यक्रम

आप अपनी फ़ाइल (फ़ाइलों) को मैक्रो फ़ाइल से नियंत्रित करेंगे, जो आपकी कार्यपुस्तिकाओं के साथ अलग से इंटरैक्ट करेगी।

निम्नलिखित कोड दर्ज करें:

उप सॉर्टविथहेडर ()
कार्यपुस्तिकाएं ("वित्तीय नमूना। xlsx")। पत्रक (1)। सक्रिय करें
रेंज ("A1: P701")। सॉर्ट करें Key1: = रेंज ("e1"), ऑर्डर 1: = xl आरोही, हैडर: = xlहाँ
अंत उप

कहां:

• कुंजी1: उस कॉलम को परिभाषित करें जिसे आप सॉर्ट करना चाहते हैं
• आदेश1: आदेश विधि (आरोही/अवरोही)
• हैडर: यदि आपकी सामग्री में शीर्षलेख हैं, तो यह विकल्प इस प्रकार रहेगा xlहाँ. वैकल्पिक रूप से, चुनें xlनहीं.

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

2. एक ही कॉलम में डायनेमिक डेटा को छाँटना

ऐसे उदाहरण हो सकते हैं जिनमें आपका प्रारंभिक बिंदु परिभाषित किया गया हो, लेकिन आपका समापन बिंदु गतिशील है। ऐसे मामले में, आप अपने कोड को गतिशील बना सकते हैं ताकि वह स्वचालित रूप से सीमा का अंत उठा सके।

डेटा में परिवर्तन को समायोजित करने के लिए, नीचे दिए गए कोड का उपयोग करें:

उप सॉर्टविथहेडर ()
कार्यपुस्तिकाएं ("वित्तीय नमूना। xlsx")। पत्रक (1)। सक्रिय करें
रेंज ("ए 1", रेंज ("ए 1")। एंड (एक्सएलडाउन))। सॉर्ट की 1: = रेंज ("ई 2"), ऑर्डर 1: = xl आरोही, हैडर: = xlहाँ
अंत उप

कहां:

• अंत (एक्सएलडाउन): यह फ़ंक्शन स्वचालित रूप से अंतिम आबादी वाले सेल को स्वतः चुन लेगा

ध्यान दें: यदि सूत्र किसी कॉलम के भीतर एक रिक्त सेल का सामना करता है, तो यह पूर्ववर्ती सेल को श्रेणी के अंत के रूप में मानेगा।

सम्बंधित: माइक्रोसॉफ्ट एक्सेल में कस्टम कीबोर्ड शॉर्टकट कैसे बनाएं

3. एकाधिक स्तंभों को एक साथ छाँटना

ऐसी स्थितियाँ हो सकती हैं जब आप एक ही बार में कई कॉलम में डेटा सॉर्ट करना चाहते हैं। ऐसा करने के लिए, आप अपने उद्देश्य को प्राप्त करने के लिए निम्नलिखित कोड का उपयोग कर सकते हैं:

सब सॉर्ट मल्टीपल कॉलम ()
वर्कशीट्स के साथ ("शीट 1")
 .Cells (1, "A") के साथ।CurrentRegion
 .Cells.sort Key1:=.Range("B1"), Order1:=xlआरोही, _
 Key2:=.Range("E1"), Order2:=xlआरोही, _
 ओरिएंटेशन:=xlTopToBottom, हैडर:=xlहाँ
 के साथ समाप्त करना
 के साथ समाप्त करना
अंत उप

4. एकाधिक शीट्स में कॉलम सॉर्ट करना

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

एक विकल्प यह है कि प्रत्येक शीट को मैन्युअल रूप से चक्रित करें, आवश्यक स्तंभों को क्रमबद्ध करें, और फिर अगले चरण पर आगे बढ़ें। वैकल्पिक रूप से, क्यों न वीबीए को आपके लिए ऐसा करने दिया जाए?

नीचे दिए गए कोड का उद्देश्य कार्यपुस्तिका में प्रत्येक उपलब्ध शीट के माध्यम से चक्र करना है, और निर्दिष्ट कॉलम के आधार पर उपलब्ध डेटा को सॉर्ट करना है।

सम्बंधित: माइक्रोसॉफ्ट एक्सेल लुकअप स्प्रैडशीट्स को अधिक कुशलता से खोजने के लिए कार्य करता है

यहां बताया गया है कि आप एकाधिक शीट में कॉलम कैसे सॉर्ट कर सकते हैं:

उप सॉर्टडब्ल्यूएस ()
वर्कशीट के रूप में डिम WS
'इच्छित कार्यपत्रक को सक्रिय करें'
कार्यपुस्तिकाएं ("वित्तीय नमूना। xlsx")। सक्रिय करें
'लूप के लिए स्वचालित रूप से उपयोग कर प्रत्येक व्यक्तिगत कार्यपत्रक के माध्यम से साइकिल'
ActiveWorkbook में प्रत्येक ws के लिए। शीट्स
'प्रत्येक व्यक्तिगत कार्यपत्रक को सक्रिय करें'
डब्ल्यू.एस. सक्रिय
'श्रेणी परिभाषित करें और फिर कॉलम को अपनी आवश्यकताओं के आधार पर क्रमबद्ध करें। इस मामले में, केवल एक कॉलम सॉर्ट किया जा रहा है।
रेंज ("ए 1", रेंज ("पी 1")। एंड (एक्सएलडाउन))। सॉर्ट की 1: = रेंज ("ई 1"), ऑर्डर 1: = xl अवरोही, हैडर: = xlहाँ
'एक बार पिछली वर्कशीट को सॉर्ट करने के बाद, कमांड अगले वर्कशीट पर साइकिल चलाती थी'
अगला ws
अंत उप

सिंगल कोट्स से शुरू होने वाली सभी जानकारी वीबीए टिप्पणियां हैं। इन्हें निष्पादन चरण के दौरान निष्पादित नहीं किया जाता है। हालाँकि, आपके द्वारा जोड़ी गई प्रत्येक VBA टिप्पणी कोड के लिए एक सार्थक जोड़ है, क्योंकि आप कोड अनुभागों के भीतर सार, कार्यक्षमता और अन्य प्रासंगिक भागों को परिभाषित कर सकते हैं।

5. सॉर्ट किए गए डेटा को एक शीट से दूसरी शीट में कॉपी करना

ऐसी स्थिति की कल्पना करें जहां आप डेटा को सॉर्ट करना चाहते हैं और पूरे डेटासेट (या उसके भागों) को एक नई जोड़ी गई शीट में कॉपी करना चाहते हैं। ऐसे मामलों में, आप कार्य को करने के लिए नीचे दिए गए कोड का उपयोग कर सकते हैं:

उप सॉर्टडब्ल्यूएस ()
वर्कशीट के रूप में डिम WS
'इच्छित कार्यपत्रक को सक्रिय करें'
कार्यपुस्तिकाएं ("वित्तीय नमूना। xlsx")। सक्रिय करें
'लूप के लिए स्वचालित रूप से उपयोग कर प्रत्येक व्यक्तिगत कार्यपत्रक के माध्यम से साइकिल'
ActiveWorkbook में प्रत्येक ws के लिए। शीट्स
'प्रत्येक व्यक्तिगत कार्यपत्रक को सक्रिय करें'
डब्ल्यू.एस. सक्रिय
'श्रेणी परिभाषित करें और फिर कॉलम को अपनी आवश्यकताओं के आधार पर क्रमबद्ध करें। 
'इस मामले में, केवल एक कॉलम सॉर्ट किया जा रहा है।
रेंज ("ए 1", रेंज ("पी 1")। एंड (एक्सएलडाउन))। सॉर्ट की 1: = रेंज ("ई 1"), ऑर्डर 1: = xl अवरोही, हैडर: = xlहाँ
'एक बार पिछली वर्कशीट को सॉर्ट करने के बाद, कमांड अगले वर्कशीट पर साइकिल चलाती थी'
अगला ws
'नया डेटा संग्रहीत करने के लिए कार्यपुस्तिका के भीतर एक नई कार्यपत्रक बनाएं'
सक्रिय कार्यपुस्तिका। चादरें। जोड़ें। नाम = "परिणाम"
'सॉर्ट किए गए डेटा को नई जोड़ी गई शीट में कॉपी पेस्ट करें'
शीट्स ("शीट 1")। रेंज ("ए 1: पी 701")। कॉपी डेस्टिनेशन: = शीट्स ("परिणाम")। रेंज ("ए 1")
अंत उप

उपरोक्त कोड कॉलम ई में मानों को क्रमबद्ध करेगा, एक नई शीट जोड़ें परिणाम मौजूदा कार्यपुस्तिका में, और सॉर्ट किए गए परिणामों को सेल में पेस्ट करें ए 1.

एक्सेल में सॉर्टिंग मैक्रोज़ बनाना

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

सौभाग्य से, एक्सेल की कार्यक्षमता मैक्रोज़ के साथ समाप्त नहीं होती है। अधिक कुशल एक्सेल उपयोगकर्ता बनने के लिए कुछ टिप्स और ट्रिक्स देखें।

एक्सेल टिप्स और ट्रिक्स सीखने के लिए शीर्ष 9 वेबसाइटें और ब्लॉग

चाहे आप एक्सेल में मास्टर हैं या अभी शुरुआत कर रहे हैं, यहां शीर्ष नौ वेबसाइट और ब्लॉग हैं जिनका उपयोग आप कुछ टिप्स और ट्रिक्स सीखने के लिए कर सकते हैं।

आगे पढ़िए

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