वीबीए: टेक्स्ट को कॉलम में कैसे बदलें

टेक्स्ट सेल को कॉलम में बदलने के लिए आप VBA में Ranger.TextToColumns विधि का उपयोग कर सकते हैं।

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

उदाहरण 1: टेक्स्ट को कॉलम में बदलें (स्पेस को सीमांकक के रूप में)

मान लीजिए कि हमारे पास Excel में A1:A9 श्रेणी में नामों की निम्नलिखित सूची है:

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

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

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

ध्यान दें कि प्रत्येक सेल में टेक्स्ट को अलग-अलग कॉलम में बदल दिया गया है।

ध्यान दें : ConsecutiveDelimiter:=True तर्क VBA को लगातार सीमांककों को एक एकल सीमांकक के रूप में मानने के लिए कहता है।

उदाहरण 2: टेक्स्ट को कॉलम में बदलें (डिलीमीटर के रूप में अल्पविराम)

मान लीजिए कि हमारे पास A1:A9 श्रेणी में अल्पविराम से अलग किए गए नामों की निम्नलिखित सूची है:

हम सीमांकक के रूप में अल्पविराम का उपयोग करके प्रत्येक सेल में पाठ को अलग-अलग कॉलम में बदलने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Comma:=True
End Sub

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

ध्यान दें कि प्रत्येक सेल में टेक्स्ट को अलग-अलग कॉलम में बदल दिया गया है।

उदाहरण 3: टेक्स्ट को कॉलम में बदलें (डबल कोट्स में संलग्न टेक्स्ट के साथ)

मान लीजिए कि हमारे पास A1:A9 श्रेणी में नामों की निम्नलिखित सूची है, जो रिक्त स्थान से अलग हैं और दोहरे उद्धरण चिह्नों सहित हैं:

हम प्रत्येक सेल में टेक्स्ट को अलग-अलग कॉलम में बदलने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

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

ध्यान दें कि प्रत्येक सेल में टेक्स्ट को अलग-अलग कॉलम में बदल दिया गया है।

ध्यान दें कि हमने VBA को यह बताने के लिए TextQualifier:=xlDoubleQuote तर्क का उपयोग किया था कि पाठ दोहरे उद्धरण चिह्नों से घिरा हुआ था।

नोट : आप VBA में TextToColumns विधि का पूरा दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें
वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें