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

यदि एक्सेल में सेल एक निश्चित मान से अधिक/कम है तो पंक्तियों को कैसे हटाएं?

लेखक: सिलुविया अंतिम संशोधित: 2020-07-02

कभी-कभी आपको पंक्तियों को हटाने की आवश्यकता हो सकती है यदि निर्दिष्ट कॉलम में सेल एक्सेल में एक निश्चित मान से अधिक या कम हैं। यह आलेख इस समस्या से निपटने के लिए कई तरीकों की सिफारिश करेगा।

यदि सेल VBA कोड के साथ एक निश्चित मान से अधिक/कम है तो पंक्तियाँ हटा दें
यदि सेल एक्सेल के लिए कुटूल के साथ एक निश्चित मान से अधिक/कम है तो पंक्तियों को हटा दें
यदि Excel के लिए Kutoos के साथ सेल एक निश्चित मान से अधिक/कम है तो पंक्तियाँ हटा दें


यदि सेल VBA कोड के साथ एक निश्चित मान से अधिक/कम है तो पंक्तियाँ हटा दें

मान लीजिए कि आप संपूर्ण पंक्तियों को हटाना चाहते हैं यदि कॉलम डी में सेल एक्सेल में एक निश्चित मान से अधिक या कम है। इसे प्राप्त करने के लिए आप निम्नलिखित VBA कोड चला सकते हैं।

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

2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें।

वीबीए कोड: यदि एक्सेल में सेल एक निश्चित मान से अधिक/कम है तो पंक्तियाँ हटा दें

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

नोट: उपरोक्त कोड में, >30000 का अर्थ है कि यदि किसी निर्दिष्ट कॉलम में सेल 30000 से अधिक हैं तो आप पंक्तियों को हटा देंगे। यदि आप पंक्तियों को हटाना चाहते हैं यदि सेल एक निश्चित मान से कम हैं, तो कृपया चिह्न > को < में बदलें और फिर अपना मान निर्दिष्ट करें।

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

फिर कॉलम डी में 30000 से अधिक सेल मान वाली सभी पंक्तियाँ तुरंत हटा दी जाती हैं।


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

RSI विशिष्ट कक्षों का चयन करें की उपयोगिता एक्सेल के लिए कुटूल किसी निर्दिष्ट कॉलम में एक निश्चित मान से अधिक या कम सेल वाली सभी पंक्तियों का चयन करने में आपकी सहायता कर सकता है, और फिर आप सभी चयनित पंक्तियों को एक साथ मैन्युअल रूप से हटा सकते हैं।

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

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

2। में विशिष्ट कक्षों का चयन करें संवाद बॉक्स, कृपया चयन करें पूरी पंक्ति में चयन प्रकार अनुभाग। में विशिष्ट प्रकार अनुभाग चुनें से अधिक or कम से कम पहली ड्रॉप-डाउन सूची से, अगले टेक्स्टबॉक्स में निश्चित मान दर्ज करें, और फिर क्लिक करें OK बटन.

3. फिर एक डायलॉग बॉक्स पॉप अप होता है जो आपको बताता है कि कितनी पंक्तियाँ चुनी गई हैं, कृपया क्लिक करें OK बटन। और आप देख सकते हैं कि कॉलम D में 30000 से अधिक मान वाली सभी पंक्तियाँ तुरंत चुनी गई हैं।

4. चयनित पंक्तियों में से किसी एक पर राइट क्लिक करें, फिर क्लिक करें मिटाना राइट-क्लिक मेनू से. और सभी चयनित पंक्तियाँ हटा दी जाती हैं।

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


यदि Excel के लिए Kutoos के साथ सेल एक निश्चित मान से अधिक/कम है तो पंक्तियाँ हटा दें

उपरोक्त दो विधियों के अलावा, आप किसी निर्दिष्ट कॉलम में एक निश्चित मान से अधिक या कम कोशिकाओं वाली सभी पंक्तियों को फ़िल्टर कर सकते हैं, और फिर सभी फ़िल्टर की गई पंक्तियों को हटा सकते हैं छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ की उपयोगिता एक्सेल के लिए कुटूल.

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

1. कॉलम हेडर चुनें, फिर क्लिक करें जानकारी > फ़िल्टर. स्क्रीनशॉट देखें:

2. जिस कॉलम के आधार पर आप पंक्तियाँ हटाएँगे, उसमें ड्रॉप-डाउन तीर पर क्लिक करें, फिर क्लिक करें संख्या फ़िल्टर > से अधिक or से कम नीचे दिए गए स्क्रीनशॉट के अनुसार:

3। में कस्टम AutoFilter संवाद बॉक्स में, इससे अधिक है या इससे कम है बॉक्स के बाद निश्चित संख्या दर्ज करें और फिर क्लिक करें OK बटन.

4. फिर कुछ कोशिकाओं वाली सभी पंक्तियाँ जो कॉलम डी में एक निश्चित मान से अधिक या कम हैं, सभी को फ़िल्टर कर दिया जाता है। आप फ़िल्टर किए गए डेटा का चयन करके और फिर क्लिक करके सभी फ़िल्टर की गई पंक्तियों को हटा सकते हैं कुटूल > मिटाना > छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ. स्क्रीनशॉट देखें:

5। में छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ संवाद बॉक्स, सुनिश्चित करें चयनित रेंज में में विकल्प का चयन किया गया है यहां देखो ड्रॉप-डाउन सूची, का चयन करें पंक्तियाँ में प्रकार हटाएँ अनुभाग, में दृश्यमान पंक्तियाँ विकल्प निर्दिष्ट करें विस्तृत प्रकार अनुभाग, और अंत में क्लिक करें OK बटन.

6. फिर चयनित श्रेणी में सभी दृश्यमान पंक्तियाँ तुरंत हटा दी जाती हैं, आप क्लिक करके फ़िल्टर को रद्द कर सकते हैं जानकारी > फ़िल्टर.

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


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


संबंधित आलेख:

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations