एक्सेल में निर्दिष्ट/वर्तमान शीट को छोड़कर सभी शीट को कैसे हटाएं?
एक्सेल वर्कबुक में निर्दिष्ट एक या वर्तमान सक्रिय शीट को छोड़कर सभी शीटों को हटाने के लिए, आप नीचे दिखाए गए तरीकों से इससे निपट सकते हैं।
VBA कोड वाली निर्दिष्ट शीट को छोड़कर सभी शीट हटा दें
एक्सेल के लिए कुटूल के साथ वर्तमान सक्रिय शीट को छोड़कर सभी शीट को हटाने के लिए एक क्लिक
VBA कोड वाली निर्दिष्ट शीट को छोड़कर सभी शीट हटा दें
नीचे दिए गए वीबीए कोड के साथ, आप एक्सेल में विशिष्ट शीट को छोड़कर किसी कार्यपुस्तिका में सभी शीट को हटा सकते हैं।
1। दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ माइक्रोसॉफ्ट विज़ुअल बेसिक एप्लिकेशन खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर मॉड्यूल विंडो में VBA कोड के नीचे कॉपी और पेस्ट करें।
वीबीए कोड: निर्दिष्ट शीट को छोड़कर सभी शीट हटा दें
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
नोट्स:
1. 'Sheet1" तथा "Sheet2"वे शीट हैं जिन्हें आप वर्तमान कार्यपुस्तिका में रखना चाहते हैं। आप अपनी आवश्यकताओं के आधार पर उन्हें बदल सकते हैं।
2. यदि आप सभी को हटाना चाहते हैं लेकिन अधिक शीट रखना चाहते हैं, तो कृपया कोड जोड़ें और xWs.Name <> "आपकी शीट का नाम" से पहले फिर कोड की छठी पंक्ति में शब्द. जैसे कि:
यदि xWs.Name <> "Sheet1" और xWs.Name <> "Sheet2" और xWs.Name <> "आपकी शीट का नाम" फिर
3. यदि आप केवल एक शीट रखना चाहते हैं और कार्यपुस्तिका से सभी को हटाना चाहते हैं, तो कृपया सभी को हटा दें तथा कोड में शर्त. उदाहरण के लिए, शीट1 को वर्तमान कार्यपुस्तिका में रखने के लिए, आपको छठी पंक्ति के कोड को इसमें बदलना होगा: यदि xWs.Name <> "शीट1" तो
एक्सेल के लिए कुटूल के साथ वर्तमान सक्रिय शीट को छोड़कर सभी शीट हटाएं (केवल एक क्लिक)
Yआप केवल एक क्लिक से वर्तमान सक्रिय शीट को छोड़कर सभी शीट आसानी से हटा सकते हैं सभी निष्क्रिय पत्रक हटाएँ की उपयोगिता एक्सेल के लिए कुटूल.
आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.
1। क्लिक करें कुटूल्स प्लस > वर्कशीट > सभी निष्क्रिय पत्रक हटाएँ.
3. फिर एक डायलॉग बॉक्स पॉप अप होता है, यदि आप सक्रिय शीट को छोड़कर सभी शीट को हटाने का निर्णय लेते हैं, तो क्लिक करें OK बटन, अन्यथा, क्लिक करें रद्द करना बटन.
फिर आपकी कार्यपुस्तिका में वर्तमान सक्रिय शीट को छोड़कर सभी शीट हटा दी जाती हैं।
यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।
एक्सेल के लिए कुटूल के साथ चयनित सेल के बीच में टेक्स्ट जोड़ें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!