निम्नलिखित संक्षिप्त वीबीए कोड के साथ, आप गैर-अल्फ़ान्यूमेरिक वर्णों को भी हटा सकते हैं। आप इसे इस प्रकार कर सकते हैं:

1। दबाएँ ऑल्ट + F11 कुंजियाँ एक साथ खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे VBA कोड को मॉड्यूल में पेस्ट करें:

वीबीए: सभी गैर-अल्फ़ान्यूमेरिक वर्ण हटाएँ

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
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

3। दबाएँ F5 कुंजी या क्लिक करें रन कोड निष्पादित करने के लिए बटन।

4. फिर उस श्रेणी का चयन करें जिसे आप पॉप-अप संवाद में सभी गैर-अल्फ़ान्यूमेरिक वर्णों को हटाना चाहते हैं, और क्लिक करें OK बटन.

अब सभी गैर-अल्फ़ान्यूमेरिक वर्ण चयनित श्रेणी से हटा दिए गए हैं। स्क्रीनशॉट देखें:

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

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

आप Excel में कक्षों से सभी गैर-अल्फ़ान्यूमेरिक वर्णों को हटाने के लिए एक कस्टम फ़ंक्शन भी परिभाषित कर सकते हैं।

1। दबाएँ ऑल्ट + F11 कुंजियाँ एक साथ खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे दिए गए कोड को मॉड्यूल में पेस्ट करें:

उपयोगकर्ता परिभाषित फ़ंक्शन: सभी गैर-अल्फ़ान्यूमेरिक वर्ण हटाएं

Function DeleteNonAlphaNumeric(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
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. अब वर्कशीट पर वापस जाएं, एक खाली सेल चुनें और फॉर्मूला दर्ज करें =डिलीटनॉनअल्फ़ान्यूमेरिक(बी3), और फिर इस सूत्र को अन्य कक्षों पर लागू करने के लिए ऑटोफ़िल हैंडल डाउनलोड को खींचें।

उपरोक्त दो तरीकों के साथ, आपको कोड जानने की आवश्यकता है, लेकिन एक्सेल के शुरुआती लोगों के रूप में, हम में से अधिकांश कोड का उपयोग नहीं कर सकते हैं, इसलिए यहां मैं आपको इसे करने का एक आसान तरीका बताऊंगा।

एक्सेल के लिए कुटूल- एक्सेल के लिए 300 से अधिक उपयोगी उपकरण शामिल हैं। पूर्ण सुविधा निःशुल्क परीक्षण 30-दिन, किसी क्रेडिट कार्ड की आवश्यकता नहीं! अब समझे

यदि आपने एक्सेल के लिए कुटूल स्थापित किया है, तो कृपया इसे निम्नलिखित चरणों के अनुसार करें:

1. उस श्रेणी का चयन करें जिसमें से आपको गैर-अल्फ़ान्यूमेरिक वर्णों को हटाना है और क्लिक करें कुटूल > टेक्स्ट > अक्षर हटाएँ.

2। फिर एक वर्ण हटाएं डायलॉग बॉक्स दिखाई देगा, बस चेक करें गैर अक्षरांकीय विकल्प, और क्लिक करें Ok बटन.

अब सभी गैर-अल्फ़ान्यूमेरिक वर्ण टेक्स्ट स्ट्रिंग्स से हटा दिए गए हैं।