नीचे आपको एक फ़ंक्शन मिलेगा जो निर्दिष्ट विभाजक के आधार पर पाठ को भागों में विभाजित करने में आपकी सहायता करेगा।
मैक्रो जोड़ने के लिए, संपादक Visual Basic (Alt+F11) खोलें, डालना एक नया खाली प्रोग्राम मॉड्यूल (Insert - Module) और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:
Function GETSUBSTR(Txt, Delimiter, n) As String Dim x As Variant x = Split(Txt, Delimiter) If n > 0 And n - 1 <= UBound(x) Then GETSUBSTR = x(n - 1) Else GETSUBSTR = "" End If End Function
सहेजें और Excel पर वापस लौटें। अब कस्टम फ़ंक्शन में आप हमारा GETSUBSTR() फ़ंक्शन पा सकते हैं।
GETSUBSTR(पाठ; सीमांकक; खंड अनुक्रम संख्या)
कहाँ: