Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count duplicates needed
I have a list of names starting in R3C1 that may contain
duplicate names in column 1 only. I need some help with the code to search all cells starting at R3C1 until the names end, tally the count of duplicate names and put the result in R3C4. Thank you very much for your help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count duplicates needed
Hi
If I have understood how you want to count things, then this should give you the count. Assume that the data is a,a,b,b then the output you would want is 2 (ie there are 2 duplicate names). Similarly if the data is a,a,b,b,b then the result is 3. Tony Sub aaa() Dim nodupes As New Collection countall = 0 Range("a3").Select On Error Resume Next While Not IsEmpty(ActiveCell) nodupes.Add ActiveCell.Value, CStr(ActiveCell.Value) countall = countall + 1 ActiveCell.Offset(1, 0).Select Wend On Error GoTo 0 Range("D3").Value = countall - nodupes.Count End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Count duplicates needed
This comes close but not quite..
Mike H Mike H Jim B Jim B Jim B Bill C Tom R Tom R The result I would want is Mike H is duplicated once, Jim B duplicated twice, Tom R duplicated once so I have 3 duplicates. The other option would be to count only unique names.. If I can get help with code both ways I would be estatic.. Thank you. -----Original Message----- Hi If I have understood how you want to count things, then this should give you the count. Assume that the data is a,a,b,b then the output you would want is 2 (ie there are 2 duplicate names). Similarly if the data is a,a,b,b,b then the result is 3. Tony Sub aaa() Dim nodupes As New Collection countall = 0 Range("a3").Select On Error Resume Next While Not IsEmpty(ActiveCell) nodupes.Add ActiveCell.Value, CStr(ActiveCell.Value) countall = countall + 1 ActiveCell.Offset(1, 0).Select Wend On Error GoTo 0 Range("D3").Value = countall - nodupes.Count End Sub . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Don't Count Duplicates | Excel Discussion (Misc queries) | |||
Count Duplicates | Excel Discussion (Misc queries) | |||
Count Employee Work Time - Don't Count Duplicates | Excel Worksheet Functions | |||
Count Duplicates | Excel Discussion (Misc queries) | |||
count a group of numbers but do not count duplicates | Excel Worksheet Functions |