Код сравнить два списка дублированных данных и скопировать в другой список

Question

я бы помог мне с моим кодом, он сравнивает из листа1 два столбца a, b и дублированный перевод на лист2 столбец c

     Sub COPY1()
Dim i
Dim LastRow As Long
LastRow = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow
    If Sheets("sheet1").Cells(i, "A").Value = Sheets("sheet1").Cells(i, "B").Value Then
  Count = Application.WorksheetFunction.CountIf(Range("B1:B" & i), Sheets("sheet1").Cells(i, "A"))
        If Count > 1 Then
        Sheets("sheet1").Cells(i, "A").COPY Destination:=Sheets("sheet2").Range("B" & 
    Rows.Count).End(xlUp).Offset(1)
            End If
End If
Next i
End Sub

Answer 1

Попробуйте:

Sub COPY1()
    Dim i As Long
    Dim LastRow As Long
    With Sheets("sheet1")
        LastRow = .Range("A" & Rows.Count).End(xlUp).Row

        For i = 2 To LastRow
            v = .Cells(i, "A").Value
                For j = 2 To LastRow
                    If v = .Cells(j, "B").Value Then
                        .Cells(i, "A").Copy Destination:=Sheets("sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1)
                    End If
                Next j
        Next i
    End With
End Sub