एक्सेल में सक्रिय सेल या विशिष्ट टेक्स्ट के ऊपर की पंक्तियों को कैसे हटाएं?
यदि कई पंक्तियों वाली एक बड़ी वर्कशीट है, और आप सक्रिय सेल या किसी विशिष्ट टेक्स्ट के ऊपर की सभी पंक्तियों को हटाना चाहते हैं, तो आप इसे कैसे संभाल सकते हैं? आप पंक्तियों को चुनकर हटा सकते हैं और फिर संदर्भ मेनू से मैन्युअल रूप से हटाएँ चुनने के लिए राइट क्लिक करें। लेकिन यहां, ऊपर की पंक्तियों को तुरंत हटाने के लिए मेरे पास वीबीए कोड हैं, यदि आप इसमें रुचि रखते हैं, तो कृपया नीचे दिया गया विवरण पढ़ें।
VBA कोड वाली उपरोक्त पंक्तियाँ हटाएँ
VBA कोड वाली उपरोक्त पंक्तियाँ हटाएँ
यहां मैं आपके लिए दो वीबीए कोड प्रस्तुत करता हूं, एक है सक्रिय (चयनित सेल) के ऊपर की पंक्तियों को हटाना, दूसरा है निर्दिष्ट पाठ के ऊपर की पंक्तियों को हटाना।
1. उस सेल का चयन करें जिसके ऊपर की पंक्तियाँ आप हटाना चाहते हैं, और दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को पेस्ट करें मॉड्यूल लिपियों.
वीबीए: सक्रिय सेल के ऊपर की पंक्तियाँ हटाएँ
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3। दबाएँ F5 कुंजी, फिर सक्रिय सेल के ऊपर की पंक्तियाँ हटा दी गई हैं। स्क्रीनशॉट देखें:
यदि आप निर्दिष्ट पाठ के ऊपर की पंक्तियों को हटाना चाहते हैं, तो आप नीचे दिए गए VBA का उपयोग कर सकते हैं।
वीबीए: निर्दिष्ट पाठ के ऊपर की पंक्तियाँ हटाएँ
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
नोट:
1. कोड में, कुल समूह यह वह पाठ है जिसे आप ढूंढना चाहते हैं, आप इसे आवश्यकतानुसार बदल सकते हैं।
2. यदि आपको जो पाठ मिलता है वह पहले से ही पहली पंक्ति में है, तो आपको याद दिलाने के लिए एक संवाद सामने आएगा।
3. यदि आपको जो पाठ मिला है वह शीट में मौजूद नहीं है, तो नीचे दिखाए गए स्क्रीनशॉट के अनुसार एक संवाद आपको याद दिलाने के लिए पॉप आउट हो जाएगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!