Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unique data...!
Hi,
I wanted to extract the unique data from a column of around 10000 lines data into a new column or sheet. Could some one help on this. Thanks Thyag |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unique data...!
Look at DataFilterAdvanced Filter
It has a unique option, and can copy elsewhere. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Thyag" wrote in message ps.com... Hi, I wanted to extract the unique data from a column of around 10000 lines data into a new column or sheet. Could some one help on this. Thanks Thyag |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unique data...!
Here is some code. It will create a new worksheet listing all of the unique
items... Public Sub GetUniqueItems() Dim cell As Range 'Current cell in range to check Dim rngToSearch As Range 'Cells to be searched Dim dic As Object 'Dictionary Object Dim dicItem As Variant 'Items within dictionary object Dim wks As Worksheet 'Worksheet to populate with unique items Dim rngPaste As Range 'Cells where unique items are placed Application.ScreenUpdating = False 'Create range to be searched Set rngToSearch = Intersect(ActiveSheet.UsedRange, Selection) If rngToSearch Is Nothing Then Set rngToSearch = ActiveCell 'Confirm there is a relevant range selected If Not rngToSearch Is Nothing Then 'Create dictionay object Set dic = CreateObject("Scripting.Dictionary") 'Populate dictionary object with unique items (use key to define unique) For Each cell In rngToSearch 'Traverse selected range If Not dic.Exists(cell.Value) And cell.Value < Empty Then 'Check the key dic.Add cell.Value, cell.Value 'Add the item if unique End If Next If Not dic Is Nothing Then 'Check for dictionary Set wks = Worksheets.Add 'Create worksheet to populate Set rngPaste = wks.Range("A1") 'Create range to populate For Each dicItem In dic.Items 'Loop through dictionary rngPaste.NumberFormat = "@" 'Format cell as text rngPaste.Value = dicItem 'Add items to new sheet Set rngPaste = rngPaste.Offset(1, 0) 'Increment paste range Next dicItem 'Clean up objects Set wks = Nothing Set rngPaste = Nothing Set dic = Nothing End If End If Application.ScreenUpdating = True End Sub -- HTH... Jim Thomlinson "Thyag" wrote: Hi, I wanted to extract the unique data from a column of around 10000 lines data into a new column or sheet. Could some one help on this. Thanks Thyag |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unique data...!
On Sep 18, 2:12 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote: Here is some code. It will create a new worksheet listing all of the unique items... Public Sub GetUniqueItems() Dim cell As Range 'Current cell in range to check Dim rngToSearch As Range 'Cells to be searched Dim dic As Object 'Dictionary Object Dim dicItem As Variant 'Items within dictionary object Dim wks As Worksheet 'Worksheet to populate with unique items Dim rngPaste As Range 'Cells where unique items are placed Application.ScreenUpdating = False 'Create range to be searched Set rngToSearch = Intersect(ActiveSheet.UsedRange, Selection) If rngToSearch Is Nothing Then Set rngToSearch = ActiveCell 'Confirm there is a relevant range selected If Not rngToSearch Is Nothing Then 'Create dictionay object Set dic = CreateObject("Scripting.Dictionary") 'Populate dictionary object with unique items (use key to define unique) For Each cell In rngToSearch 'Traverse selected range If Not dic.Exists(cell.Value) And cell.Value < Empty Then 'Check the key dic.Add cell.Value, cell.Value 'Add the item if unique End If Next If Not dic Is Nothing Then 'Check for dictionary Set wks = Worksheets.Add 'Create worksheet to populate Set rngPaste = wks.Range("A1") 'Create range to populate For Each dicItem In dic.Items 'Loop through dictionary rngPaste.NumberFormat = "@" 'Format cell as text rngPaste.Value = dicItem 'Add items to new sheet Set rngPaste = rngPaste.Offset(1, 0) 'Increment paste range Next dicItem 'Clean up objects Set wks = Nothing Set rngPaste = Nothing Set dic = Nothing End If End If Application.ScreenUpdating = True End Sub -- HTH... Jim Thomlinson "Thyag" wrote: Hi, I wanted to extract the unique data from a column of around 10000 lines data into a new column or sheet. Could some one help on this. Thanks Thyag- Hide quoted text - - Show quoted text - Thanks Every body, the info I got is very useful. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filer for unique records and return all column data for unique rec | Excel Discussion (Misc queries) | |||
comparing two columns of data and return unique data in another co | Excel Discussion (Misc queries) | |||
Adding data to existing data that has a unique number in column | Excel Discussion (Misc queries) | |||
Automate unique data to move to unique worksheets | Excel Programming | |||
find rows for unique data in 1 column and different data in other. | Excel Discussion (Misc queries) |