Macro to Delete Duplicate Rows and Retain Unique Value

expert4knowledge · #1 02-17-2014, 11:00 AM

I have a worksheet that contains many rows of data. In certain instances there may be several consecutive rows of data that have duplicate values in one column for example column A which is the id of students in column A and their costs in other columns, but each student may have the ID in different rows and so column A has duplicate values, I need a macro that can delete duplicates and retain one value, thanks in advance

macropod · #2 02-17-2014, 08:02 PM

Try something based on:

Code:

Sub DeleteDuplicateRows()
Dim LRow As Long, i As Long, j As Long
With ActiveSheet
  LRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
  For i = LRow To 2 Step -1
    For j = i - 1 To 1 Step -1
      If .Range("A" & i).Value = .Range("A" & j).Value Then .Range("A" & j).EntireRow.Delete
    Next
  Next
End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Word Macro to find and delete rows that contain adjacent cells containing "."	AlexanderJohnWilley	Word VBA	7	11-08-2012 10:15 AM
Delete all rows but the last.	elky1967	Word VBA	14	09-21-2012 05:27 AM
Macro to conditionally delete rows	Steve_D	Excel	2	08-24-2012 09:37 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM