वीबीए: दो अक्षरों के बीच टेक्स्ट कैसे निकालें

आप दो विशिष्ट वर्णों के बीच पाठ निकालने के लिए VBA में निम्नलिखित कस्टम फ़ंक्शन बना सकते हैं:

 Function ExtractBetween(this_text, start_char, end_char)

StartPosition = InStr(this_text, start_char)
EndPosition = InStr(this_text, end_char)

ExtractBetween = Mid(this_text, StartPosition + 1, EndPosition - StartPosition - 1)

End Function

फिर आप एक्सेल में दो विशिष्ट वर्णों के बीच के टेक्स्ट को एक विशिष्ट वर्ण में निकालने के लिए इस फ़ंक्शन का उपयोग कर सकते हैं।

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

उदाहरण: दो अक्षरों के बीच टेक्स्ट निकालने के लिए VBA का उपयोग करना

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटा सेट है जिसमें किसी कंपनी में आईडी मान और विभिन्न उत्पादों की कुल बिक्री शामिल है:

मान लीजिए कि हम कॉलम ए में प्रत्येक सेल के लिए कोष्ठक में टेक्स्ट निकालने के लिए वीबीए का उपयोग करना चाहते हैं और कॉलम सी में परिणाम वापस करना चाहते हैं।

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

 Function ExtractBetween(this_text, start_char, end_char)

StartPosition = InStr(this_text, start_char)
EndPosition = InStr(this_text, end_char)

ExtractBetween = Mid(this_text, StartPosition + 1, EndPosition - StartPosition - 1)

End Function

फिर हम सेल A2 में टेक्स्ट के लिए कोष्ठक में टेक्स्ट निकालने के लिए सेल C2 में निम्नलिखित सूत्र टाइप कर सकते हैं:

 =ExtractBetween( A2 , "(", ")")

फिर हम इस सूत्र को क्लिक करके कॉलम C में प्रत्येक शेष सेल पर खींच सकते हैं:

कॉलम सी अब कॉलम ए में प्रत्येक मिलान सेल के लिए कोष्ठक में पाठ प्रदर्शित करता है।

ध्यान दें : यह सूत्र विशिष्ट प्रारंभिक और अंतिम वर्णों की स्थिति निकालने के लिए वीबीए में इंस्ट्र फ़ंक्शन का उपयोग करके काम करता है, फिर उन दो वर्णों के बीच सभी पाठ को वापस करने के लिए मिड फ़ंक्शन का उपयोग करता है।

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

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

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