I want to create a macro that would find a word in a column and then every other instance of that code it would delete the whole row.
Ex:
If I am looking for test in Column A, it finds it in (1, 1) and then finds it in the next 5 rows. It will leave the one in (1, 1) alone and delete all the rows that have test in it.(only if it is in the same column.
Check "Find Method" in the help file, the code example there should be readily adapted to this task.
Regards
MD
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
or try this:
[VBA]Sub RemoveDuplicates()
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
End Sub[/VBA]
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
Posting Permissions
Reply With Quote
