वीबीए में रेंज को कैसे स्थानांतरित करें (उदाहरण के साथ)

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

 SubTransposeRange ()

    'specify range to transpose
    MyRange = Range(" A1:B5 ")
    
    'find dimensions of range
    XUpper = UBound(MyRange, 1)
    XLower = LBound(MyRange, 1)
    YUpper = UBound(MyRange, 2)
    YLower = LBound(MyRange, 2)
    
    'transpose range
    Range(" D1 ").Resize(YUpper - YLower + 1, XUpper - XLower + 1).Value = _
      WorksheetFunction.Transpose(MyRange)
      
End Sub

यह विशेष उदाहरण A1:B5 रेंज में सेल्स को ट्रांसपोज़ करेगा और सेल D1 से शुरू होने वाली ट्रांसपोज़्ड रेंज प्रदर्शित करेगा।

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

उदाहरण: वीबीए में किसी रेंज को कैसे स्थानांतरित करें

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

मान लीजिए कि हम रेंज A1:B5 को ट्रांसपोज़ करना चाहते हैं और सेल D1 से शुरू होने वाली ट्रांसपोज़्ड रेंज को प्रदर्शित करना चाहते हैं।

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

 SubTransposeRange ()

    'specify range to transpose
    MyRange = Range(" A1:B5 ")
    
    'find dimensions of range
    XUpper = UBound(MyRange, 1)
    XLower = LBound(MyRange, 1)
    YUpper = UBound(MyRange, 2)
    YLower = LBound(MyRange, 2)
    
    'transpose range
    Range(" D1 ").Resize(YUpper - YLower + 1, XUpper - XLower + 1).Value = _
      WorksheetFunction.Transpose(MyRange)
      
End Sub

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

ध्यान दें कि ट्रांसपोज़्ड रेंज सेल D1 से प्रारंभ होकर प्रदर्शित होती है।

दूसरे शब्दों में, पंक्तियाँ और स्तंभ उलटे हैं।

किसी भिन्न श्रेणी को स्थानांतरित करने के लिए, बस मैक्रो में A1:B5 को एक भिन्न श्रेणी से बदलें।

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

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

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

वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें