Need to count unique values in a sorted list

mrwilliams

New Member
Joined
Mar 1, 2007
Messages
8
I have an excal table with about 85,000 lines. I need to match on one column and once the match is true, I need to count all the unique values in a second column without counting duplicates. Column "Prod Tab" is the column I need to match and column "SubID" are the values that I need unique counts on.

Example follows:

SubID Prod Tab
824510 9
601632 9
601632 9
601632 9
601632 9
601632 9
601632 9
828280 9
616411 9
616411 9
616411 9
616411 9
616411 9
830160 9
800676 9
800676 9
800676 9
800676 9
800676 9
800676 9

Prod Tab can be a value from 0 to 13. In this example I am matching on "9" in the column and those rows mathced I want to determine the number of unique values in the SubID column. It this example the end result would be "6".

I can do this with a piviot table, but was hoping to accomplish it with VBA and report the results of each such test to a spefice range.

Can some sheer me to a solution?

Mr G Williams
 

Aladin Akyurek

MrExcel MVP
Joined
Feb 14, 2002
Messages
85,138
Control+shift+enter, not just enter:
Code:
=SUM(IF(FREQUENCY(IF($A$2:$A$21<>"",IF($B$2:$B$21=E2,
   MATCH("~"&$A$2:$A$21,$A$2:$A$21&"",0)),
    ROW($A$2:$A$21)-ROW($A$2)+1),1))
You can remove the "~"& and &"" bits from this formula for the data you have do not seem
to house entries with special meaning chars like <, etc.
 

sulakvea

Well-known Member
Joined
Jul 2, 2008
Messages
994
here's a another alternative... again, entered as array (ctrl+shift+enter)

=SUM(IF(B1:B20=9,1/COUNTIF(A1:A20,A1:A20),FALSE))

replace 9 with corresponding value (or reference), & change the reference to suit your needs.
 
Last edited:

Aladin Akyurek

MrExcel MVP
Joined
Feb 14, 2002
Messages
85,138
Control+shift+enter, not just enter:
Code:
=SUM(IF(FREQUENCY(IF($A$2:$A$21<>"",IF($B$2:$B$21=E2,
   MATCH("~"&$A$2:$A$21,$A$2:$A$21&"",0)),
    ROW($A$2:$A$21)-ROW($A$2)+1),1))
You can remove the "~"& and &"" bits from this formula for the data you have do not seem
to house entries with special meaning chars like <, etc.
Oops... A paren is missing up there...

Code:
=SUM(IF(FREQUENCY(IF($A$2:$A$21<>"",IF($B$2:$B$21=E2,
   MATCH("~"&$A$2:$A$21,$A$2:$A$21&"",0))),
    ROW($A$2:$A$21)-ROW($A$2)+1),1))
 

Aladin Akyurek

MrExcel MVP
Joined
Feb 14, 2002
Messages
85,138
here's a another alternative... again, entered as array (ctrl+shift+enter)

=SUM(IF(B1:B20=9,1/COUNTIF(A1:A20,A1:A20),FALSE))

replace 9 with corresponding value (or reference), & change the reference to suit your needs.
Try to run this on the sample. Change one of the 9's to 8 or simply delete one such entry. BTW, even corrected, it's not as fast.
 
Last edited:

mrwilliams

New Member
Joined
Mar 1, 2007
Messages
8
This code worked like a charm on the sample of 20 rows:

=SUM(IF(B1:B20=9,1/COUNTIF(A1:A20,A1:A20),FALSE))

When I applied it to the 80,000 lines, well..... crashed excel.

Is there a way to program this as a function so I can do this as part of a VBA script?

Mr G
 

Aladin Akyurek

MrExcel MVP
Joined
Feb 14, 2002
Messages
85,138
This code worked like a charm on the sample of 20 rows:

=SUM(IF(B1:B20=9,1/COUNTIF(A1:A20,A1:A20),FALSE))

When I applied it to the 80,000 lines, well..... crashed excel.

Is there a way to program this as a function so I can do this as part of a VBA script?

Mr G
Did you try the other, corrected formula? That is:

=SUM(IF(FREQUENCY(IF($A$2:$A$21<>"",IF($B$2:$B$21=E2, MATCH($A$2:$A$21,$A$2:$A$21,0))), ROW($A$2:$A$21)-ROW($A$2)+1),1))

where E2 is set to 9?
 

mrwilliams

New Member
Joined
Mar 1, 2007
Messages
8
This is what the formula looks like revised using the proper array dim's.

=SUM(IF(FREQUENCY(IF($A$2:$A$80779<>"",IF($B$2:$B$80779=9, MATCH($A$2:$A$80779,$A$2:$A$80779,0))), ROW($A$2:$A$80779)-ROW($A$2)+1),1))

Results: #VALUE!

I am puzzled....

Mr G.
 

Aladin Akyurek

MrExcel MVP
Joined
Feb 14, 2002
Messages
85,138
This is what the formula looks like revised using the proper array dim's.

=SUM(IF(FREQUENCY(IF($A$2:$A$80779<>"",IF($B$2:$B$80779=9, MATCH($A$2:$A$80779,$A$2:$A$80779,0))), ROW($A$2:$A$80779)-ROW($A$2)+1),1))

Results: #VALUE!

I am puzzled....

Mr G.
You need to apply the key combination control, shift, and enter at the same time. If done properly, the formula will be encolsed between { and }.

The ranges you have are huge. I'm curious how the formula will behave!
 

sulakvea

Well-known Member
Joined
Jul 2, 2008
Messages
994
BTW MrW,

just curious - why do you need to apply either my or Aladin's formula to the entire range of 80,000 rows?

as you said, you only have 13 numbers in the second column. cant you just do a one-time calculation (so have numbers from 1 to 13 in say, col, J1:J13), and next to it (K1:K13) the corresponding counts for those 13 using either formulas.

then for those 80,000 rows, do a simple vlookup based on that 13-line long column. will be MUCH faster, at least you wont be using an array formula for the entire sheet
 

Forum statistics

Threads
1,081,528
Messages
5,359,305
Members
400,524
Latest member
Excelbat

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top