如何匹配上面的行值

Question

                                     want like this

1）E列值与上面的行值匹配并显示true和false 2）可以在上面添加diff值添加新的黑色行。

我有15,000个像这样的值。

实施例。当TC018在上面添加一行并显示值false时。

Answer 1

你可以在有问题的工作表上运行这个简短的VBA子。

Sub insertFALSE()
    Dim rw As Long
    With Worksheets("Sheet1")   '<~~set this worksheet properly!
        For rw = .Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
            If .Cells(rw, "E").Value2 <> .Cells(rw - 1, "E").Value2 Then
                .Rows(rw).EntireRow.Insert
                .Cells(rw, "E") = False
            End If
        Next rw
    End With
End Sub

插入行时，最好从底部到顶部。该例程假定数据已经按E列作为主要“密钥”进行排序。

Answer 2

既不需要VBA也不需要公式。

确保您的列已标记或将空行插入Row1。 选择您的数据阵列，DATA＆gt;大纲 - 小计，在每次更改时:(列E）（或标签），使用功能：计数，添加小计到：检查（ColumnE）（或标签），替换当前小计，不检查下面的数据摘要，确定。

DATA＆gt;排序＆amp;过滤 - 过滤，为，对于ColumnD，选择文本过滤器，包含Count，确定。在第一个可见0的右侧立即输入“false”，向下复制以适应并清空Row1下方的ColumnsD：E条目。

根据需要移除过滤器，空白F2并插入一个单元格，插入...，向下移动单元格，确定。