Excel में किसी अन्य कार्यपुस्तिका में डेटा की प्रतिलिपि बनाएँ
यह आलेख आपको Microsoft Excel में किसी अन्य कार्यपुस्तिका में डेटा की प्रतिलिपि बनाने के दोनों तरीकों से परिचित कराएगा।
![](http://img.brin-designs.com/img/games/841/copy-data-another-workbook-excel.png)
- उसी कार्यपुस्तिका में डेटा स्थानांतरित या कॉपी करें
- विभिन्न कार्यपुस्तिकाओं में डेटा स्थानांतरित या कॉपी करें
- VBA का उपयोग करके डेटा स्थानांतरित या कॉपी करें
उसी कार्यपुस्तिका में डेटा स्थानांतरित या कॉपी करें
पहला चरण उस शीट का चयन करना है जिसे आप स्थानांतरित या कॉपी करना चाहते हैं। कई शीटों का चयन करने के लिए, बस अपनी पहली शीट का चयन करें, और फिर, उन अतिरिक्त शीटों पर क्लिक करते समय नियंत्रण कुंजी दबाए रखें, जिन्हें आप कॉपी करना चाहते हैं।ऊपरी टूलबार के होम टैब पर, सेल समूह खोजें, और प्रारूप पर क्लिक करें। ऑर्गनाइज़ शीट्स के तहत, मूव या कॉपी शीट पर क्लिक करें।
एक डायलॉग बॉक्स खुलेगा। पहले की सूची में, आप या तो उस शीट पर क्लिक कर सकते हैं, जिसके पहले आप स्थानांतरित या प्रतिलिपि की गई शीट सम्मिलित करना चाहते हैं, या आप अपनी कार्यपुस्तिका में अंतिम शीट के बाद शीट सम्मिलित करने के लिए अंत में क्लिक कर सकते हैं।
उन्हें स्थानांतरित करने के बजाय शीट को कॉपी करने के लिए, मूव या कॉपी डायलॉग बॉक्स में कॉपी कॉपी चेक बॉक्स चुनें।
विभिन्न कार्यपुस्तिकाओं में डेटा स्थानांतरित या कॉपी करें
यदि आप एक्सेल वर्कशीट को किसी अन्य कार्यपुस्तिका में ले जाना या उसकी प्रतिलिपि बनाना चाहते हैं, तो आपको पहले यह सुनिश्चित करना होगा कि लक्ष्य वर्कबुक Microsoft एक्सेल के एक ही संस्करण में खुली हो।उन चादरों का चयन करें जिन्हें आप स्थानांतरित या कॉपी करना चाहते हैं। इसके बाद, अपने टूलबार पर होम टैब पर जाएं और सेल समूह> प्रारूप पर क्लिक करें। ऑर्गनाइज़ शीट्स के तहत, मूव या कॉपी शीट पर क्लिक करें।
एक डायलॉग बॉक्स खुलेगा। टू बुक लिस्ट में, चयनित शीट्स को मौजूदा वर्कबुक में ले जाना या कॉपी करना या शीट को नई वर्कबुक में ले जाना या कॉपी करना चुनें।
पहले की सूची में, आप या तो उस शीट पर क्लिक कर सकते हैं, जिसके पहले आप स्थानांतरित या प्रतिलिपि की गई शीट सम्मिलित करना चाहते हैं, या आप अपनी कार्यपुस्तिका में अंतिम शीट के बाद शीट सम्मिलित करने के लिए अंत में क्लिक कर सकते हैं।
VBA का उपयोग करके डेटा स्थानांतरित या कॉपी करें
उप CopyOpenItems ()
'
'CopyOpenItems मैक्रो
'खुले आइटम को शीट पर कॉपी करें।
'
'कीबोर्ड शॉर्टकट: Ctrl + Shift + O
'
मंद wbTarget कार्यपुस्तिका की कार्यपुस्तिका के रूप में जहाँ डेटा चिपकाया जाना है
डिम wbThis As Workbook की वर्कबुक जहां से डाटा कॉपी करना है
स्रोत पत्रक / लक्ष्य कार्यपुस्तिका का नाम स्ट्रिंग के रूप में मंद नाम
'वर्तमान सक्रिय कार्यपुस्तिका पर सेट करें (स्रोत पुस्तक)
सेट करें wbThis = ActiveWorkbook
'पुस्तक का सक्रिय पत्रक नाम प्राप्त करें
strName = ActiveSheet.Name
'एक कार्यपुस्तिका खोलें जिसमें शीट नाम के समान नाम हो
सेट करें wbTarget = Workbooks.Open ("C: \ filepath \" और strName & ".xlsp")।
'लक्ष्य पुस्तक पर सेल A1 चुनें
wbTarget.Range ( "A1")। का चयन करें
'स्पष्ट मौजूदा मान लक्ष्य बुक बनाते हैं
wbTarget.Range ( "A1: M51") ClearContents।
'सोर्स बुक को सक्रिय करें
wbThis.Activate
उपलब्ध स्मृति को अधिकतम करने के लिए क्लिपबोर्ड पर कोई भी चीज़ साफ़ करें
Application.CutCopyMode = गलत
'सोर्स बुक से रेंज कॉपी करें
wbThis.Range। ( "ए 12: एम 62") की प्रतिलिपि
'टारगेट बुक पर डेटा पेस्ट करें
wbTarget.Range ( "A1")। PasteSpecial
उपलब्ध स्मृति को अधिकतम करने के लिए क्लिपबोर्ड पर कोई भी चीज़ साफ़ करें
Application.CutCopyMode = गलत
'टारगेट बुक सेव करें
wbTarget.Save
'कार्यपुस्तिका बंद करें
wbTarget.Close
'स्रोत पुस्तक को फिर से सक्रिय करें
wbThis.Activate
'स्पष्ट स्मृति
सेट wbTarget = कुछ नहीं
सेट wbThis = कुछ नहीं
अंत उप