Delete Row Based On Cell Below

  • G'Day folks

    I currently have a spreadsheet with circa 50,000 lines with info regarding our websites at work.

    In every row, column "A" contains a unique reference number.There eill either be 1 row for this reference number, or there will be 2 rows. there will never be more than 2 rows for each reference. I wanted some code to say that if theres only one row, then delete it but if the if the cell underneath it is the same then its ok.

    I tried the following but it deletes the row anyway, supposing the cell under it is the same or not :(

    Thanks very much for any assistance

  • Re: Delete Row Based On Cell Below

    Try this

    Sub test()
      Do Until ActiveCell.Value = "" Or ActiveCell.Row = 1
        If Not (ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Or ActiveCell.Value = ActiveCell.Offset(1, 0).Value) Then ActiveCell.Rows.Delete
        ActiveCell.Offset(-1, 0).Select
    End Sub
  • Re: Delete Row Based On Cell Below

    Try this. Not sure why your code doesn't work, might be to do with how icell is set up at the start.

  • Re: Delete Row Based On Cell Below

    Ive just realised when I run Brians code it only deletes the first cell, and not the row. Any ideas why this is?

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!