Returning adjacent text cell for the maximum occurrence within groups of IDs

[JayHero]

Help with returning adjacent text cell for the maximum occurrence within groups of IDs
Data:
[TABLE="width: 605"]
<tbody>[TR]
[TD]ID (A)
[/TD]
[TD]CODE (B)
[/TD]
[TD]SKU Count (C)
[/TD]
[TD]Code Occurrence (D)
[/TD]
[TD]Code % Of Occurrence
(E)
[/TD]
[TD]Max Occurrence % (H)
[/TD]
[TD]Results Needed
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]A
[/TD]
[TD]6
[/TD]
[TD]4
[/TD]
[TD]0.67
[/TD]
[TD]0.67
[/TD]
[TD]A
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]B
[/TD]
[TD]6
[/TD]
[TD]2
[/TD]
[TD]0.33
[/TD]
[TD]0.67
[/TD]
[TD]A
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]A
[/TD]
[TD]6
[/TD]
[TD]4
[/TD]
[TD]0.67
[/TD]
[TD]0.67
[/TD]
[TD]A
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]A
[/TD]
[TD]6
[/TD]
[TD]4
[/TD]
[TD]0.67
[/TD]
[TD]0.67
[/TD]
[TD]A
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]A
[/TD]
[TD]6
[/TD]
[TD]4
[/TD]
[TD]0.67
[/TD]
[TD]0.67
[/TD]
[TD]A
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]B
[/TD]
[TD]6
[/TD]
[TD]2
[/TD]
[TD]0.33
[/TD]
[TD]0.67
[/TD]
[TD]A
[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]A
[/TD]
[TD]5
[/TD]
[TD]1
[/TD]
[TD]0.20
[/TD]
[TD]0.40
[/TD]
[TD]B
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]B
[/TD]
[TD]5
[/TD]
[TD]2
[/TD]
[TD]0.40
[/TD]
[TD]0.40
[/TD]
[TD]B
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]B
[/TD]
[TD]5
[/TD]
[TD]2
[/TD]
[TD]0.40
[/TD]
[TD]0.40
[/TD]
[TD]B
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]C
[/TD]
[TD]5
[/TD]
[TD]1
[/TD]
[TD]0.20
[/TD]
[TD]0.40
[/TD]
[TD]B
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]D
[/TD]
[TD]5
[/TD]
[TD]1
[/TD]
[TD]0.20
[/TD]
[TD]0.40
[/TD]
[TD]B
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]A
[/TD]
[TD]6
[/TD]
[TD]1
[/TD]
[TD]0.17
[/TD]
[TD]0.33
[/TD]
[TD]C
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]B
[/TD]
[TD]6
[/TD]
[TD]1
[/TD]
[TD]0.17
[/TD]
[TD]0.33
[/TD]
[TD]C
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]C
[/TD]
[TD]6
[/TD]
[TD]2
[/TD]
[TD]0.33
[/TD]
[TD]0.33
[/TD]
[TD]C
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]C
[/TD]
[TD]6
[/TD]
[TD]2
[/TD]
[TD]0.33
[/TD]
[TD]0.33
[/TD]
[TD]C
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]E
[/TD]
[TD]6
[/TD]
[TD]1
[/TD]
[TD]0.17
[/TD]
[TD]0.33
[/TD]
[TD]C
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]D
[/TD]
[TD]6
[/TD]
[TD]1
[/TD]
[TD]0.17
[/TD]
[TD]0.33
[/TD]
[TD]C
[/TD]
[/TR]
</tbody>[/TABLE]

My Formula works for SKU 1 but not for SKU 2 & 3
=INDEX($A$2:$H$18,MATCH(A2,$A$2:$A$18,0)*MATCH(H2,$E$2:$E$18,0),2)

 

[Peter_SSs]

Re: Help with returning adjacent text cell for the maximum occurrence within groups of IDs

A third option, that doesn't require any helper columns at all, would be to employ a user-defined function as follows.
I have assumed that the ID column & Code column will be adjacent columns and in that order.

To implement ..
1. Right click the sheet name tab and choose "View Code".
2. In the Visual Basic window use the menu to Insert|Module
3. Copy and Paste the code below into the main right hand pane that opens at step 2.
4. Close the Visual Basic window.
5. Enter the formula as shown in the screen shot below and copy down.
6. Your workbook will need to be saved as a macro-enabled workbook (*.xlsm)

Function MaxCodes(rng_ID_Code As Range, sID As String) As String
  Dim d As Object
  Dim a As Variant, itm As Variant
  Dim i As Long, IDmax As Long
  Dim s As String
  
  Set d = CreateObject("Scripting.Dictionary")
  a = rng_ID_Code.Value
  For i = 1 To UBound(a)
    If a(i, 1) = sID Then
      s = a(i, 1) & "|" & a(i, 2)
      d(s) = d(s) + 1
      If d(s) > IDmax Then IDmax = d(s)
    End If
  Next i
  For Each itm In d.keys
    If d(itm) = IDmax Then MaxCodes = MaxCodes & ", " & Split(itm, "|")(1)
  Next itm
  MaxCodes = Mid(MaxCodes, 3)
End Function

Excel Workbook
	A	B	I
1	ID (A)	CODE (B)	Codes with Max Occur.
2	1	A	A, C
3	1	B	A, C
4	1	C	A, C
5	1	C	A, C
6	1	C	A, C
7	1	A	A, C
8	1	A	A, C
9	2	A	B
10	2	B	B
11	2	B	B
12	2	C	B
13	2	D	B
14	3	A	C
15	3	B	C
16	3	C	C
17	3	C	C
18	3	E	C
19	3	D	C
Example (3)

 

[inactiveuserps07]

Re: Help with returning adjacent text cell for the maximum occurrence within groups of IDs

Re Peter's Note: A word of warning: If you do continue to use Erik's formula, be aware that if you, or another user, subsequently inserts any new rows at the top of the sheet, the formulas will return incorrect results.

... or you simply adapt the formula to your needs replacing the final 1 with the number of the row before your data starts (so if you start your data on Row 7, the final 1 in the formula would become a 6).

=INDEX(B$2:B$18,MAX((A$2:A$18=A2)*(E$2:E$18=MAX(IF(A$2:A$18=A2,E$2:E$18)))*(ROW(A$2:A$18)-1)))

 

[Peter_SSs]

Re: Help with returning adjacent text cell for the maximum occurrence within groups of IDs

... or you simply adapt the formula to your needs replacing the final 1 with the number of the row before your data starts (so if you start your data on Row 7, the final 1 in the formula would become a 6).

[/COLOR]=INDEX(B$2:B$18,MAX((A$2:A$18=A2)*(E$2:E$18=MAX(IF(A$2:A$18=A2,E$2:E$18)))*(ROW(A$2:A$18)-1)))

That would still mean the user needing to know (& remember) to adjust the formula any time rows were added or deleted. Why not make the formula independent of such changes?

=INDEX(B$2:B$19,MAX((A$2:A$19=A2)*(E$2:E$19=MAX(IF(A$2:A$19=A2,E$2:E$19)))*(ROW(A$2:A$19)-ROW(A$2)+1)))