Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub text()
- Dim j As Integer, k As Integer, r As Range
- j = Range("E2").End(xlDown).Row
- For k = j To 2 Step -1
- MsgBox k
- Set r = Range(Cells(k, "E"), Cells(k, "E").End(xlUp))
- If WorksheetFunction.CountIf(r, Cells(k, "E")) > 1 Then
- Cells(k, "E").EntireRow. Delete
- End If
- Next k
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement