This site uses the isEmpty() method.
Edit: Content is captured from the site before the URL is invalid.
Worksheets("Sheet1").Range("A1").Sort _ key1:=Worksheets("Sheet1").Range("A1") Set currentCell = Worksheets("Sheet1").Range("A1") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) If nextCell.Value = currentCell.Value Then currentCell.EntireRow.Delete End If Set currentCell = nextCell Loop
At the first stage, the data in the first column from Sheet1 will be sorted. In the second step, all rows with the same data will be deleted.
reporter Nov 13 '12 at 12:23 2012-11-13 12:23
source share