问在同一行VBA中查找两个重复项

EN

For i = 2 To lastCell
    If dataArray(i, 3) <> "" Then
        For j = i + 1 To lastCell
            If dataArray(i, 3) = dataArray(j, 3) Then
            results.Range("A" & k & ":" & lastCol & k).Value = checkbook.Range("A" & i & ":" & lastCol & i).Value '
            results.Range(commentAddress & k).Value = "Duplicate ID"
            k = k + 1
            results.Range("A" & k & ":" & lastCol & k).Value = checkbook.Range("A" & j & ":" & lastCol & j).Value
            results.Range(commentAddress & k).Value = "Duplicate ID"
            k = k + 1
            End If
        Next j
    End If
Next I