Subgroup and list top 2

[Danny54]

How can I go about creating a subgroup listing of the top 2

The data

Name
a
a
b
b
b
c
c
d
d
d
d


output to starting range("G15")

Top 2
D = 4
B = 3


Even the simple stuff sometimes seams difficult

 

[Danny54]

Sorta moving forward a bit,


I've added the following to my VBA module.

Range("G15").Value = "Top 5"

Range("G16").FormulaArray = "=IFERROR(INDEX($A$2:$A$83,MODE(IFERROR(MATCH($A$2:$A$83,$A$2:$A$83,0)*{1,1}/(COUNTIF($G$15:$G15,$A$2:$A$183)=0),""))),"")"

Range("H16").Formula = "=COUNTIF($A$2:$A$83,G16)"


I receive the following Error

Run-Time error '1004'
Application-defined or object-defined error


Can I not insert the FormulaArray = statement and have it automatically executed?

Thanks

 

[Eric W]

My first guess is the use of quotes within quotes. When using quotes within quotes, you have to double them so that the compiler recognizes them as interior to the string, and not a terminator of the string. If there are doubled quotes, which happens twice, you have to double each one. So the line should be:

[COLOR=#333333]Range("G16").FormulaArray = "=IFERROR(INDEX($A$2:$A$83,MODE(IFERROR(MATCH($A$2:$A$83,$A$2:$A$83,0)*{1,1}/(COUNTIF($G$15:$G15,$A$2:$A$183)=0),[/COLOR][COLOR=#ff0000]""""[/COLOR][COLOR=#333333]))),[/COLOR][COLOR=#ff0000]""""[/COLOR][COLOR=#333333])"[/COLOR]

 

[Danny54]

Perfect!

Thanks so much!

 

[Eric W]

Glad to help!

I'm still puzzled why you're dragging didn't seem to work.