एक्सेल में सेल से सभी स्ट्राइकथ्रू टेक्स्ट या कैरेक्टर को कैसे हटाएं या हटाएं?
यह आलेख Excel में एकाधिक कक्षों से सभी स्ट्राइकथ्रू टेक्स्ट या वर्णों को हटाने के बारे में बात कर रहा है।
वीबीए कोड वाले सेल से सभी स्ट्राइकथ्रू टेक्स्ट हटाएं
वीबीए कोड वाले सेल से सभी स्ट्राइकथ्रू टेक्स्ट हटाएं
नीचे दिया गया वीबीए कोड आपको उन सभी सेल टेक्स्ट को हटाने में मदद कर सकता है जिन्हें स्ट्राइकथ्रू के साथ चिह्नित किया गया है। कृपया निम्नानुसार करें.
1. वर्कशीट में स्ट्राइकथ्रू टेक्स्ट शामिल हैं जिन्हें आपको हटाना है, दबाएं ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें इनसेट > मॉड्यूल. फिर कोड विंडो में वीबीए कोड के नीचे कॉपी और पेस्ट करें।
वीबीए कोड: सेल से सभी स्ट्राइकथ्रू टेक्स्ट हटाएं
Sub DelStrikethroughText()
Dim xRg As Range, xCell As Range
Dim xStr As String
Dim I As Long
On Error Resume Next
Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = Fase
For Each xCell In xRg
If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
xCell.Value = ""
ElseIf Not IsNumeric(xCell.Value) Then
For I = 1 To Len(xCell)
With xCell.Characters(I, 1)
If Not .Font.Strikethrough Then
xStr = xStr & .Text
End If
End With
Next
xCell.Value = xStr
xStr = ""
End If
Next
Application.ScreenUpdating = True
End Sub
3। दबाएं F5 कुंजी या क्लिक करें रन कोड चलाने के लिए बटन. पॉप अप में एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया उस श्रेणी का चयन करें जिसमें स्ट्राइकथ्रू टेक्स्ट शामिल हैं जिन्हें आप हटा देंगे, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
फिर स्ट्राइकथ्रू के साथ चिह्नित सभी पाठ तुरंत नीचे स्क्रीनशॉट में दिखाए गए अनुसार कोशिकाओं से हटा दिए जाते हैं।
संबंधित आलेख:
- एक्सेल में किसी विशिष्ट कैरेक्टर के पहले या बाद के टेक्स्ट को कैसे हटाएं?
- एक्सेल में सेल से अवांछित टेक्स्ट कैसे हटाएं?
- एक्सेल में टेक्स्ट और नंबर वाले सेल से नंबर कैसे हटाएं?
- एक्सेल में संख्याओं और टेक्स्ट वाले सेल से केवल टेक्स्ट कैसे हटाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!