एक्सेल में हेडर वाले खाली कॉलम कैसे हटाएं?
यदि आपके पास एक बड़ी वर्कशीट है जिसमें कई कॉलम हैं, लेकिन कुछ कॉलम में केवल एक हेडर है, और अब, आप निम्न स्क्रीनशॉट दिखाने के लिए इन खाली कॉलमों को हटाना चाहते हैं जिनमें केवल एक हेडर है। क्या इसे एक्सेल में जल्दी और आसानी से हल किया जा सकता है?
VBA कोड का उपयोग करके हेडर वाले खाली कॉलम हटाएं
एक्सेल के लिए कुटूल के साथ एक रेंज/वर्कशीट/वर्कबुक में कई खाली कॉलम हटाएं
VBA कोड का उपयोग करके हेडर वाले खाली कॉलम हटाएं
एक्सेल में, इस काम से निपटने के लिए उन्हें मैन्युअल रूप से एक-एक करके हटाने के अलावा कोई सीधा तरीका नहीं है, लेकिन, यहां, मैं आपके लिए एक कोड पेश कर सकता हूं, कृपया निम्नानुसार करें:
1. नीचे पकड़ो ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: हेडर के साथ खाली कॉलम हटाएं:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि हेडर के साथ रिक्त कॉलम हटा दिए जाएंगे, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, वर्तमान वर्कशीट में केवल हेडर वाले सभी रिक्त कॉलम एक ही बार में हटा दिए जाते हैं।
नोट: यदि खाली कॉलम हैं तो उन्हें भी हटा दिया जाएगा।
एक्सेल के लिए कुटूल के साथ एक रेंज/वर्कशीट/वर्कबुक में कई खाली कॉलम हटाएं
कभी-कभी, आपको केवल रिक्त कॉलम हटाने की आवश्यकता होती है एक्सेल के लिए कुटूलहै छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ उपयोगिता इस कार्य को आसानी से पूरा करने में आपकी सहायता कर सकती है।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1. कॉलम श्रेणी का चयन करें जिसमें रिक्त कॉलम शामिल हैं जिन्हें हटाने की आवश्यकता है।
2। तब दबायें कुटूल > मिटाना > छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ, स्क्रीनशॉट देखें:
3. में छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ डायलॉग बॉक्स में, आप अपनी आवश्यकतानुसार लुक इन ड्रॉप डाउन से डिलीट स्कोप का चयन कर सकते हैं स्तंभ से प्रकार हटाएँ अनुभाग, और फिर चुनें रिक्त स्तम्भ से विस्तृत प्रकार अनुभाग, स्क्रीनशॉट देखें:
4। तब दबायें Ok बटन, और केवल खाली कॉलम एक बार में हटा दिए जाते हैं। स्क्रीनशॉट देखें:
टिप्स: इस शक्तिशाली सुविधा के साथ, आप आवश्यकतानुसार रिक्त पंक्तियों, दृश्यमान स्तंभों या पंक्ति, छिपे हुए स्तंभों या पंक्तियों को भी हटा सकते हैं।
अभी एक्सेल के लिए नि:शुल्क डाउनलोड कुटूल पर क्लिक करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!