Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Deleting "duplicate" rows
I have a spreadsheet with 4 collumns: First Name, Last Name, Dept, and Mailing Address. There are duplicate rows of peoples names which I need deleted, but all the steps I have found online only sort on one collumn and assuming I am sorting by Last Name, they will delete not only extra rows of a specific person's name, but also other people (which would be terrible) whom have the same last name with a different first name if that makes sense. The macro I have is: Public Sub DeleteDuplicateRows() ' ' This macro deletes duplicate rows in the selection. Duplicates are ' counted in the COLUMN of the active cell. Dim Col As Integer Dim r As Long Dim C As Range Dim N As Long Dim V As Variant Dim Rng As Range On Error GoTo EndMacro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Col = ActiveCell.Column If Selection.Rows.Count 1 Then Set Rng = Selection Else Set Rng = ActiveSheet.UsedRange.Rows End If N = 0 For r = Rng.Rows.Count To 1 Step -1 V = Rng.Cells(r, 1).Value If Application.WorksheetFunction.CountIf(Rng.Columns( 1), V) 1 Then Rng.Rows(r).EntireRow.Delete N = N + 1 End If Next r EndMacro: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Can anyone make a suggestion to change this or a new method of deleting the extra entries of a person's name? Thanks for thr advice, The N00bish -- mmednick ------------------------------------------------------------------------ mmednick's Profile: http://www.excelforum.com/member.php...o&userid=29404 View this thread: http://www.excelforum.com/showthread...hreadid=500248 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting Rows in MS Excel | Excel Discussion (Misc queries) | |||
Deleting rows in a macro in Excel | Excel Discussion (Misc queries) | |||
Question about deleting rows from sorted linked worksheets | Excel Worksheet Functions | |||
Converting formula to value and deleting rows using macros. | Excel Discussion (Misc queries) | |||
Deleting rows containing common data | Excel Discussion (Misc queries) |