सामग्री तालिका
जब तपाईलाई चाहिन्छ तपाईले एउटा पानाबाट अर्को पाना वा कार्यपुस्तिकामा दायरा प्रतिलिपि गर्न सक्नुहुन्छ। प्रतिलिपि र टाँस्ने विभिन्न प्रकारहरू छन्। यो लेख पछ्याउँदै, तपाईले अर्को पानामा एक्सेल VBA प्रतिलिपि दायरा प्रयोग गर्ने विभिन्न तरिकाहरू थाहा पाउनुहुनेछ।
स्पष्टीकरणलाई जीवन्त बनाउन, म विशेष व्यक्तिहरूको व्यक्तिगत जानकारी प्रतिनिधित्व गर्ने नमूना डेटासेट प्रयोग गर्न जाँदैछु। । डाटासेटमा 4 स्तम्भहरू छन्। यी स्तम्भहरू हुन् प्रथम नाम, अन्तिम नाम, पूरा नाम, र इमेल ।
अभ्यास गर्न कार्यपुस्तिका डाउनलोड गर्नुहोस्
VBA प्रतिलिपि दायरा अर्को Sheet.xlsm मा कपी गर्नुहोस् ढाँचाको साथ अर्को पानामाजब तपाइँ फर्म्याट को साथ एक पानाबाट अर्को पानामा दायरा प्रतिलिपि गर्न चाहनुहुन्छ भने तपाइँ यसलाई प्रयोग गरेर मात्र गर्न सक्नुहुन्छ। 2>VBA ।
यहाँ, म डेटासेट पानाबाट Format पानामा
को दायरा प्रतिलिपि गर्नेछु। 0>प्रक्रिया सुरु गरौं,पहिले, विकासकर्ता ट्याब >> खोल्नुहोस्; चयन गर्नुहोस् भिजुअल बेसिक
तपाईँ ALT + F11 कीबोर्ड पनि प्रयोग गर्न सक्नुहुन्छ VBA सम्पादक।
अर्को, यसले एप्लिकेशनका लागि माइक्रोसफ्ट भिजुअल बेसिक नामको नयाँ विन्डो खोल्नेछ।
त्यहाँबाट, Insert <3 खोल्नुहोस्।>>> मोड्युल चयन गर्नुहोस्।
A मोड्युल खुल्नेछ त्यसपछि खोलिएकोमा निम्न कोड टाइप गर्नुहोस् >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नामबाट Copy_Range_BelowLastCell_AnotherSheets चयन गर्नुहोस् Macros मा भित्र पनि कार्यपुस्तिका चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस्। चयन गरिएको म्याक्रो ।
त्यसैले, यसले चयन गरिएको दायरा प्रतिलिपि गर्नेछ र अर्को पानाको अन्तिम पङ्क्तिबाट टाँस्नेछ .
8. VBA अर्को कार्यपुस्तिकाको अन्तिम पङ्क्तिमा दायरा प्रतिलिपि गर्नुहोस्
यदि तपाइँ प्रतिलिपि अर्को कार्यपुस्तिका पानाको अन्तिम पङ्क्तिको दायरा तपाईले VBA पनि प्रयोग गर्न सक्नुहुन्छ।
यहाँ, म डेटासेट2 बाट एउटा दायरा प्रतिलिपि गर्नेछु। पानामा पाना १ को पुस्तक २ तर पहिलो गैर-खाली कक्षबाट।
45>
प्रक्रिया सुरु गर्न,
पहिले, विकासकर्ता ट्याब >> खोल्नुहोस्। चयन गर्नुहोस् भिजुअल बेसिक
तपाईँले ALT + F11 कीबोर्ड पनि प्रयोग गर्न सक्नुहुन्छ VBA सम्पादक खोल्न।
अर्को, यसले एप्लिकेशनका लागि माइक्रोसफ्ट भिजुअल बेसिकको नयाँ विन्डो खोल्नेछ।
त्यहाँबाट, Insert <3 खोल्नुहोस्।>>> Module चयन गर्नुहोस्।
A Module खोल्नेछ त्यसपछि खोलिएको Module मा निम्न कोड टाइप गर्नुहोस्।
7945
यहाँ, मैले उपप्रक्रिया Copy_Range_BelowLastCell_To_Another_Workbook जहाँ wsCopy र wsDestination हो कार्यपत्र प्रकार, lCopyLastRow र lDestLastRow लामो प्रकार छन्।
पहिले, प्रयोग गरिएको सेट गर्नुहोस् पाना प्रतिलिपि गर्न र गन्तव्य पानाका लागि चर सेट गर्न।
अर्को, प्रतिलिपि दायरामा स्तम्भ A को डेटामा आधारित अन्तिम पङ्क्ति फेला पार्न पङ्क्ति विधि प्रयोग गरियो।
फेरि, पङ्क्ति विधि प्रयोग गरियो। गन्तव्य दायरामा स्तम्भ A को डाटामा आधारित पहिलो खाली पङ्क्ति फेला पार्न पनि अफसेट एउटा गुण तल सार्न प्रयोग गरियो।
अन्तमा, प्रतिलिपि डेटा डेटासेट2 पानाबाट एक्सेल VBA प्रतिलिपि दायरा अर्को पानामा।xlsm कार्यपुस्तिका गन्तव्यमा Sheet1 कार्यपुस्तिका Book2.xlsx ।
अब, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
अर्को, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नामबाट Copy_Range_BelowLastCell_To_Another_Workbook चयन गर्नुहोस् म्याक्रोमा भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस्। चयन गरिएको म्याक्रो ।
त्यसैले, यसले विद्यमान पानाबाट अर्को कार्यपुस्तिकाको अन्तिम पङ्क्तिमा चयन गरिएको दायरा प्रतिलिपि गर्नेछ।
अभ्यास खण्ड
मैले एक्सेल VBA प्रतिलिपि दायराका यी व्याख्या गरिएका तरिकाहरू अभ्यास गर्न कार्यपुस्तिकामा अभ्यास पाना प्रदान गरेको छु। अर्को पानामा।
निष्कर्ष
यस लेखमा, मैले 8 विभिन्न प्रकारका सजिलो र द्रुत तरिकाहरू वर्णन गरेको छु।एक्सेल VBA अर्को पानामा दायरा प्रतिलिपि गर्नुहोस्। यी विभिन्न तरिकाहरूले तपाईंलाई एउटा पानाबाट अर्को र एउटा पानाबाट अर्को कार्यपुस्तिकामा दायरा प्रतिलिपि गर्न मद्दत गर्नेछ। अन्तिममा होइन, यदि तपाइँसँग कुनै प्रकारको सुझाव, विचार र प्रतिक्रिया छ भने कृपया तल कमेन्ट गर्न नहिचकिचाउनुहोस्।
मोड्युल।8425
यहाँ, मैले उप प्रक्रिया Copy_Range_withFormat_ToAnother_Sheet
घोषणा गरें मैले दायरा लिएको छु B1:E10 अवस्थित पानाबाट पाना नाममा प्रतिलिपि गर्न Format सँग ।
यहाँ, मैले प्रतिलिपि प्रयोग गरें। चयन गरिएको दायरा प्रतिलिपि गर्न विधि, प्रतिलिपि विधिले ढाँचा सँग कुनै पनि दायरा प्रतिलिपि गर्दछ।
अन्तमा, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्। .
अर्को, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नाम बाट Copy_Range_withFormat_ToAnother_Sheet चयन गर्नुहोस् म्याक्रो भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस्। चयन गरिएको म्याक्रो ।
त्यसैले, यसले प्रतिलिपि चयन गरिएको दायरा ढाँचा को साथ मैले चयन गरेको नयाँ पानामा ( 2 VBA प्रयोग गरेर ढाँचा बिना अर्को पानामा दायरा प्रतिलिपि गर्न सम्भव छ।
यहाँ, म प्रतिलिपि <3 गर्नेछु। डेटासेट पाना देखि बिना ढाँचा पाना सम्मको दायरा।
प्रक्रिया सुरु गरौं,
अब, विकासकर्ता खोल्नुहोस्। ट्याब >> चयन गर्नुहोस् भिजुअल बेसिक ( ALT + F11 प्रयोग गर्नुहोस्)
अर्को, यो खुल्नेछ अनुप्रयोगका लागि माइक्रोसफ्ट भिजुअल बेसिक।
त्यसपछि, खोल्नुहोस् घुसाउनुहोस् >> Module चयन गर्नुहोस्।
A Module खोल्नेछ त्यसपछि खोलिएको Module मा निम्न कोड टाइप गर्नुहोस्।
2794
यहाँ, मैले उप प्रक्रिया Copy_Range_WithoutFormat_Toanother_sheet
मैले दायरा लिएको छु B1:E10 अवस्थित पानाबाट पाना नाममा प्रतिलिपि गर्न बिना ढाँचा ।
यहाँ, मैले चयन गरिएको दायरा प्रतिलिपि गर्न प्रतिलिपि विधि प्रयोग गरें तर पनि उल्लेख गरिएको Paste:=xlPasteValues PasteSpecial विधिमा ताकि यसले चयन गरिएको दायराको मानहरू मात्र टाँस्ने छ, ढाँचा होइन।
अन्तमा। , सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
अर्को, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नामबाट Copy_Range_WithoutFormat_Toanother_Sheet चयन गर्नुहोस् र म्याक्रोमा भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस् चयन गरिएको म्याक्रो ।
यसले, यसले मानहरू छैन ढाँचा<3 संग मात्र चयन गरिएको दायरा प्रतिलिपि गर्नेछ।>।
3. ढाँचा र स्तम्भ चौडाइको साथ अर्को पानामा दायरा प्रतिलिपि गर्नुहोस्
कहिलेकाहीँ तपाईंले गर्न चाहनुहुन्छ प्रतिलिपि गर्नुहोस् कुनै पनि चयन गरिएको दायरा जस्तो छ, त्यसका लागि तपाईंले फर्म्याट र स्तम्भ चौडाइ भएको दायरा प्रतिलिपि गर्नुहोस् ।
यहाँ, म डेटासेट पानाबाट ढाँचामा दायरा प्रतिलिपि गर्नेछु। स्तम्भ चौडाइ पाना।
VBA ,
पहिले, विकासकर्ता ट्याब >> प्रयोग गरेर कार्य गर्ने प्रक्रिया हेर्नको लागि। चयन गर्नुहोस् भिजुअल बेसिक
तपाईँले ALT + F11 कीबोर्ड पनि प्रयोग गर्न सक्नुहुन्छ VBA सम्पादक खोल्न।
अर्को, यसले अनुप्रयोगका लागि माइक्रोसफ्ट भिजुअल बेसिकको नयाँ सञ्झ्याल खोल्नेछ।
त्यहाँ, Insert खोल्नुहोस्। >> Module चयन गर्नुहोस्।
A Module खोल्नेछ त्यसपछि खोलिएको Module मा निम्न कोड टाइप गर्नुहोस्।
2405
यहाँ, मैले उपप्रक्रिया Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth
मैले दायरा लिएको छु B1:E10 अवस्थित पानाबाट गन्तव्य पाना नाममा प्रतिलिपि गर्न ढाँचा र amp; स्तम्भ चौडाइ ।
यहाँ, मैले चयन गरिएको दायरा प्रतिलिपि गर्न प्रतिलिपि विधि प्रयोग गरेको छु। मैले PasteSpecial विधि पनि प्रयोग गरेको छु जहाँ मैले उल्लेख गरेको छु Paste:=xlPasteColumnWidths ताकि यसले चयन गरिएको दायरालाई ढाँचा र स्तम्भ चौडाइ सँग टाँस्छ। .
अन्तमा, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
अर्को, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नामबाट Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth चयन गर्नुहोस् र म्याक्रोमा भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चयन गरिएको चलाउनुहोस् म्याक्रो ।
परिणामको रूपमा, यसले फर्म्याट र स्तम्भ चौडाइ सँग चयन गरिएको दायरा प्रतिलिपि गर्नेछ।
4. VBA सूत्रको साथ अर्को पानामा दायरा प्रतिलिपि गर्नुहोस्
तपाईंको डेटासेटमा कुनै सूत्र छ भने तपाईंले प्रतिलिपि गर्न चाहनुहुन्छ। कुनै चिन्ता छैन! तपाईंले सूत्र भएको दायरालाई सूत्रलाई अक्षुण्ण राखेर अर्को पानामा प्रतिलिपि गर्न सक्नुहुन्छ।
यहाँ, म डेटासेट पानाबाट एउटा दायरा प्रतिलिपि गर्नेछु। Formula पानासँग
प्रक्रिया सुरु गरौं,
सुरु गर्न, विकासकर्ता ट्याब >> खोल्नुहोस्। भिजुअल बेसिक चयन गर्नुहोस् ( तपाईंले ALT + F11 कीबोर्ड)
11>
अर्को, यो पनि प्रयोग गर्न सक्नुहुन्छ अनुप्रयोगहरूको लागि Microsoft Visual Basic खोल्नेछ।
त्यहाँबाट, खोल्नुहोस् Insert >> Module चयन गर्नुहोस्।
A Module खोल्नेछ त्यसपछि खोलिएको Module मा निम्न कोड टाइप गर्नुहोस्।
7236
यहाँ, मैले उपप्रक्रिया Copy_Range_withFormula_ToAnother_Sheet
मैले दायरा लिएको छु B1:E10 अवस्थित पानाबाट गन्तव्य पाना नाममा प्रतिलिपि गर्न Formula ।
यहाँ, मैले चयन गरिएको दायरा प्रतिलिपि गर्न प्रतिलिपि विधि प्रयोग गरें। मैले PasteSpecial विधि पनि प्रयोग गरेको छु जहाँ मैले Paste:=xlPasteFormulas उल्लेख गरेको छु ताकि यसले चयन गरिएको दायरासँगै सूत्रहरू बोक्छ।
अन्तमा। , सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
त्यसपछि, दृश्य खोल्नुहोस् ट्याब >> बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नामबाट Copy_Range_withFormula_ToAnother_Sheet चयन गर्नुहोस् म्याक्रो भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस्। चयन गरिएको म्याक्रो ।
यसले, यसले प्रतिलिपि सबै चयनित कक्ष दायराहरूलाई सूत्रहरू ।
समान पढाइहरू:
- VBA दायरा अफसेट कसरी प्रयोग गर्ने (11 तरिका)
- एक्सेलमा दायराको प्रत्येक कक्षको लागि VBA (3 विधिहरू)
- एक्सेलमा VBA को दायरा वस्तु कसरी प्रयोग गर्ने (5 गुणहरू)
5. अर्को पानामा AutoFit को साथ दायरा प्रतिलिपि गर्नुहोस्
जब प्रतिलिपि एउटा दायरा अर्को पानामा तपाईंले AutoFit विधि पनि प्रयोग गर्न सक्नुहुन्छ। VBA मा AutoFit नयाँ पानामा प्रतिलिपि गरिएको दायरा।
यहाँ, म डेटासेटबाट दायरा प्रतिलिपि गर्नेछु। पानामा AutoFit पाना
प्रक्रिया सुरु गरौं,
पहिले, विकासकर्ता ट्याब >> खोल्नुहोस्। चयन गर्नुहोस् भिजुअल बेसिक
तपाईँले ALT + F11 कीबोर्ड पनि प्रयोग गर्न सक्नुहुन्छ VBA सम्पादक खोल्न।
अर्को, यसले अनुप्रयोगका लागि माइक्रोसफ्ट भिजुअल बेसिकको सञ्झ्याल खोल्नेछ।
त्यसपछि, Insert > खोल्नुहोस्। ;> मोड्युल चयन गर्नुहोस्।
A मोड्युल खुल्नेछ त्यसपछि खोलिएकोमा निम्न कोड टाइप गर्नुहोस् मोड्युल ।
3820
यहाँ, मैले उप प्रक्रिया Copy_Range_withFormat_AutoFit
घोषणा गरें पहिले, मैले कार्यपत्र डेटासेट चयन गरें। त्यसपछि दायरा लिनुभयो B1:E10 अवस्थित पानाबाट AutoFit नामको गन्तव्य पानामा प्रतिलिपि गर्न।
यहाँ, मैले प्रतिलिपि प्रयोग गरें। चयन गरिएको दायरा प्रतिलिपि गर्ने विधि र AutoFit विधिले दिइएको स्तम्भहरू B:E लाई अटोफिट गर्नेछ।
अन्तमा, सेभ गर्नुहोस् कोड र जानुहोस्। कार्यपत्रमा फर्कनुहोस्।
अर्को, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> म्याक्रोहरू हेर्नुहोस्
➤ एउटा संवाद बक्स पप अप हुनेछ।
33>
चयन गर्नुहोस्अब, म्याक्रो नामबाट Copy_Range_withFormat_AutoFit म्याक्रोमा भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस् चयन गरिएको म्याक्रो ।
त्यसैले, यसले प्रतिलिपि चयन गरिएको दायरालाई नयाँ पानामा र AutoFit स्तम्भहरू पनि गर्नेछ।
6. VBA अर्को कार्यपुस्तिकामा दायरा प्रतिलिपि गर्नुहोस्
यदि तपाइँ चाहनुहुन्छ भने तपाइँ एक पानाबाट अर्को पानामा दायरा प्रतिलिपि पनि गर्न सक्नुहुन्छ फरक कार्यपुस्तिकाको।
यहाँ, म पुस्तक1 को डेटासेट पानाबाट पाना १ को दायरा प्रतिलिपि गर्नेछु। कार्यपुस्तिका।
प्रक्रिया सुरु गरौं,
पहिले, विकासकर्ता ट्याब >> खोल्नुहोस्। भिजुअल बेसिक चयन गर्नुहोस् (y तपाईंले ALT + F11 कीबोर्ड)
त्यसपछि, यसले Microsoft Visual खोल्नेछअनुप्रयोगहरूको लागि आधारभूत।
अर्को, खोल्नुहोस् Insert >> Module चयन गर्नुहोस्।
A Module खोल्नेछ त्यसपछि खोलिएको Module मा निम्न कोड टाइप गर्नुहोस्।
8674
यहाँ, मैले उप प्रक्रिया Copy_Range_WithFormat_Toanother_WorkBook
मैले दायरा लिएको छु B3:E10 पाना नामबाट डेटासेट अवस्थित पानाबाट नयाँ कार्यपुस्तिका नाममा प्रतिलिपि गर्न पुस्तक १ र पानाको नाम पाना १ ।
यहाँ, मैले नयाँ कार्यपुस्तिकामा चयन गरिएको दायरा प्रतिलिपि गर्न प्रतिलिपि विधि प्रयोग गरेको छु।
अन्तमा, सेभ गर्नुहोस् कोड र कार्यपत्रमा फर्कनुहोस्।
अर्को, दृश्य ट्याब >> खोल्नुहोस्। बाट म्याक्रोज >> चयन गर्नुहोस् म्याक्रोहरू हेर्नुहोस्
➤ A संवाद बक्स पप अप हुनेछ।
अब, म्याक्रो नामबाट Copy_Range_WithFormat_Toanother_WorkBook चयन गर्नुहोस् म्याक्रोमा भित्र कार्यपुस्तिका पनि चयन गर्नुहोस्।
अन्तमा, चलाउनुहोस्। चयन गरिएको म्याक्रो ।
अब, यसले डेटासेट पानाबाट अर्को कार्यपुस्तिकामा प्रतिलिपि चयन गरिएको दायरा।
7. अर्को पानाको अन्तिम पङ्क्तिमा दायरा प्रतिलिपि गर्नुहोस्
कुनै पनि अवस्थामा, यदि तपाइँ अर्को पानामा दायरा प्रतिलिपि गर्न चाहनुहुन्छ भने कुनै विशेष सेल वा अन्तिम सेलबाट तपाईंले VBA प्रयोग गरेर यो गर्न सक्नुहुन्छ।
प्रक्रियामा प्रवेश गर्नु अघि, म तपाईंलाई भन्न चाहन्छु कि, मैले दुईवटा नयाँ पाना लिएको छु। 2> पूरा नाम, इमेल, र ठेगाना ।
पहिले डेटासेट२ पाना हेरौं।
यहाँ अन्तिम कक्षको तल पाना छ।
यहाँ, म प्रतिलिपि को दायरा 2>डेटासेट2 पानामा अन्तिम कक्षको तल तर पहिलो गैर-खाली कक्षबाट।
सुरु गर्न, विकासकर्ता ट्याब >> खोल्नुहोस्। चयन गर्नुहोस् भिजुअल बेसिक
अर्को, यसले एप्लिकेशनका लागि माइक्रोसफ्ट भिजुअल बेसिक खोल्नेछ।
त्यसपछि, खोल्नुहोस् घुसाउनुहोस् >> Module चयन गर्नुहोस्।
A Module खोल्नेछ त्यसपछि खोलिएको Module मा निम्न कोड टाइप गर्नुहोस्।
3468
यहाँ, मैले उप प्रक्रिया Copy_Range_BelowLastCell_AnotherSheets
पहिले, मैले पाना चयन गरेको छु डेटासेट2 र त्यसपछि अन्तिम पङ्क्ति गणना गर्न पङ्क्ति विधि प्रयोग गरियो र गणना गरिएको पङ्क्तिलाई lr मा राखियो।
त्यसपछि लिइयो। दायरा A2:C र lr विद्यमान पानाबाट गन्तव्य पाना नाममा प्रतिलिपि गर्न अन्तिम कक्षको तल ।
फेरि, अन्तिम गणना गर्न पङ्क्ति विधि प्रयोग गर्नुहोस्। पङ्क्ति नामको अर्को पानाको अन्तिम कक्षको तल र गणना गरिएको पङ्क्तिलाई lrAnotherSheet मा राखे।
यहाँ, मैले प्रतिलिपि विधि प्रयोग गरें। चयन गरिएको दायरा प्रतिलिपि गर्न र AutoFit विधिले दिइएको स्तम्भहरू A:C लाई स्वत: फिट गर्नेछ।
अन्तमा, सेभ गर्नुहोस् कोड र फिर्ता जानुहोस्। कार्यपत्रमा।
अर्को, दृश्य ट्याब >> खोल्नुहोस्। म्याक्रोबाट
