यह आलेख प्रदर्शित करेगा कि किसी अन्य शीट या कार्यपुस्तिका में कक्षों की श्रेणी की प्रतिलिपि बनाने के लिए VBA का उपयोग कैसे करें।
अधिक जानकारी के लिए, हमारा VBA कॉपी और पेस्टिंग ट्यूटोरियल पढ़ें।
मौजूदा शीट पर कॉपी करें
एक शीट से दूसरी शीट में सेल की एक श्रृंखला की प्रतिलिपि बनाने के लिए जो पहले से मौजूद है, हम निम्नलिखित कोड का उपयोग कर सकते हैं:
123456 | सब कॉपी एंड पेस्टActiveSheet.Range("A1:D10").Selectचयन.प्रतिलिपिशीट्स ("शीट 2")। चुनेंएक्टिवशीट.पेस्टअंत उप |
यह सक्रिय शीट श्रेणी A1:D10 में संग्रहीत जानकारी की प्रतिलिपि बनाएगा और इसे मौजूदा शीट2 में पेस्ट करेगा। चूंकि हमने शीट 2 में चयन करने के लिए सीमा निर्दिष्ट नहीं की है, यह स्वचालित रूप से इसे रेंज ("ए 1") में पेस्ट कर देगा। यह किसी भी फ़ॉर्मेटिंग को शीट 2 में पेस्ट करेगा जो शीट 1 की सीमा में था।
यदि हम इसे शीट 2 में किसी भिन्न स्थान पर पेस्ट करना चाहते हैं, तो हम पेस्ट करने के लिए प्रारंभिक सेल या श्रेणी का चयन कर सकते हैं। नीचे दिया गया कोड सेल E2 में शुरू होने वाली जानकारी को चिपका देगा।
1234567 | उप कॉपी और पेस्ट करने के लिए रेंजActiveSheet.Range("A1:D10").Selectचयन.प्रतिलिपिशीट्स ("शीट 2")। चुनेंरेंज ("ई 1")। चुनेंएक्टिवशीट.पेस्टअंत उप |
मानों को शीट 2 में पेस्ट करने के लिए और फ़ॉर्मेटिंग को शामिल न करने के लिए, हम निम्नलिखित कोड का उपयोग कर सकते हैं। एक बार फिर, यदि हम सेल A1 में पेस्ट करना चाहते हैं, तो हमें पृष्ठ की सीमा निर्दिष्ट करने की आवश्यकता नहीं है।
123456 | उप कॉपी और पेस्ट मानActiveSheet.Range("A1:D10").Selectचयन.प्रतिलिपिशीट्स ("शीट 2")। चुनेंचयन.पेस्ट विशेष पेस्ट:=xlPasteValuesअंत उप |
नई शीट पर कॉपी करें
एक नई शीट में कॉपी और पेस्ट करने के लिए, हम निम्नलिखित कोड का उपयोग कर सकते हैं:
123456 | सब कॉपी और पेस्ट न्यूशीटActiveSheet.Range("A1:D10").Selectचयन.प्रतिलिपिपत्रक। बाद में जोड़ें: = सक्रिय पत्रकएक्टिवशीट.पेस्टअंत उप |
मूल्यों की प्रतिलिपि बनाने के लिए, हम एक बार फिर xlPasteValues का उपयोग कर सकते हैं।
मौजूदा कार्यपुस्तिका में कॉपी करें
किसी भिन्न कार्यपुस्तिका में पूरी तरह से कॉपी और पेस्ट करने के लिए, हमारे पास या तो दोनों कार्यपुस्तिकाएं पहले से खुली हो सकती हैं, या हम कोड का उपयोग किसी अन्य कार्यपुस्तिका को खोलने के लिए कर सकते हैं, और फिर उस कार्यपुस्तिका में पेस्ट कर सकते हैं।
नीचे दिया गया यह कोड पहले से खुली हुई मौजूदा कार्यपुस्तिका में कॉपी हो जाता है।
1234567 | उप कॉपी और पेस्टमौजूदा किताबरेंज ("ए 1: डी 10")। चुनें:चयन.प्रतिलिपिविंडोज़ ("संयुक्त शाखाएं। xlsx")। सक्रिय करेंपत्रक। बाद में जोड़ें: = सक्रिय पत्रकएक्टिवशीट.पेस्टअंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
नीचे दिया गया यह कोड दूसरी कार्यपुस्तिका में एक नई शीट में कॉपी और पेस्ट करेगा जिसे कोड द्वारा खोला जाएगा।
1234567 | उप कॉपी और पेस्ट ओपनवर्कबुकरेंज ("ए 1: डी 9")। चुनेंचयन.प्रतिलिपिकार्यपुस्तिकाएँ। फ़ाइल नाम खोलें: = "C:\ExcelFiles\CombinedBranches.xlsx"पत्रक। बाद में जोड़ें: = सक्रिय पत्रकएक्टिवशीट.पेस्टअंत पत्रक |
युक्ति: कार्यपुस्तिकाओं में फ़ाइल का नाम बदलें। अपने स्वयं के फ़ाइल नाम के साथ तर्क खोलें!
नई कार्यपुस्तिका में कॉपी करें
हम नई कार्यपुस्तिका में कॉपी और पेस्ट भी कर सकते हैं।
123456 | उप कॉपी और पेस्ट नई कार्यपुस्तिकारेंज ("ए 1: डी 9")। चुनेंचयन.प्रतिलिपिकार्यपुस्तिकाएँ।जोड़ेंएक्टिवशीट.पेस्टअंत उप |