मुख्य सामग्री पर जाएं

यदि एक्सेल में सेल में शून्य है तो पूरी पंक्ति को कैसे हटाएं?

लेखक: रवि अंतिम संशोधित: 2020-05-21

कभी-कभी, यदि एक्सेल में सेल में शून्य है तो आप पूरी पंक्ति को हटाना चाहते हैं, और यदि उनमें से कुछ हैं तो आप उन्हें एक-एक करके हटा सकते हैं। लेकिन शून्य वाली सैकड़ों पंक्तियों को हटाने की क्या ज़रूरत है? आप इसे हल करने के लिए नीचे दिए गए पेचीदा तरीकों में से एक चुन सकते हैं।

यदि एक्सेल में फ़िल्टर फ़ंक्शन के साथ सेल में शून्य है तो पंक्ति हटाएं
यदि Excel में VBA के साथ सेल में शून्य है तो पंक्ति हटाएँ
यदि सेल में एक्सेल के लिए कुटूल के साथ शून्य है तो पंक्ति हटा दें


यदि एक्सेल में फ़िल्टर फ़ंक्शन के साथ सेल में शून्य है तो पंक्ति हटाएं

आप किसी निश्चित कॉलम में शून्य मानों के आधार पर सभी पंक्तियों को फ़िल्टर करने के लिए फ़िल्टर फ़ंक्शन का उपयोग कर सकते हैं, और फिर बाद में सभी दृश्य पंक्तियों को हटा सकते हैं। कृपया निम्नानुसार करें.

1. उन स्तंभ कक्षों का चयन करें जिनमें वे शून्य मान हैं जिनके आधार पर आप संपूर्ण पंक्तियों को हटाना चाहते हैं, फिर क्लिक करें जानकारी > फ़िल्टर. स्क्रीनशॉट देखें:

2. फिर चयनित कॉलम के पहले सेल में एक ड्रॉप-डाउन तीर प्रदर्शित हो रहा है, तीर पर क्लिक करें और फिर चयन करें संख्या फ़िल्टर > बराबरी ड्रॉप-डाउन सूची से

शून्य होने पर दस्तावेज़ हटाएं 1

3। में कस्टम AutoFilter संवाद बॉक्स, संख्या दर्ज करें 0 जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, टेक्स्टबॉक्स में डालें और फिर क्लिक करें OK बटन.

शून्य होने पर दस्तावेज़ हटाएं 1

4. फिर इस निश्चित कॉलम में सभी शून्य मान वाले सेल फ़िल्टर कर दिए जाते हैं। कृपया फ़िल्टर श्रेणी में सभी दृश्यमान कक्षों का चयन करें और उन पर राइट क्लिक करें, चयन करें पंक्ति हटाएं राइट-क्लिक मेनू से। और पॉपिंग प्रॉम्प्ट बॉक्स में, क्लिक करें OK बटन। स्क्रीनशॉट देखें:

शून्य होने पर दस्तावेज़ हटाएं 1

5. अब सभी दृश्यमान पंक्तियाँ हटा दी गई हैं। आप क्लिक कर सकते हैं जानकारी > फ़िल्टर शून्य मान कोशिकाओं के बिना सभी डेटा दिखाने के लिए फिर से। स्क्रीनशॉट देखें:

शून्य होने पर दस्तावेज़ हटाएं 1


यदि एक्सेल में एक निश्चित सीमा में शून्य मान मौजूद हैं तो सभी पंक्तियों को आसानी से हटा दें:

एक्सेल के लिए कुटूल विशिष्ट कक्षों का चयन करें यदि किसी निश्चित सीमा में शून्य मान मौजूद हैं तो उपयोगिता आपको आसानी से संपूर्ण पंक्तियों का चयन करने में मदद करती है, और फिर आप बिना किसी गलती के सभी चयनित पंक्तियों को मैन्युअल रूप से हटा सकते हैं।
अभी डाउनलोड करें और इसे आज़माएं! (30 दिन का निःशुल्क ट्रेल)


यदि Excel में VBA के साथ सेल में शून्य है तो पंक्ति हटाएँ

यदि एक्सेल में किसी निश्चित कॉलम में शून्य मान मौजूद हैं तो यह अनुभाग आपको सभी पंक्तियों को हटाने के लिए वीबीए विधि दिखाएगा।

1। दबाएँ ऑल्ट + F11 प्रदर्शित करने के लिए कुंजियाँ एक साथ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, क्लिक करें सम्मिलित करें > मॉड्यूल, फिर मॉड्यूल विंडो में निम्नलिखित VBA कोड को कॉपी और पेस्ट करें।

वीबीए: यदि वर्कशीट में कुछ कॉलम रेंज में शून्य मान मौजूद है तो पूरी पंक्तियाँ हटा दें

उप DeleteZeroRow()
'20140616 तक अपडेट करें
रेंज के रूप में मंद रिंग
रेंज के रूप में मंद वर्कआरएनजी
त्रुटि पर अगला पुनरारंभ करें
xTitleId = "KutoolsforExcel"
वर्कआरएनजी = एप्लिकेशन.चयन सेट करें
वर्कआरएनजी सेट करें = एप्लिकेशन.इनपुटबॉक्स ("रेंज", xTitleId, वर्कआरएनजी.एड्रेस, प्रकार:=8)
एप्लिकेशन.स्क्रीनअपडेटिंग = गलत
करना
    सेट Rng = WorkRng.Find("0", लुकइन:=xlValues)
    यदि रिंग नहीं है तो कुछ भी नहीं है
        Rng.संपूर्ण पंक्ति.हटाएँ
    अगर अंत
लूप जबकि रिंग नहीं है कुछ भी नहीं है
एप्लिकेशन.स्क्रीनअपडेटिंग = सत्य
अंत उप

3। दबाएं F5 पॉप अप में कोड को चलाने की कुंजी KutoolsforExcel संवाद बॉक्स में, उस कॉलम श्रेणी का चयन करें जिसके अंदर आप शून्य मानों के आधार पर संपूर्ण पंक्तियों को हटाना चाहते हैं, फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:

शून्य होने पर दस्तावेज़ हटाएं 1

फिर निर्दिष्ट कॉलम श्रेणी में शून्य मानों के आधार पर सभी पंक्तियाँ तुरंत हटा दी जाती हैं।

शून्य होने पर दस्तावेज़ हटाएं 1


यदि सेल में एक्सेल के लिए कुटूल के साथ शून्य है तो पंक्ति हटा दें

कई Excel उपयोगकर्ताओं के लिए, Excel में डेटा हटाने के लिए VBA कोड का उपयोग करना खतरनाक है। यदि आपको वीबीए कोड पर पूरा भरोसा नहीं है, तो हम आपको इसे आज़माने की सलाह देते हैं विशिष्ट कक्षों का चयन करें की उपयोगिता एक्सेल के लिए कुटूल.

आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.

1. कॉलम श्रेणी का चयन करें, आप अंदर के शून्य मानों के आधार पर पूरी पंक्तियों को हटा देंगे, और फिर क्लिक करें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें. स्क्रीनशॉट देखें:

2। में विशिष्ट कक्षों का चयन करें संवाद, आपको यह करना होगा:

(३) चुनें पूरी पंक्ति में विकल्प चयन प्रकार अनुभाग।

(2) चुनें बराबरी पहली बार में विशिष्ट प्रकार ड्रॉप-डाउन सूची, फिर नंबर दर्ज करें 0 टेक्स्ट बॉक्स में।

(3) क्लिक करें OK बटन.

3. एक डायलॉग बॉक्स पॉप अप होगा जो आपको बताएगा कि कितनी पंक्तियाँ चुनी गई हैं, क्लिक करें OK बटन। अब निर्दिष्ट कॉलम श्रेणी में मौजूद शून्य मान वाली सभी पंक्तियाँ चयनित हैं। कृपया किसी भी चयनित पंक्ति पर राइट क्लिक करें, फिर क्लिक करें मिटाना राइट-क्लिक मेनू में। स्क्रीनशॉट देखें:

शून्य होने पर दस्तावेज़ हटाएं 1

अब निर्दिष्ट कॉलम में मौजूद शून्य मान वाली सभी पंक्तियाँ तुरंत हटा दी जाती हैं। स्क्रीनशॉट देखें:

शून्य होने पर दस्तावेज़ हटाएं 1

  यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।


यदि सेल में एक्सेल के लिए कुटूल के साथ शून्य है तो पंक्ति हटा दें


संबंधित लेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations