VBA में कॉपी पेस्ट, हम एक्सेल वर्कशीट में जो करते हैं, उसके समान है, जैसे हम किसी वैल्यू को कॉपी कर सकते हैं और दूसरी सेल में पेस्ट कर सकते हैं, हम पेस्ट स्पेशल का उपयोग केवल वैल्यू पेस्ट करने के लिए कर सकते हैं, इसी तरह VBA में हम रेंज प्रॉपर्टी के साथ कॉपी मेथड का उपयोग करते हैं। एक सेल से दूसरे सेल में वैल्यू कॉपी करें और वर्कशीट फंक्शन पेस्ट स्पेशल या पेस्ट मेथड का उपयोग करने के लिए वैल्यू पेस्ट करें।
VBA में कॉपी पेस्ट कैसे करें?
नीचे VBA का उपयोग करके एक्सेल में कॉपी-पेस्ट करने के तरीके के कुछ उदाहरण दिए गए हैं।
एक्सेल में हम जो मूल चीज़ करते हैं, वह है हम कॉपी, हम कट करते हैं, और हम डेटा को एक सेल से दूसरे सेल में पेस्ट करते हैं। इसके लिए किसी विशेष परिचय की आवश्यकता नहीं है। हालांकि, VBA कोडिंग सीखने के दौरान कोडिंग भाषा में समान अवधारणा को समझना महत्वपूर्ण है। VBA में कॉपी पेस्ट हम रूटीन कार्य है जो हम दिन में दिन में करते हैं। पहले कॉपी करने के लिए, हमें यह तय करने की आवश्यकता है कि किस सेल को कॉपी करना है।
उदाहरण # 1 - रेंज ऑब्जेक्ट का उपयोग करके कॉपी और पेस्ट वैल्यू
मान लें कि आपके पास सेल A1 में "एक्सेल VBA" शब्द है।
उदाहरण के लिए, उदाहरण के लिए, यदि आप सेल A1 की प्रतिलिपि बनाना चाहते हैं, तो हम VBA RANGE ऑब्जेक्ट का उपयोग कर सकते हैं।
कोड:
उप Copy_Example () रेंज ("A1")। अंत उप
जिस क्षण आप सेल का संदर्भ लेते हैं, हम उसके साथ सभी गुण और तरीके देख सकते हैं। इसलिए " कॉपी " विधि का चयन करें।
कोड:
Sub Copy_Example () रेंज ("A1")। Copy End Sub
विधि का चयन करने के बाद, कॉपी विधि के तर्क को देखने के लिए स्थान कुंजी दबाएं।
इसे कहते हैं डेस्टिनेशन।
यह कुछ भी नहीं है, लेकिन आप PBA की विधि का चयन किए बिना VBA में मूल्यों को कॉपी-पेस्ट कहां करना चाहते हैं।
यदि हम एक ही शीट में चिपका रहे हैं, तो हम रेंज ऑब्जेक्ट का उपयोग करके सेल का चयन कर सकते हैं। यदि हम B3 सेल में मान चिपकाना चाहते हैं, तो हम कहते हैं कि हम गंतव्य को "श्रेणी (" B3 ") के रूप में रख सकते हैं ।
कोड:
उप Copy_Example () श्रेणी ("A1")। प्रतिलिपि गंतव्य: = श्रेणी ("B3") समाप्ति उप
यह सेल A1 से डेटा कॉपी करेगा और सेल B3 में पेस्ट करेगा।
हम डेटा पेस्ट करने के लिए नीचे दी गई विधि का भी उपयोग कर सकते हैं।
कोड:
उप Copy_Example () रेंज ("A1")। कॉपी रेंज ("B3") ActiveSheet.Paste अंत का चयन करें
सबसे पहले, हम सेल A1 से डेटा कॉपी और सेल B3 में पेस्ट करेंगे।
उदाहरण # 2 - समान कार्यपुस्तिका में एक और वर्कशीट पर कॉपी करें
अब, यदि हम VBA मैक्रो का उपयोग करके विभिन्न कार्यपत्रकों से मान को कॉपी-पेस्ट करना चाहते हैं, तो गंतव्य तर्क में, हमें वर्कशीट ऑब्जेक्ट का उपयोग करके शीट नाम का संदर्भ देना होगा, फिर उस कार्यशाला में कक्षों की श्रेणी का उल्लेख करें। नीचे दिया गया कोड काम करेगा।
कोड:
उप Copy_Example () श्रेणी ("A1")। प्रतिलिपि गंतव्य: = कार्यपत्रक ("शीट 2")। श्रेणी ("B3") अंतिम उप
यदि हम किसी विशेष शीट से डेटा को कॉपी करना चाहते हैं और किसी अन्य विशेष शीट में पेस्ट करना चाहते हैं, तो हमें शीट के दोनों नामों का उल्लेख करना होगा।
सबसे पहले हमें कॉपी शीट का उल्लेख करना होगा।
वर्कशीट ("शीट 1")। रेंज ("ए 1")। कॉपी
फिर गंतव्य तर्क में, हमें लक्षित कार्यपत्रक नाम और कक्ष की श्रेणी का उल्लेख करना होगा।
गंतव्य: = कार्यपत्रक ("शीट 2")। रेंज ("बी 3")
तो कोड इस तरह होना चाहिए।
कोड:
उप Copy_Example () वर्कशीट ("शीट 1")। रेंज ("A1")। कॉपी डेस्टिनेशन: = वर्कशीट ("शीट 2")। रेंज ("बी 3") एंड।
उदाहरण # 3 - एक वर्कबुक से दूसरी वर्कबुक पर कॉपी करें
हमने देखा है कि एक ही कार्यपुस्तिका में वर्कशीट से दूसरे वर्कशीट में कॉपी कैसे किया जाता है। लेकिन हम इसे एक वर्कबुक से दूसरी वर्कबुक में भी कर सकते हैं।
नीचे दिए गए कोड पर एक नज़र डालें।
कोड:
SubCopy_Example () वर्कबुक ("बुक 1.xlsx")। वर्कशीट ("शीट 1")। रेंज ("A1")। कॉपी वर्कबुक ("बुक 2.xlsx")। सक्रिय करें ActiveWorkbook .orksheets ("शीट 2") का चयन करें। ActiveSheet.Paste अंत उप
सबसे पहले यह कार्यपुस्तिका "शीट 1" से कार्यपत्रक "Book1.xlsx" सेल A1 से डेटा की प्रतिलिपि बनाएगा।
" वर्कबुक (" बुक 1.xlsx ")। वर्कशीट (" शीट 1 ")। रेंज (" ए 1 ")।"
फिर यह वर्कबुक "बुक 2.xlsx" को सक्रिय करेगा।
कार्यपुस्तिकाएं ("पुस्तक 2.xlsx")। सक्रिय करें
सक्रिय कार्यपुस्तिका में, यह कार्यपत्रक "शीट 2" का चयन करेगा।
ActiveWorkbook.Worksheets ("शीट 2") चुनें
अब सक्रिय शीट में, यह पेस्ट होगा।
ActiveSheet.Paste
VBA में कॉपी-पेस्ट का उपयोग करने का वैकल्पिक तरीका
हमारे पास एक सेल से दूसरे सेल में डेटा रखने का एक और वैकल्पिक तरीका है। मान लें कि आपके पास सेल A1 में "एक्सेल VBA" शब्द है और आपको सेल B3 में आने के लिए समान होना चाहिए।
एक विधि जिसे हमने देखा है वह VBA कॉपी और पेस्ट विधि का उपयोग कर रही है। अब मैं आपको वैकल्पिक तरीकों में से एक दिखाऊंगा। समझने के लिए कोड के नीचे के टुकड़े को देखें।
कोड:
उप Copy_Example1 () श्रेणी ("A1")। मान = श्रेणी ("B3")। मान अंत उप
The above says whatever the value is there in the cell A1 should be equal to the value in the cell B3.
Range("A1").Value = Range("B3").Value
Even though this is not a copy and paste method still adds more value to our coding knowledge.
Top Ways of VBA Copy and Paste as Values
Now we will see different ways of VBA copy and paste values. Assume you are in the cell A1 as shown in the below image.
- If we want to copy and paste, we need to reference the cell here. Rather we can just use a property of Selection. Copy method.
Code:
Sub Copy_Example1() Selection.Copy Destination:=Range("B3") End Sub
OR
Sub Copy_Example1() ActiveCell.Copy Destination:=Range("B3") End Sub
- If you want to copy the entire used range of the worksheet, you can use the below code.
Code:
उप Copy_Example2 () वर्कशीट ("शीट 1")। UsedRange.Copy गंतव्य: = कार्यपत्रक ("शीट 2")। रेंज ("A1") एंड।
यह वर्कशीट "Sheet1" में संपूर्ण उपयोग की गई सीमा को कॉपी करेगा और वर्कशीट "Sheet2" में समान पेस्ट करेगा।
