किसी अन्य शीट पर मानदंड से मेल नहीं खाने वाली पंक्तियों को कैसे हटाएं?
आपके लिए उन पंक्तियों को हटाना मुश्किल नहीं हो सकता है जो एक ही शीट पर मानदंडों से मेल नहीं खाती हैं, लेकिन क्या आप किसी अन्य शीट पर मानदंडों से मेल नहीं खाने वाली पंक्तियों को हटाने का कोई तरीका जानते हैं जैसा कि नीचे दिखाया गया है। अब मेरे पास दो तरकीबें हैं जो इसे शीघ्रता से हल करने में आपकी सहायता कर सकती हैं।
VBA के साथ किसी अन्य शीट पर मानदंड से मेल न खाने वाली पंक्तियों को हटा दें
एक्सेल के लिए कुटूल के साथ किसी अन्य शीट पर मानदंड से मेल नहीं खाने वाली पंक्तियों को हटा दें
मानदंड (शीट 2 में) | पहले(शीट 1) | बाद में(शीट1) |
VBA के साथ किसी अन्य शीट पर मानदंड से मेल न खाने वाली पंक्तियों को हटा दें
एक वीबीए कोड है जो आपको किसी अन्य शीट पर मानदंडों से मेल नहीं खाने वाली पंक्तियों को हटाने में मदद कर सकता है।
1। दबाएँ ऑल्ट + F11 प्रदर्शित करने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल विंडो दिखाने के लिए, फिर निम्नलिखित VBA कोड को मॉड्यूल विंडो में कॉपी करें।
वीबीए: एक्सेल में किसी अन्य शीट पर मानदंड से मेल नहीं खाने वाली पंक्तियों को हटा दें।
Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
xKey = arr2(i, 1)
dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
xKey = arr1(i, 1)
If dic2.Exists(xKey) Then
OutArr(xIndex, 1) = xKey
xIndex = xIndex + 1
End If
Next
Rng1.Value = OutArr
End Sub
3। क्लिक करें रनतक KutoolsforExcel आपके लिए एक श्रेणी का चयन करने के लिए संवाद पॉप अप होता है, आप उन पंक्तियों को हटाना चाहते हैं जो मानदंडों से मेल नहीं खा रही हैं। स्क्रीनशॉट देखें:
4। क्लिक करें OK, और एक अन्य शीट में मानदंड का चयन करने के लिए एक और संवाद पॉप आउट होता है, स्क्रीनशॉट देखें:
5. अब किसी अन्य शीट में मानदंडों से मेल नहीं खाने वाली सभी पंक्तियाँ हटा दी जाती हैं।
एक्सेल के लिए कुटूल के साथ किसी अन्य शीट पर मानदंड से मेल नहीं खाने वाली पंक्तियों को हटा दें
यदि वीबीए कोड आपके लिए थोड़ा कठिन है, तो आप कुटूल्स फॉर एक्सेल के कंपेयर रेंज फीचर को आज़मा सकते हैं।
एक्सेल के लिए कुटूल इसमें 300 से अधिक उपयोगी एक्सेल टूल शामिल हैं। 30 दिनों में बिना किसी सीमा के प्रयास करने के लिए निःशुल्क। अब समझे
1. उस शीट का चयन करें जिसे आप उन पंक्तियों को हटाना चाहते हैं जो मानदंडों से मेल नहीं खा रही हैं। और क्लिक करें कुटूल > रेंज की तुलना करें. स्क्रीनशॉट देखें:
2। में रेंज की तुलना करें डायलॉग में बटन पर क्लिक करें रेंज बी, और फिर आप अपनी आवश्यक मानदंड सीमा का चयन कर सकते हैं। स्क्रीनशॉट देखें:
3। तब दबायें OK, फिर वापस रेंज की तुलना करें संवाद, जांचें भिन्न मूल्य और संपूर्ण पंक्तियाँ चुनें. स्क्रीनशॉट देखें:
4। क्लिक करें Ok, और बाहर निकलें रेंज की तुलना करें संवाद. फिर आप देखते हैं कि मानदंड से भिन्न मान पंक्तियाँ चयनित हैं।
5. क्लिक करने के लिए राइट क्लिक करें मिटाना संदर्भ मेनू से उन पंक्तियों को हटाने के लिए जो किसी अन्य शीट पर मानदंडों से मेल नहीं खा रही हैं।
एक्सेल की तुलना रेंज के लिए कुटूल पर अधिक जानकारी के लिए यहां क्लिक करें।
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!