从前一行的单元格值中删除包含值的任何行

Question

我有一个 excel table，它应该在每一行中只包含唯一值。如果任何先前的单元格值在其他行中的任何位置重复，则应删除 complate 行。例子table是这样的

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

应该清除第二行，因为第一行已经包含 1 。但是第三行应该在那里，因为它不包含前几行的任何重复项。

我需要 excel 公式来过滤，或者 vba 使用多维数组清除不需要的行的代码。

Answer 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

从前一行的单元格值中删除包含值的任何行

Remove any rows containing values from previous row's cell's values

excel

vba

rows

distinct

multidimensional-array