वीबीए: दृश्यमान पंक्तियों को दूसरी शीट पर कैसे कॉपी करें

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

 SubCopyVisibleRows ()

    Dim sourceWS As Worksheet
    Dim destinationWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets(" Sheet1 ")
    Set destinationWS = ThisWorkbook.Sheets(" Sheet2 ")

    sourceWS.Range(" A1:D999 ").SpecialCells(xlCellTypeVisible).Copy
    destinationWS.Cells(1, 1).PasteSpecial
    Application.CutCopyMode = False
   
End Sub

यह विशेष मैक्रो शीट 1 की श्रेणी A1:D999 में प्रत्येक दृश्यमान पंक्ति की प्रतिलिपि बनाएगा और उन्हें शीट 2 के सेल A1 में शुरू करके पेस्ट करेगा।

ध्यान दें : एप्लिकेशन.CutCopyMode = गलत लाइन निर्दिष्ट करती है कि मैक्रो चलाने के बाद कट और कॉपी मोड अक्षम किया जाना चाहिए।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA का उपयोग करके दृश्यमान पंक्तियों को किसी अन्य शीट पर कॉपी करें

मान लीजिए कि हमारे पास शीट 1 में निम्नलिखित डेटासेट है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

अब मान लीजिए कि हम केवल उन पंक्तियों को दिखाने के लिए डेटासेट पर एक फ़िल्टर लागू करते हैं जहां टीम का नाम माव्स या स्पर्स के बराबर है:

अब मान लें कि हम शीट1 से शीट2 तक केवल दृश्यमान कोशिकाओं की प्रतिलिपि बनाने के लिए वीबीए का उपयोग करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCopyVisibleRows ()

    Dim sourceWS As Worksheet
    Dim destinationWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets(" Sheet1 ")
    Set destinationWS = ThisWorkbook.Sheets(" Sheet2 ")

    sourceWS.Range(" A1:D999 ").SpecialCells(xlCellTypeVisible).Copy
    destinationWS.Cells(1, 1).PasteSpecial
    Application.CutCopyMode = False
   
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें शीट2 में निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि शीट1 में दिखाई देने वाली प्रत्येक पंक्ति को कॉपी करके शीट2 में चिपका दिया गया है।

नोट #1 : हमने मैक्रो में xlCellTypeVisible का उपयोग यह निर्दिष्ट करने के लिए किया कि हम केवल दृश्यमान कोशिकाओं की प्रतिलिपि बनाना चाहते थे।

नोट #2 : आप वीबीए कॉपी विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें
वीबीए: मानदंडों के आधार पर पंक्तियों को दूसरी शीट पर कॉपी करें
वीबीए: बिना फ़ॉर्मेटिंग के केवल मान कैसे पेस्ट करें