Excel में गैर-अल्फ़ान्यूमेरिक वर्ण कैसे निकालें (2 तरीके)

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

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

एक्सेल में गैर-अल्फ़ान्यूमेरिक वर्णों को निकालने के 2 उपयुक्त तरीके

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

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

चरण 1:

• सबसे पहले, हम अपना अनुप्रयोगों के लिए Microsoft Visual Basic विंडो खोलेंगे। ऐसा करने के लिए, Alt+11 दबाएं।

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

चरण 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 . दबाकर कोड को रन करें . अपनी श्रेणी चुनें और ठीक . क्लिक करें ऑपरेशन समाप्त करने के लिए।

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

और पढ़ें: Excel में कक्षों से गैर-संख्यात्मक वर्ण कैसे निकालें

समान रीडिंग:

• Excel में रिक्त वर्ण कैसे निकालें (5 तरीके)
• Excel में विशिष्ट वर्ण निकालें (5 तरीके)
• Excel में गैर-मुद्रण योग्य वर्ण कैसे निकालें (4 आसान तरीके)
• Excel में सिंगल कोट्स निकालें (6 तरीके)
• एक्सेल में एपोस्ट्रोफ कैसे निकालें (5 आसान तरीके)

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

चरण 1:

• सबसे पहले, माइक्रोसॉफ्ट पर जाएं एप्लिकेशन विंडो के लिए विज़ुअल बेसिक Alt+F11 . दबाकर ।

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

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 . समारोह है,

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

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

और पढ़ें: एक्सेल में वर्ण कैसे निकालें (6 तरीके)

याद रखने वाली बातें

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

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

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

निष्कर्ष

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

संबंधित लेख

• Excel दाईं ओर से वर्ण निकालें (5 तरीके)
• Excel में अंतिम वर्ण कैसे निकालें (सबसे आसान 6 तरीके)
• Excel में फ़ोन नंबर से डैश हटाएं(4 तरीके)
• एक्सेल में पहला अक्षर कैसे निकालें (6 तरीके)
• Excel में बाईं ओर से वर्ण कैसे निकालें (6 तरीके)