मैक्रो का उपयोग करके डेटा को एक एक्सेल शीट से दूसरे में कॉपी करें

आप उसी कार्यपुस्तिका में एक एक्सेल वर्कशीट से दूसरी शीट में डेटा कॉपी करने के लिए मैक्रो का उपयोग कर सकते हैं

क्या आप किसी क्षेत्र की सामग्री को एक कार्यपत्रक से दूसरे कार्यपत्रक में स्थानांतरित करना चाहेंगे? एक्सेल के इंटरैक्टिव उपयोग के साथ करना आसान है। लेकिन आप मैक्रो के साथ काम कैसे करते हैं? एक लूप बनाएं जो उन सभी कोशिकाओं के माध्यम से पुनरावृत्त हो जिन्हें आप कॉपी करना चाहते हैं। मैक्रो इस तरह दिखता है:

उप प्रतिलिपि क्षेत्र ()
वर्कशीट के रूप में डिम क्वेलटैब
वर्कशीट के रूप में मंद लक्ष्य टैब
रेंज के रूप में मंद सेल
लंबे समय तक मंद काउंटर
काउंटर = 1
रेंज = "A1: A10"
स्रोत टैब सेट करें = ActiveWorkbook.Worksheets ("तालिका 1")
लक्ष्य टैब सेट करें = ActiveWorkbook.Worksheets ("Table2")
SourceTab.Range में प्रत्येक सेल के लिए ("A1: A10")
लक्ष्य तालिका सेल (काउंटर, 1) = सेल
काउंटर = काउंटर + 1
अगली सेल
अंत उप

"स्रोत टैब" चर की परिभाषा में, आप कार्यपुस्तिका में स्रोत तालिका का नाम निर्दिष्ट करते हैं। यह वह वर्कशीट है जिससे आप डेटा कॉपी करना चाहते हैं। मैक्रो में यह "टेबल 1" शीट है।

जिस वर्कशीट में आप डेटा कॉपी करना चाहते हैं उसका नाम निर्धारित करने के लिए "टारगेट टैब" टैग का उपयोग करें।

क्षेत्र A1: A10 मैक्रो में कॉपी किया गया है। यदि आप किसी भिन्न क्षेत्र का उपयोग करना चाहते हैं, तो मैक्रो को तदनुसार समायोजित करें।

आप लक्ष्य तालिका में पंक्ति को नियंत्रित करने के लिए "काउंटर" टैग का उपयोग करते हैं जिसमें कोशिकाओं का सम्मिलन शुरू करना है। डेटा को सेल में एक के नीचे एक कॉपी किया जाता है

मैक्रो में प्रवेश करने के लिए, VBA संपादक लाने के लिए एक्सेल में ALT F11 दबाएं। एक खाली मॉड्यूल शीट डालने के लिए INSERT - MODULE कमांड का उपयोग करें। मैक्रो को सीधे एक्सेल से शुरू करने के लिए, कुंजी संयोजन ALT F8 का उपयोग करें।

किसी कार्यपुस्तिका में संपूर्ण कार्यपत्रक की प्रतिलिपि बनाएँ

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

उप कॉपीएक्टिवटेबल ()
ActiveSheet.Copy के बाद: = कार्यपत्रक (कार्यपत्रक। गणना)
अंत उप

मैक्रो शुरू होने के बाद, सक्रिय कार्यपुस्तिका में एक कार्यपत्रक जोड़ा जाता है। यह उस वर्कशीट की कॉपी है जो मैक्रो को कॉल किए जाने पर सक्रिय थी। दो कार्यपत्रकों को एक दूसरे से अलग करने के लिए, Excel प्रतिलिपि की गई कार्यपत्रक के पीछे एक क्रमागत संख्या बनाता है। निम्नलिखित आंकड़ा दिखाता है कि "बिक्री" वर्कशीट की प्रतिलिपि बनाने के बाद तालिका रजिस्टर में यह कैसा दिखता है: