如何找到重复相同的列并在另一列中打印重复ID？

Question

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

重复值id要在C列中打印。

在上面的例子中，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