找到2列中的副本并粘贴相邻的行

Question

我已经尝试过，但无法找到符合我需求的任何示例VBA代码。我想要做的是找到两列之间的重复匹配，并根据第三列合并它们，然后在第四列中显示最初存在多少副本实例。

原始数据：

删除重复项后的理想输出：

正如您所看到的，在输出中我在1中有Column A的一个实例，在a中有Column B，保留了重复项在Column C中开始的第一个值{1}}并在2中表达Column D重复项的出现。谁能指出我正确的方向？任何帮助将不胜感激。

Answer 1

以下代码将在第四列中找到出现次数并删除重复项

Sub foo()

row_count = 20

For i = 2 To row_count
    Count = 1
    For j = 2 To row_count
        If i <> j And Cells(i, 1).Value <> "" Then
            If Cells(i, 1).Value = Cells(j, 1).Value And Cells(i, 2).Value = Cells(j, 2).Value Then
                Rows(j & ":" & j).Delete Shift:=xlUp
                Count = Count + 1
                j = j - 1
            End If
        End If
    Next j
    If Count > 1 Then
        Cells(i, 4).Value = Count
    End If
Next i

End Sub