Delete Row Based On Cell Below

Important Notice


Please note that on 14th December 2023 users will experience an expected outage whilst we make upgrades to our network. We anticipate this process may take a couple of hours and so we apologise in advance for any inconvenience.

  • 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
    Jamie

  • Re: Delete Row Based On Cell Below


    Try this

    Code
    Sub test()
    
    
      Range("A65536").End(xlUp).Select
      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
      Loop
    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!