如何查找重复的同一列并在另一列中打印重复的 id？

Question

我需要比较单个 table 中单个列中的值。这是一个示例 table:

要在 C 列中打印重复的值 ID。

在上面的例子中ID 1和ID 6是重复的，所以单元格c2要打印ID 6，就像c7要打印ID 1。

如何获得答案？

Answer 1

下面可以试试，

Sub test()

i = 2

With ActiveSheet
    For Each Cell In .Range("B2:" & .Range("B2").End(xlDown).Address)
        If Cell.Row + 1 < .Range("B2").End(xlDown).Row Then
            For Each C In .Range(.Cells(Cell.Row + 1, 2).Address, .Range("B2").End(xlDown).Address)
                If C.Value = Cell.Value Then
                    .Cells(i, 3).Value = C.Offset(0, -1).Value
                    i = i + 1
                End If
            Next
        End If
    Next
End With
End Sub