TOP

दिए गए विभाजक द्वारा पाठ का स्वचालित विभाजन (SPLITUP)

नीचे आपको एक फ़ंक्शन मिलेगा जो निर्दिष्ट विभाजक के आधार पर पाठ को भागों में विभाजित करने में आपकी सहायता करेगा।

ऐसा करने के लिए, संपादक Visual Basic (Alt+F11) खोलें, एक नया खाली सॉफ़्टवेयर मॉड्यूल डालें (Insert - Module) और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:

Function SPLITUP(Txt, Delimiter, n) As String
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        SPLITUP = x(n - 1)
      Else
        SPLITUP = ""
      End If
End Function

सहेजें और Excel पर वापस लौटें। अब कस्टम फ़ंक्शंस में आप हमारा SPLITUP() फ़ंक्शन पा सकते हैं।

SPLITUP (पाठ; विभाजक; टुकड़े की अनुक्रम संख्या) , कहाँ:

विषय पर लेख: