आईडी और सेल मान के अनुसार Excel में पंक्तियों को हटाना - एक्सेल

मेरे पास बहुत सारे डेटा के साथ एक्सेल वर्कशीट है जिसके लिए छंटनी की आवश्यकता है।

डेटा एकाधिक संख्या वाले आईडी नंबर द्वारा व्यवस्थित हैकिसी दिए गए आईडी से जुड़ी पंक्तियां। प्रत्येक अद्वितीय आईडी के लिए, मुझे सभी पंक्तियों को कुछ कोडों (जो कॉलम बी में पाए जाते हैं) के साथ रखने की आवश्यकता है। मुझे पंक्तियों को रखने की भी आवश्यकता है तुरंत ऊपर "रखरखाव कोड" के साथ पंक्तियां प्रदान की गईं, ऐसी पंक्ति मौजूद है। यदि ऐसी कोई पंक्ति मौजूद नहीं है, तो मुझे एक खाली पंक्ति डालने की आवश्यकता है। *

For a given ID, if no "keeper code" is present, तो आईडी से जुड़े सभी पंक्तियों को हटा दिया जाना चाहिए। "रक्षक कोड" से जुड़ी सभी पंक्तियां या "कीपर कोड" के साथ एक पंक्ति से तुरंत हटा दी जानी चाहिए।

स्क्रीनशॉट द्वारा शायद सबसे अच्छा समझाया गया। डेटा को चित्र संख्या के अनुसार क्रमबद्ध किया जाएगा।

से पहले

बाद

* एक खाली पंक्ति डालना अच्छा होगा लेकिन अगर यह कोडिंग को मुश्किल बनाता है तो बहुत जरूरी नहीं है।

बहुत धन्यवाद!

उत्तर:

जवाब के लिए 0 № 1

इसे आज़माएं,

Sub copyRows()
Dim i As Long, j As Long
Sheets.Add.Name = "newSheet"
Rows(1).Copy Sheets("newSheet").Cells(1, 1)
j = Sheets("newSheet").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If InStr(Cells(i, 2), "Keep") > 0 And Cells(i, 1) = Cells(i - 1, 1) Then
Rows(i - 1).Copy Sheets("newSheet").Cells(j, 1)
Rows(i).Copy Sheets("newSheet").Cells(j + 1, 1)
ElseIf InStr(Cells(i, 2), "Keep") > 0 Then
Rows(i).Copy Sheets("newSheet").Cells(j, 1)
End If
j = Sheets("newSheet").Cells(Rows.Count, 1).End(xlUp).Row + 1
Next i
End Sub

यदि खाली पंक्तियां डालना आवश्यक है तो आपको उस तर्क पर काम करना पड़ सकता है।

यहां छवि विवरण दर्ज करें

यह मैक्रो आउटपुट के साथ एक नई चादर बनाता है।


संबंधित सवाल
सबसे लोकप्रिय