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

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

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-17

मान लीजिए, आपके पास निम्नलिखित डेटा रेंज है, और यदि कॉलम बी में संख्या नकारात्मक है तो आप पूरी पंक्तियों को हटाना चाहते हैं, क्या एक्सेल में इस समस्या को हल करने के लिए कोई अच्छा तरीका है?

नकारात्मक 1 के साथ दस्तावेज़ हटाएं 2 नकारात्मक 2 के साथ दस्तावेज़ हटाएं

VBA कोड का उपयोग करके ऋणात्मक संख्याओं वाली पंक्तियाँ हटाएँ

Excel के लिए Kutools का उपयोग करके ऋणात्मक संख्याओं वाली पंक्तियाँ हटाएँ


तीर नीला दायां बुलबुला VBA कोड का उपयोग करके ऋणात्मक संख्याओं वाली पंक्तियाँ हटाएँ

यदि किसी विशिष्ट कॉलम में ऋणात्मक संख्याएँ हैं तो निम्नलिखित VBA कोड आपको संपूर्ण पंक्तियों को हटाने में मदद कर सकता है, कृपया निम्नानुसार करें:

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

2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.

VBA कोड: ऋणात्मक संख्याओं वाली पंक्तियाँ हटाएँ

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. और फिर दबाएँ F5 इस कोड को निष्पादित करने के लिए कुंजी, प्रॉम्प्ट बॉक्स में, कृपया उस संख्या कॉलम का चयन करें जिससे आप नकारात्मक संख्याएं ढूंढना चाहते हैं, स्क्रीनशॉट देखें:

नकारात्मक 3 के साथ दस्तावेज़ हटाएं

4। तब दबायें OK बटन, ऋणात्मक संख्याओं वाली पंक्तियाँ तुरंत हटा दी गई हैं।


तीर नीला दायां बुलबुला Excel के लिए Kutools का उपयोग करके ऋणात्मक संख्याओं वाली पंक्तियाँ हटाएँ

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

एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. 

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1. उस कॉलम का चयन करें जिसमें नकारात्मक संख्याएँ हैं जिन्हें आप हटाना चाहते हैं।

2। तब दबायें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें, स्क्रीनशॉट देखें:

3. में विशिष्ट कक्षों का चयन करें संवाद बॉक्स में, चयन करें पूरी पंक्ति में विकल्प चयन प्रकार, और उसके बाद चुनें कम से कम से विशिष्ट प्रकार और दर्ज करें 0 मानदंड के बगल वाले टेक्स्ट बॉक्स में स्क्रीनशॉट देखें:

नकारात्मक 5 के साथ दस्तावेज़ हटाएं

4। तब दबायें Ok, जिन पंक्तियों में ऋणात्मक संख्याएँ हैं उन्हें एक बार में चुना गया है, और फिर क्लिक करें होम > मिटाना > शीट पंक्तियों को हटाएं अपनी आवश्यकतानुसार चयनित पंक्तियों को हटाने के लिए स्क्रीनशॉट देखें:

नकारात्मक 6 के साथ दस्तावेज़ हटाएं 2 नकारात्मक 7 के साथ दस्तावेज़ हटाएं

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

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for the delete function .. works great .. must be numeric field not just - regards
This comment was minimized by the moderator on the site
Thanks for this!

Is there a way of doing this with positive values too?
This comment was minimized by the moderator on the site
Hi, Jon,
To remove rows with positive values, you just need to apply the following code, please try.
Sub Deleter()
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) > 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations