यदि नाम में कार्यपुस्तिका से विशिष्ट पाठ है तो शीट को कैसे हटाएं?
मान लीजिए, आपके पास एक कार्यपुस्तिका है जिसमें एकाधिक कार्यपत्रक हैं, और अब, आप टैब नामों से पत्रक को हटाना चाहते हैं। उदाहरण के लिए, यदि शीट नाम में एक विशिष्ट टेक्स्ट "KTE" है, तो उसे हटा दें, और फिर निम्न स्क्रीनशॉट प्राप्त करें। यदि नाम में कोई विशिष्ट पाठ है तो आप शीटों को एक-एक करके हटाए बिना तुरंत कैसे हटा सकते हैं?
यदि नाम में वीबीए कोड के साथ विशिष्ट पाठ है तो शीट हटा दें
यदि नाम में वीबीए कोड के साथ विशिष्ट पाठ है तो शीट हटा दें
यहां, मैं आपके लिए नाम से शीट हटाने के लिए एक वीबीए कोड बनाऊंगा, कृपया इसे इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: यदि नाम में विशिष्ट पाठ है तो शीट हटा दें
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए पॉप आउट होता है कि आप उस विशिष्ट टेक्स्ट को दर्ज करें जिसके आधार पर आप शीट टैब को हटाना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, वे सभी शीट जिनके नाम में निर्दिष्ट पाठ "केटीई" है, एक ही बार में हटा दिए गए हैं। स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!