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

		Microsoft Office Forums > Microsoft Excel > Excel Programming
delete rows by looking at the next column if they are equal

03-25-2018, 04:13 AM

p45cal

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

Office 2010 32bit

Expert

Join Date: Apr 2014

Posts: 956

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

Other Forums: Access Forums

All times are GMT -7. The time now is 06:35 AM.