यदि शीट का नाम सूची में नहीं है तो शीट को कैसे हटाएं?
मान लीजिए, मेरे पास एक वर्कशीट है जिसमें कॉलम ए में वर्कबुक के भीतर शीट नामों की एक सूची है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, और वर्कबुक में कुछ निश्चित शीट नाम सूची में नहीं हैं, अब, मैं उन शीटों को हटाना चाहता हूं जो सूची में नहीं हैं कॉलम ए की सूची में। मैं एक्सेल में इस कार्य को जल्दी और आसानी से कैसे हल कर सकता हूं?
जो शीट VBA कोड के साथ किसी विशिष्ट सूची में नहीं हैं उन्हें हटा दें
जो शीट VBA कोड के साथ किसी विशिष्ट सूची में नहीं हैं उन्हें हटा दें
आम तौर पर, आप शीट नामों की एक-एक करके जांच कर सकते हैं, और जो शीट नाम सूची में नहीं हैं उन्हें हटा सकते हैं। लेकिन, यहां, मैं इससे निपटने के लिए वीबीए कोड के बारे में बात कर सकता हूं। कृपया इस प्रकार करें:
1. उस वर्कशीट पर जाएँ जिसमें शीट नामों की सूची है, और फिर दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। तब दबायें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: जो शीट सूची में नहीं हैं उन्हें हटा दें
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
नोट: उपरोक्त कोड में, A2: A6 सेल संदर्भ है जिसमें शीट नाम शामिल हैं, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं।
3. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, जो शीट सूची में नहीं हैं उन्हें तुरंत हटा दिया गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!