मेरे पास एक एक्सेल टेबल है जिसमें प्रत्येक पंक्ति में केवल अद्वितीय मान होना चाहिए। यदि पिछले सेल मानों में से कोई भी अन्य पंक्तियों में कहीं भी दोहरा रहा है, तो शिकायत पंक्ति को हटा दिया जाना चाहिए। उदाहरण तालिका इस प्रकार है

Example       
Table       The result 
______      _____
0 1 3       0 1 3                   
6 4 1 5  -> 8 9 2
8 9 2                                           

दूसरी पंक्ति को साफ़ किया जाना चाहिए क्योंकि पहली पंक्ति में पहले से ही 1 है। लेकिन तीसरी पंक्ति होनी चाहिए क्योंकि इसमें पिछली पंक्तियों से कोई डुप्लीकेट नहीं है।

मुझे अवांछित पंक्तियों को साफ़ करने वाले बहु आयामी सरणी के साथ ऐसा या वीबीए कोड फ़िल्टर करने के लिए एक्सेल फॉर्मूला चाहिए।

-1
Engin Yilmaz 10 सितंबर 2019, 14:30

1 उत्तर

सबसे बढ़िया उत्तर

इसे आज़माएं... यह मेरे द्वारा लिए गए सभी नमूनों के साथ काम करता है।

Dim i, j, k, l As Long

LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

For k = 1 To LastRow
    For i = k + 1 To LastRow
        For j = 1 To LastCol
            For l = 1 To LastCol
                If (Sheets(1).Cells(i, j).Value2 <> "") And _
                    (Sheets(1).Cells(k, j).Value2 <> "") And _
                    (Sheets(1).Cells(i, j).Value2 = Sheets(1).Cells(k, l).Value2) Then
                    Sheets(1).Cells(i, j).EntireRow.ClearContents
                End If
            Next
        Next
    Next
Next

Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
1
David García Bodego 11 सितंबर 2019, 04:31