मुख्य सामग्री पर जाएं

एक्सेल में सेल से डैश को तुरंत कैसे हटाएं?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-04-30

मान लीजिए कि आपके वर्कशीट सेल में ज़िप कोड या लंबे आईएसबीएन नंबरों की एक सूची है, और लंबे नंबरों में डैश हैं, तो किसी उद्देश्य के लिए, आपको संख्याओं के बीच डैश से छुटकारा पाना होगा (जैसा कि निम्नलिखित स्क्रीनशॉट दिखाते हैं)। क्या एक्सेल में संख्याओं के बीच इन डैश को हटाने का कोई त्वरित तरीका है?

सूत्र वाले कक्षों से डैश हटाएँ
VBA कोड वाले कक्षों से डैश हटाएँ
एक्सेल के लिए कुटूल के साथ सेल से आसानी से डैश हटाएं


सूत्र वाले कक्षों से डैश हटाएँ

इस के साथ विकल्प फ़ंक्शन, संख्याओं को टेक्स्ट मानों में परिवर्तित कर दिया जाएगा, इसलिए जब आप डैश हटाएंगे, तो न तो अग्रणी 0 हटाया जाएगा और न ही संख्याएं वैज्ञानिक संकेतन बन जाएंगी। कृपया इस प्रकार करें:

1. उदाहरण के लिए, आसन्न रिक्त कक्ष, C1 में, यह सूत्र दर्ज करें: =विकल्प(ए1,"-",""), स्क्रीनशॉट देखें:

2। दबाएँ दर्ज कुंजी, और सेल C1 का चयन करें, फिर भरण हैंडल को उस सीमा तक खींचें जिसमें आप इस सूत्र को शामिल करना चाहते हैं। और संख्याओं के बीच का डैश हटा दिया गया है। स्क्रीनशॉट देखें:

Excel में कक्षों से सभी संख्यात्मक, गैर-संख्यात्मक या निर्दिष्ट वर्ण जैसे "डैश" को आसानी से हटा दें:

एक्सेल के लिए कुटूल's अक्षर हटाएँ उपयोगिता आपको Excel में चयनित कक्षों से सभी संख्यात्मक, गैर-संख्यात्मक या निर्दिष्ट वर्णों को आसानी से हटाने में मदद करती है।
अभी डाउनलोड करें और इसे आज़माएं! (30 दिन का निःशुल्क ट्रेल)


VBA कोड वाले कक्षों से डैश हटाएँ

निम्नलिखित VBA कोड के साथ, आप कक्षों की श्रेणी से संख्याओं के बीच के डैश को भी हटा सकते हैं।

1. उस श्रेणी को हाइलाइट करें जिससे आप डैश हटाना चाहते हैं।

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

3। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।

वीबीए: संख्याओं के बीच डैश हटाएं

Sub DeleteDashes()
'Update 20130907
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)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक संवाद पॉप आउट होता है जो आपको बताता है कि आप जिस श्रेणी का उपयोग करना चाहते हैं उसे चुनें। स्क्रीनशॉट देखें:

5। और फिर क्लिक करें OK, संख्याओं के बीच के डैश को कोशिकाओं से हटा दिया गया है। और संख्या प्रारूप को टेक्स्ट प्रारूप में परिवर्तित कर दिया जाता है। स्क्रीनशॉट देखें:


Excel के लिए Kutools के साथ कक्षों से डैश हटाएँ

यदि आप एक्सेल में शुरुआत कर रहे हैं, तो फॉर्मूला और कोड दोनों आपके लिए कठिन हैं, कृपया चिंता न करें एक्सेल के लिए कुटूलहै अक्षर हटाएँ फ़ंक्शन आपको कोशिकाओं से डैश को तुरंत हटाने में मदद कर सकता है।

आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.

1. वह श्रेणी चुनें जिसमें आपको डैश हटाने की आवश्यकता है और फिर क्लिक करें कुटूल > टेक्स्ट > अक्षर हटाएँ, स्क्रीनशॉट देखें:

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

नोट. यदि चयनित कोशिकाओं में अग्रणी शून्य या बहुत सारे अंक हैं, तो अग्रणी शून्य रखने और डैश हटाने के बाद संख्या को वैज्ञानिक संकेतन बनने से रोकने के लिए, आपको कोशिकाओं को टेक्स्ट के रूप में प्रारूपित करने की आवश्यकता है जैसा कि नीचे दिए गए स्क्रीनशॉट में दिखाया गया है। अक्षर हटाएँ उपयोगिता।

  यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।


एक्सेल के लिए कुटूल के साथ सेल से आसानी से डैश हटाएं


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

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
this and the concatenate command have saved my brain from melting! thank you!
This comment was minimized by the moderator on the site
Sub DeleteDashes() 'Update 20130907 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) Application.ScreenUpdating = False For Each rng In WorkRng rng.NumberFormat = "@" rng.Value = VBA.Replace(rng.Value, "-", "") Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
unimpressed with your instructions - using the =SUBSTITUTE formula above, the leading zeros are stripped
This comment was minimized by the moderator on the site
THANK YOU EXTEND OFFICE IT'S VERY HELPFUL AND SIMPLE.. KUDOS!
This comment was minimized by the moderator on the site
Use the find and replace feature. (Ctrl + F, click the replace tab). Enter "-" Into the find field (or whatever you're trying to remove) and hit the replace button. Make sure you leave the "Replace with" field blank.
This comment was minimized by the moderator on the site
Great it works
This comment was minimized by the moderator on the site
WOW.... You win this whole thread, THANK YOU!!!
This comment was minimized by the moderator on the site
Hi, This is manish gupta and it is the good code of removing the border areas in excel sheets. thanks and regards manish gupta
This comment was minimized by the moderator on the site
HI , MY PROBMEL SOLVE PLEASE
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations