View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Alan Beban Alan Beban is offline
external usenet poster
 
Posts: 200
Default Take all unique values in sheet and place in 1 column

If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook you can use
something like

arr = ArrayUniques(Sheets("Sheet2").UsedRange)
Sheets("Sheet3").Range("A1").Resize(UBound(arr), _
UBound(arr, 2)).Value = arr

Alan Beban

CompleteNewb wrote:
This was a task that I thought I'd be able to do real easy, but am
apparently incapable.

I have a sheet with values everywhere, I mean just EVERYWHERE. No
organization in terms of rows, columns, etc. Just stuff like a value in A6,
L4, A10, K116, X65, etc. It's a long story, PLEASE don't ask :)

What I'd like to do is just take unique values from every cell on the sheet
and place them in one specified column. In fact, if it's too difficult, I
don't need to only get DUPLICATE values, I can just delete duplicates in the
finished column once everything's there.

Does anyone know how to accomplish this? I tried adapting several different
macros I have into a kind of "FrankenMacro" thing, but nothing worked.

Any help on this would be GREATLY appreciated, and thanks for taking the
time.