Comments on: Copy Unique Values

By: Jac

Jac — Wed, 12 Dec 2012 16:47:32 +0000

I added a column of =1 in my table next to the column of data. In my VBA code I then use Consolidate to get unique values. I have no idea of how efficient that is but it works ok for my 1100 rows.
Speed comparison?

By: Kevin

Kevin — Thu, 13 Sep 2012 20:36:03 +0000

Just wanted to say thank you for offering the keyboard shortcut above. This saves me a lot of time. I did notice however that it doesn’t quite work for my situation. The d-f-a-r-o-t key sequence automatically selects all of the surrounding data, and in this case i only wanted a single column included in the range, so it took several more clicks to modify, but the result was still what I was looking for. My initial quest was to find a fast way to generate vlookup entries from a large list of repeating values. This seems to do the trick. Thanks again!

By: snb

snb — Wed, 20 Jun 2012 15:10:42 +0000

Sub snb()
Selection.Cells(1).Name = "snb_001"
Selection.Name = "snb_002"

Cells(1, 5).Resize(Selection.Count) = Application.Transpose(Filter([transpose(if(countif(offset(snb_001,,,row(snb_002)-row(snb_001)+1),snb_002)=1,snb_002,"~"))], "~", False))
Columns(5).SpecialCells(2, 16).ClearContents
End Sub

By: Dominik Petri

Dominik Petri — Mon, 04 Jun 2012 07:09:31 +0000

Concerning the “Remove Duplicates” command: “Duplicate values are determined by the value displayed in the cell and not necessarily the value stored in the cell. For example, if you have the same date value in different cells, one formatted as “3/8/2006″ and the other as “Mar 8, 2006″, the values are unique.” Source: http://office.microsoft.com/en-us/excel-help/filter-for-unique-values-or-remove-duplicate-values-HP010073943.aspx#BMlearn_more

By: Neale

Neale — Fri, 01 Jun 2012 02:26:34 +0000

Its amazing – using Sendkeys to mimic the Alt key is very similar to the good ol’ macro instructions in Lotus 123 – Deja vu – just had a throw back to 20 years ago working.

By: Gergito

Gergito — Wed, 30 May 2012 12:29:29 +0000

One could also create a pivot table with one column only but I use the technique using Collection object often enough – same as Dick describes. I think I met this approach first in John Walkenbach’s book..
Thanks for the post anyway.

By: Doug Glancy

Doug Glancy — Tue, 29 May 2012 21:18:06 +0000

Like Scott, I used to have a SQL version that worked pretty well. But in 2007/10, I agree with Dave that Remove Duplicates is the way. Even for getting the results in a new sheet, it’s not many keystrokes, and you have complete control over which columns to use. And I just realized last week that you can use it in place and it leaves adjacent columns and areas intact.

By: Dick Kusleika

Dick Kusleika — Tue, 29 May 2012 16:29:46 +0000

I’m still using this http://www.dailydoseofexcel.com/archives/2008/12/11/create-unique-list-from-selected-cells/ which has served me well. I’ll be I use this a dozen times per week. Even if I want a quick count of uniques, I’ll create this list rather than right the 1/countif array formula.

By: Matt H

Matt H — Tue, 29 May 2012 16:08:32 +0000

oops, the first few lines are missing. Let me try again:

Sub ListUnique()
'A routine to extract the unique values in a range
'and write them to a column
'modified from code at:
' http://www.j-walk.com/ss/excel/eee/eee004.txt
Dim cell As Range
Dim target As Range 'where you want the listing to go
Dim i As Long, n As Long
Dim vals(1 To 65536) As Variant

On Error GoTo EndLine
Set target = Application.InputBox(Prompt:="Select cell to start output:", _
Title:="Selection", Default:=Selection.Address, Type:=8)

Dim NoDupes As New Collection

On Error Resume Next
For Each cell In Selection
NoDupes.Add cell.Value, CStr(cell.Value)
'Note: the 2nd argument (key) for the Add method must be a string
Next cell
On Error GoTo 0

n = NoDupes.count

For i = 1 To n
target.offset(i, 0).Value = NoDupes.Item(i)
Next i

EndLine: 'Do Nothing

End Sub

By: Matt H

Matt H — Tue, 29 May 2012 16:07:09 +0000

Dick, I gotta say, that’s pretty clever. Here is a routine that I wrote years ago that does the same thing and has served me well. Just to show yet another alternate approach.

On Error GoTo EndLine
Set target = Application.InputBox(Prompt:="Select cell to start output:", _
Title:="Selection", Default:=Selection.Address, Type:=8)

Dim NoDupes As New Collection

On Error Resume Next
For Each cell In Selection
NoDupes.Add cell.Value, CStr(cell.Value)
'Note: the 2nd argument (key) for the Add method must be a string
Next cell
On Error GoTo 0

n = NoDupes.count

For i = 1 To n
target.offset(i, 0).Value = NoDupes.Item(i)
Next i

EndLine: 'Do Nothing

End Sub