Delete the rows of the duplicates in a column, keep single entries only

Posted to microsoft.public.excel.programming

L. Howard

external usenet poster

Posts: 852

Delete the rows of the duplicates in a column, keep singleentries only

try:

Sub Test()
Dim LRow As Long, i As Long, n As Long
Dim varOut() As Variant

Application.ScreenUpdating = False
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
ReDim Preserve varOut(LRow - 1, 1)
For i = 1 To LRow
With Application
varOut(n, 0) = .Cells(i, 1).Value
varOut(n, 1) = .CountIf(.Range("A1:A" & LRow), .Cells(i, 1))
n = n + 1
End With
Next
For i = UBound(varOut) To LBound(varOut) Step -1
If varOut(i, 1) 1 Then
.Rows(i + 1).Delete
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Regards
Claus B.

Great stuff, nice as can be.

Thanks Claus.

Howard

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
if row has duplicates, concat entries in another column?	rchun	Excel Discussion (Misc queries)	4	January 25th 14 11:29 AM
Find duplicates, sum column then delete duplicates	aileen	Excel Programming	3	December 11th 08 05:03 PM
find duplicates between rows, keep or delete entries based on ranked relevance	[email protected]	Excel Programming	2	June 27th 06 08:57 PM
Search Column - Find Multiple Entries - Sum Then Delete to Single Entry	Ledge	Excel Programming	5	June 19th 06 08:25 PM
I want to delete rows with duplicate entries within one column.	kini olegario	Excel Discussion (Misc queries)	1	January 15th 05 01:44 AM

All times are GMT +1. The time now is 05:32 AM.

Menu

About Us