Excel गाइड: सेल्स से नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के 2 सरल तरीके

आज इस लेख में, हम प्रदर्शित करेंगे कि Excel में सेल्स से नॉन-अल्फ़ान्यूमेरिक वर्ण कैसे हटाएं। यह एक बहुत ही आम समस्या है खासकर जब आप कच्चे डेटा के साथ काम कर रहे हों। नंबर, टेक्स्ट, और नॉन-अल्फ़ान्यूमेरिक वर्ण सेल्स में मिश्रित होते हैं और कभी-कभी हमें उन टेक्स्ट और नंबर को अलग करने की आवश्यकता होती है। Excel में VBA प्रोग्रामिंग कोड और यूजर डिफाइंड फ़ंक्शन का उपयोग करके सेल्स से नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के कई सूत्र हैं। हम उन्हें इस असाइनमेंट में सीखेंगे।

इस कार्य को पढ़ते समय अभ्यास करने के लिए यह अभ्यास पुस्तिका डाउनलोड करें।

Excel में नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के 2 उपयुक्त तरीके

कल्पना करें कि जब आप विश्लेषण के लिए एक कच्चा डेटासेट प्राप्त करते हैं और आप देखते हैं कि नंबर और टेक्स्ट एक कॉलम में नॉन-अल्फ़ान्यूमेरिक वर्णों के साथ मिश्रित हैं। सुविधाजनक ढंग से काम करने के लिए, आपको उन्हें स्ट्रिंग से हटाने की आवश्यकता है। VBA कोड चलाना या यूजर-डिफाइंड फ़ंक्शन लागू करना इस मामले में सहायक हो सकता है। यहाँ इस खंड में, हम वह कार्य करने के लिए उन उपयुक्त विधियों को प्रदर्शित करेंगे।

1. नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के लिए VBA कोड चलाएं

आप Excel में सेल्स से नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के लिए VBA मैक्रो कोड का उपयोग कर सकते हैं। हम नीचे इस विधि को प्रदर्शित करेंगे।

चरण 1:

सबसे पहले, हम अपना Microsoft Visual Basic for Applications विंडो खोलेंगे। ऐसा करने के लिए, Alt+F11 दबाएँ।

एक नई विंडो खुली है। अब इन्सर्ट पर क्लिक करें और नया मॉड्यूल खोलने के लिए मॉड्यूल चुनें।

चरण 2:

नए खुले मॉड्यूल में, नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के लिए VBA कोड इन्सर्ट करें। हमने आपके लिए कोड प्रदान किया है। आप बस इस कोड को कॉपी करके अपनी वर्कशीट में उपयोग कर सकते हैं। कोड है,

Sub VBA_to_remove() 
    Dim Rng As Range 
    Dim WorkRng As Range 
    On Error Resume Next 
    xTitleId = "Non-alphanumeric text remove" 
    Set WorkRng = Application.Selection 
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) 
    For Each Rng In WorkRng 
        xOut = "" 
        For i = 1 To Len(Rng.Value) 
            xTemp = Mid(Rng.Value, i, 1) 
            If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then 
                xStr = xTemp 
            Else 
                xStr = "" 
            End If 
            xOut = xOut & xStr 
        Next i 
        Rng.Value = xOut 
    Next 
End Sub

अब F5 दबाकर कोड चलाएँ। अपनी रेंज चुनें और ऑपरेशन समाप्त करने के लिए OK पर क्लिक करें।

हमने सफलतापूर्वक अपने सेल्स से उन नॉन-अल्फ़ान्यूमेरिक वर्णों को हटा दिया है।

2. नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के लिए यूजर डिफाइंड फ़ंक्शन लागू करें

चूंकि Excel में सेल्स से नॉन-अल्फ़ान्यूमेरिक वर्ण हटाने के लिए कोई विशिष्ट फ़ंक्शन नहीं है, आप एक बना सकते हैं! यह सही है, आप अपना काम करने के लिए अपना एक कस्टम फ़ंक्शन परिभाषित कर सकते हैं। ऐसा करने के लिए आपको एक VBA कोड लिखना होगा। हम नीचे चरणों का उपयोग करके इस प्रक्रिया पर चर्चा करेंगे। कस्टम-मेड फ़ंक्शन के बारे में अधिक जानने के लिए, यहाँ क्लिक करें!

चरण 1:

सबसे पहले, Alt+F11 दबाकर Microsoft Visual Basic for Applications विंडो पर जाएँ।

अपने UFD के लिए कोड लिखें। हमने अपने फ़ंक्शन का नाम RemoveNonAlphaNumeric रखा है। और इस फ़ंक्शन को बनाने का कोड है,

Function RemoveNonAlphaNumeric(xStr As String) As String 
    Dim xStrR As String 
    Dim xCh As String 
    Dim xStrMode As String 
    Dim xInt As Integer 
    xStrMode = "[A-Z.a-z 0-9]" 
    xStrR = "" 
    For xInt = 1 To Len(xStr) 
        xCh = Mid(xStr, xInt, 1) 
        If xCh Like xStrMode Then 
            xStrR = xStrR & xCh 
        End If 
    Next 
    RemoveNonAlphaNumeric = xStrR 
End Function

चरण 2:

हमारा कोड लिखा गया है। अब वर्कशीट पर वापस जाएँ और फ़ंक्शन =RemoveNonAlphaNumeric टाइप करें। हम देख सकते हैं कि फ़ंक्शन बनाया गया है।

अब सेल C4 में फ़ंक्शन लागू करें। फ़ंक्शन है,

=RemoveNonAlphaNumeric(B4)

परिणाम प्राप्त करने के लिए ENTER दबाएँ।

हमारा कस्टम-मेड फ़ंक्शन ठीक से काम कर रहा है। हम अब अंतिम परिणाम प्राप्त करने के लिए इस फ़ंक्शन को शेष सेल्स पर लागू करेंगे।

याद रखने योग्य बातें

👉 एक कस्टम फ़ॉर्मूला बनाने में नियमित VBA मैक्रोज़ की तुलना में अधिक सीमाएँ होती हैं। यह वर्कशीट या सेल की संरचना या फ़ॉर्मेट को बदल नहीं सकता।

👉 यदि आपके पास आपका डेवलपर टैब दिखाई नहीं दे रहा है, तो आप इसे इस निर्देश का उपयोग करके सक्रिय कर सकते हैं।

कस्टमाइज़्ड क्विक एक्सेस टूलबार → अधिक कमांड → रिबन कस्टमाइज़ करें → डेवलपर → OK

निष्कर्ष

इस गाइड में, हम दो अलग-अलग दृष्टिकोणों से गुजरे हैं। यदि आपके कोई प्रश्न या क्वेरी हैं तो आपका टिप्पणी करने के लिए स्वागत है। टिप्पणी अनुभाग में अपनी प्रतिक्रिया छोड़ें। ExcelDemy पर आने के लिए धन्यवाद। सीखते रहें!