Excel में सेलों से गैर संख्यात्मक वर्णों को कैसे हटाएँ?

मान लीजिए कि आपके पास ऐसे ढेर सारे डेटा वाली एक वर्कशीट है ABCD4578124YUIOH, और आप केवल गैर-संख्यात्मक वर्ण हटाना चाहते हैं  एबीसीडीयुओओएच लेकिन संख्यात्मक वर्णों को कोशिकाओं में रखें। बेशक, आप उन वर्णों को एक-एक करके हटा सकते हैं, लेकिन यहीं आप कोशिकाओं से गैर-संख्यात्मक वर्णों से इस प्रकार शीघ्रता से छुटकारा पा सकते हैं:

VBA कोड वाले गैर-संख्यात्मक वर्ण हटाएँ

एक क्लिक से गैर-संख्यात्मक वर्णों को हटाने का एक उपयोगी उपकरण

VBA कोड वाले गैर-संख्यात्मक वर्ण हटाएँ

VBA कोड वाली श्रेणी से गैर-संख्यात्मक वर्णों को हटाने के लिए, कृपया निम्नानुसार कार्य करें:

1. क्लिक करें डेवलपर > Visual Basic के को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर निम्नलिखित कोड को मॉड्यूल में कॉपी और पेस्ट करें:

वीबीए: सभी गैर-संख्यात्मक वर्ण हटाएँ

Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

2। फिर क्लिक करें पॉप अप में कोड चलाने के लिए बटन KutoolsforExcel संवाद बॉक्स में, गैर-संख्यात्मक वर्णों वाली एक श्रेणी का चयन करें जिसे आप हटाना चाहते हैं, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:

3. फिर चयनित श्रेणी के सभी गैर-संख्यात्मक वर्ण हटा दिए जाते हैं।

यदि दशमलव बिंदुओं वाली संख्याएँ हैं, तो आप निम्नलिखित VBA का उपयोग कर सकते हैं:

Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

आप नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम देख सकते हैं:

एक क्लिक से गैर-संख्यात्मक वर्णों को हटाने का एक उपयोगी उपकरण

किसी श्रेणी में गैर-संख्यात्मक वर्णों को हटाने के लिए, एक्सेल के लिए कुटूलहै अक्षर हटाएँ यूटिलिटी इसे एक क्लिक से पूरा कर सकती है।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार करें:

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

2. में अक्षर हटाएँ संवाद बॉक्स में, चेक करें गैर संख्यात्मक में विकल्प अक्षर हटाएँ अनुभाग, और फिर क्लिक करें OK or लागू करें बटन। और गैर-संख्यात्मक वर्ण तुरंत चयन से हटा दिए जाते हैं। स्क्रीनशॉट देखें:

एक्सेल के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!

के बारे में अधिक विस्तृत जानकारी के लिए अक्षर हटाएँ एक्सेल के लिए कुटूल्स, कृपया देखें वर्ण विशेषता विवरण हटाएँ.

डेमो: कोशिकाओं से संख्यात्मक, वर्णमाला, गैर-मुद्रण योग्य या अल्फ़ान्यूमेरिक वर्ण हटाएं

संबंधित आलेख:

• कोशिकाओं से अल्फ़ा वर्ण हटाएँ
• कक्षों से संख्यात्मक वर्ण हटाएँ
• कक्षों से गैर-मुद्रण योग्य वर्ण हटाएँ
• कोशिकाओं से गैर-अल्फा वर्ण हटाएँ
• गैर-अल्फ़ान्यूमेरिक वर्ण हटाएँ

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖	कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
	लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
	सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
	उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
	स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
	फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
	शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

अधिक पढ़ें... मुफ्त डाउनलोड...

---

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...