Deleting Repititions
Hi,
I have a list of 100 values in Column B, I need to delete repetitions,
the following code needs tweaking, help is much appreciated
Sub del()
Dim i, j
I<J
For i = 1 To 10
For j = 1 To 10
If Cells(i, 2) = Cells(j, 2) Then
Cells(i, 2).EntireRow.Delete
End If
Next
Next
End Sub
|