delete rows by looking at the next column if they are equal

Pat.hooybergs · #1 03-19-2018, 06:38 AM

Hello all

i am a novice but i need to created a vba to delete rows were a certain column is equal to the row above this row. And if it is another value in the cell (column) the same info.

I diid insert an exemple were the rows in yellow has to be kept and thos with no fill has to be deleted.
the column to refer too is "B". (Naam)

thx all

p45cal · #2 03-25-2018, 04:13 AM

Code:

Sub Macro1()
    ActiveSheet.Range("A1").CurrentRegion.Columns("A:F").RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

Although it's just as easy to use Remove Duplicates in the Data Tools section of the Data tab of the ribbon.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro delete table rows if cell in first column = $	Btop	Word VBA	7	02-13-2018 05:36 PM
Delete blank rows between the two rows that contain data	beginner	Excel Programming	5	12-26-2014 12:29 AM
Delete All empty Rows - Print - Undo all Rows deleted	Bathroth	Word VBA	1	10-01-2014 01:40 PM
Huge table needs to link rows and column in a special manner (when not equal to 0)	melieetnala	Excel	1	08-12-2014 05:56 AM
Make row in one sheet equal column of another	hypertyper	Excel	6	01-31-2012 03:48 PM