Excel में पृष्ठभूमि रंग के आधार पर पंक्तियाँ कैसे हटाएँ?
आप पृष्ठभूमि रंग के आधार पर संपूर्ण पंक्तियों को कैसे हटा सकते हैं? इस उदाहरण में, मुझे उन सभी पंक्तियों को हटाना होगा जो सेल नीले पृष्ठभूमि रंग से भरी हुई हैं जैसा कि स्क्रीनशॉट में दिखाया गया है। इस लेख से आपको एक्सेल में इस कार्य को प्राप्त करने के लिए कुछ कोड मिलेंगे।
प्रत्येक कक्ष के आधार पर विशिष्ट पृष्ठभूमि रंग वाली पंक्तियाँ हटाएँ
एक कॉलम के आधार पर विशिष्ट पृष्ठभूमि रंग वाली पंक्तियाँ हटाएँ
प्रत्येक कक्ष के आधार पर विशिष्ट पृष्ठभूमि रंग वाली पंक्तियाँ हटाएँ
यदि आपके पास डेटा की एक श्रृंखला है जो कुछ सेल रंगों से यादृच्छिक रूप से भरी हुई है, और आपको उन पंक्तियों को हटाने की आवश्यकता है जिनमें सेल का रंग नीला है जैसा कि स्क्रीनशॉट में दिखाया गया है:
इस प्रकार की पंक्तियों को हटाने के लिए, आप निम्नलिखित VBA कोड का उपयोग कर सकते हैं, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: उन पंक्तियों को हटाएं जिनमें कोशिकाओं में विशिष्ट भरण रंग होता है:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस रंग वाले सेल का चयन करने की याद दिलाने के लिए पॉप अप होगा जिसे आप हटाना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK, और यदि सेल एक विशिष्ट भरण रंग के साथ है तो सभी पंक्तियाँ हटा दी गई हैं।
एक कॉलम के आधार पर विशिष्ट पृष्ठभूमि रंग वाली पंक्तियाँ हटाएँ
यदि आप केवल एक कॉलम के आधार पर विशिष्ट रंग वाली पंक्तियों को हटाना चाहते हैं, उदाहरण के लिए, कॉलम ए में नीले रंग वाली पंक्तियों को हटाएं और नीचे स्क्रीनशॉट प्राप्त करें, यहां एक वीबीए कोड भी आपकी मदद कर सकता है।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: उन स्तंभों के आधार पर पंक्तियाँ हटाएँ जिनमें कोशिकाओं का विशिष्ट भरण रंग है:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
नोट: उपरोक्त कोड में, A2: A21 वह कॉलम है जिसमें विशिष्ट भरण रंग होता है जिसे आप संख्या के आधार पर पंक्तियों को हटाना चाहते हैं 20 in कलरइंडेक्स = 20 स्क्रिप्ट वह रंग सूचकांक है जिसके आधार पर आप पंक्तियाँ हटाना चाहते हैं। आप इन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और कॉलम ए में जिन कक्षों में नीला रंग है, उन सभी पंक्तियों को एक साथ हटा दिया गया है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
