Сравнение строк и ограничение дубликатов

Question

ограничить повторяющиеся записи во всей строке во всем листе Excel путем сравнения двух строк, если какая-либо ячейка из двух строк отличается, это должно разрешить

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long

Dim j As Long


For j = 1 To 100

    For i = 1 To 100

  If Data.Cells(i, j).Value = Data.Cells(i + 1, j).Value Then



a = MsgBox("duplicates")

   document.write ("The Value of a is " & a)


    i = i + 1
    j = j + 1

  End If
Next

Next
End Sub

Answer 1

Во-первых, попробуйте этот кусок кода, пожалуйста:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lastRow As Long, i As Long
 If Not Intersect(Target, Columns("G:L")) Is Nothing Then
   If Target.Value <> "" Then
        lastRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
        For i = 1 To lastRow
            If Cells(i, Target.Column).Value = Target.Value And i <> Target.Row Then
                MsgBox "row having same value"
                Target.Clear: Target.Select
                Exit For
            End If
        Next i
   End If
 End If
End Sub