एक्सेल में एकाधिक शीटों में समान पंक्तियों या श्रेणियों को कैसे हटाएं?
यह आलेख एक्सेल में एक ही समय में कई शीटों में समान पंक्तियों या श्रेणियों को हटाने के दो तरीकों की सिफारिश करता है। कृपया निम्नानुसार करें.
सभी शीटों को समूहीकृत करने के साथ एकाधिक शीटों में समान पंक्तियाँ या श्रेणियाँ हटाएँ
VBA कोड के साथ एकाधिक शीटों में समान पंक्तियाँ या श्रेणियाँ हटाएँ
सभी शीटों को समूहीकृत करने के साथ एकाधिक शीटों में समान पंक्तियाँ या श्रेणियाँ हटाएँ
सभी कार्यपत्रकों को समूहित करना और फिर एक ही समय में इन कार्यपत्रकों से समान पंक्तियों या श्रेणियों को हटाना आसान है।
1. वर्तमान कार्यपुस्तिका में किसी भी शीट टैब पर राइट क्लिक करें, फिर क्लिक करें सभी पत्रक चुनें राइट-क्लिक मेनू से।
2. अब सभी वर्कशीट चयनित हैं, यदि आप किसी वर्कशीट में कुछ पंक्तियाँ या श्रेणियाँ हटाते हैं, तो अन्य वर्कशीट में समान पंक्तियाँ या श्रेणियाँ एक साथ हटा दी जाती हैं।
3. सभी शीटों में पंक्तियों या श्रेणियों को हटाने के बाद, कृपया शीट टैब पर राइट क्लिक करें और फिर क्लिक करें अनग्रुप शीट्स सभी वर्कशीट को अनग्रुप करने के लिए राइट-क्लिक मेनू से।
VBA कोड के साथ एकाधिक शीटों में समान पंक्तियाँ या श्रेणियाँ हटाएँ
उपरोक्त विधि के अलावा, आप एकाधिक वर्कशीट में समान पंक्तियों या श्रेणियों को हटाने के लिए निम्नलिखित VBA कोड चला सकते हैं।
एकाधिक शीटों में समान पंक्तियाँ हटाएँ
1। दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर निम्नलिखित VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें।
वीबीए कोड: एक्सेल में एकाधिक शीटों में समान पंक्तियाँ हटाएँ
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End Sub
नोट: वीबीए कोड में, 4:5 का अर्थ है कि वर्तमान कार्यपुस्तिका में पंक्ति 4 और 5 को एकाधिक कार्यपत्रकों में हटा दिया जाएगा। आप उन्हें अपनी आवश्यक पंक्ति में बदल सकते हैं.
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, फिर निर्दिष्ट पंक्तियाँ वर्तमान कार्यपुस्तिका में सभी शीटों से तुरंत हटा दी जाती हैं।
एकाधिक शीटों में समान श्रेणियाँ हटाएँ
एकाधिक शीटों में समान श्रेणियों को हटाने के लिए, आप नीचे दिए गए VBA कोड को आज़मा सकते हैं।
वीबीए कोड: एकाधिक शीटों में समान श्रेणी हटाएं
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End Sub
VBA कोड को मॉड्यूल में कॉपी और पेस्ट करने के बाद, दबाएँ F5 कोड को चलाने के लिए कुंजी, और पॉपिंग में एक्सेल के लिए कुटूल संवाद बॉक्स में, उस श्रेणी का चयन करें जिसे आप कई शीटों में हटा देंगे, और फिर क्लिक करें OK बटन.
अब इस विशिष्ट श्रेणी के सेल मान वर्तमान कार्यपुस्तिका की सभी शीटों से तुरंत हटा दिए जाते हैं।
संबंधित लेख:
- एक्सेल में कुछ कॉलमों में गायब/रिक्त मान वाली पंक्तियों को कैसे हटाएं?
- यदि एक्सेल में सेल एक निश्चित मान से अधिक/कम है तो पंक्तियों को कैसे हटाएं?
- एक्सेल में पहली हेडर पंक्ति को छोड़कर सभी पंक्तियों को कैसे हटाएं?
- Excel में किसी निश्चित पंक्ति या सक्रिय सेल के नीचे की सभी पंक्तियों को कैसे हटाएँ?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!