2列に重複が見つかり、隣接する行を貼り付けます

Question

私は試してみましたが、私のニーズに合ったサンプルVBAコードを見つけることができませんでした。私がしようとしているのは、2つの列間で重複した一致を見つけて、3番目の列に関してそれらを統合し、次に4番目の列に元々存在していた複製のインスタンスの数を示します。

元データ：

重複を除去した後の理想的な出力：

あなたが見ることができるように、出力に私はの1つのインスタンスを持っています1をColumn A,aColumn Bの最初の値を保持し、複製開始点はColumn Cで始まり、の重複の発生がColumn Dになります。誰かが私を正しい方向に向けることができますか？どんな助けでも大歓迎です。

Answer 1

次のコードは、4列目に出現回数を見つけて、ここで重複

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