How to delete that row if same cell in preceding row is identical

  • Thread starter Thread starter Ronmarco
  • Start date Start date
R

Ronmarco

I have data that duplicates a cell in the previous row and I want to delete
the second row each time that happens.
 
Sub NewOne()
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
ActiveCell.EntireRow.Delete Shift:=xlUp
ElseIf ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

I want to make One Cell mandatory if another cell has a specific value , can anyone help me? 0
Counting and deleting duplicate rows 0
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
find/delete row when cell has less than 16 alphanumeric characters 2
Deleting duplicated rows based on data in two columns 5
for every cell search identical in range, not whole column; how? 2
Delete rows takes forever 4
Copy to a mid column range Row 10 - Row 20 4

Back
Top