वर्कबुक से खाली शीट कैसे हटाएं
मान लीजिए कि आपके पास कई शीटों वाली एक बड़ी कार्यपुस्तिका है, लेकिन इस कार्यपुस्तिका में बिना किसी सामग्री के कुछ खाली शीट हैं। कार्यपुस्तिका को अधिक पेशेवर और औपचारिक बनाने के लिए, आप इन रिक्त शीटों को कार्यपुस्तिका से हटाना चाहेंगे। खाली शीटों को एक-एक करके हटाने के बजाय, मैं सभी खाली शीटों को शीघ्रता से हटाने के तरीकों का परिचय देता हूँ।
Excel के लिए Kutools द्वारा रिक्त शीट निकालें
VBA द्वारा रिक्त शीट निकालें
यहां मैं एक खुली हुई कार्यपुस्तिका से सभी रिक्त शीटों को तुरंत हटाने में आपकी सहायता के लिए एक वीबीए का परिचय देता हूं।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ बुनियादी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल खिड़की.
2. और क्लिक करें सम्मिलित करें > मॉड्यूल, नए पॉप आउट पर VBA कोड के नीचे चिपकाएँ मॉड्यूल खिड़की.
वीबीए: खाली शीट हटाएँ.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub
3. और दबाएँ F5 वीबीए निष्पादित करने के लिए कुंजी या रन बटन, और एक संवाद आपको यह याद दिलाने के लिए पॉप आउट होता है कि खाली शीट को हटाना है या नहीं, क्लिक करें हाँ हटाते जाना, नहीं इस VBA को रद्द करने के लिए.
4. क्लिक करने के बाद हाँ, आपको हटाई गई शीटों की संख्या बताने के लिए एक संवाद पॉप होता है, क्लिक करें OK इसे बंद करने के लिए, और इस समय सभी खाली शीट हटा दी गई हैं।
Excel के लिए Kutools द्वारा रिक्त शीट निकालें
कुछ एक्सेल ग्रीन हाथों के लिए, VBA निष्पादित करने के लिए कुछ हद तक कठिन तरीका है, लेकिन इसके साथ एक्सेल के लिए कुटूलहै रिक्त कार्यपत्रक हटाएँ फ़ंक्शन, आप तीन माउस-क्लिक के साथ किसी कार्यपुस्तिका से सभी खाली शीटों को तुरंत हटा सकते हैं!
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. जिस कार्यपुस्तिका से आप उसकी खाली शीट हटाना चाहते हैं उसे सक्षम करें और क्लिक करें कुटूल्स प्लस > वर्कशीट > रिक्त कार्यपत्रक हटाएँ. स्क्रीनशॉट देखें:
संबंधित लेख:
- Excel में किसी सूची से डुप्लिकेट को कैसे गिनें और हटाएँ?
- एक्सेल में nवें कैरेक्टर के बाद स्ट्रिंग को कैसे हटाएं?
- एक्सेल में कोष्ठक/कोष्ठक के भीतर से टेक्स्ट को कैसे हटाएं?
- Excel में रेखा आकृतियाँ कैसे हटाएँ?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!