Count unique values with additional condition

[BigDelGooner]

I am really stuggling here guys so any help much appreciated. I need to count the amount of unique values in a range, but only count unique values that also have a seperate condition. To help illustrate with the 2 column dataset below....


Colour Letter
Yellow A
Yellow A
Green B
Yellow B
Blue A
Blue A
Yellow C

For this set of data i want 3 seperate cells for each 'Letter' telling me that, for 'A', the answer is 2 unique values (i.e. Yellow and Blue). For 'B' there is also 2 unique values (i.e. Green and Yellow) and finally for 'C' there is just 1 unique value (i.e. yellow).

Any help greatly appreciated. Many thanks

 

[BobUmlas]

A UDF (User-defined function) would do:
This function:
Function Unq(Letr As String, letRng As Range, colorRng As Range) As Integer
Dim col As New Collection, i As Integer
On Error Resume Next
For i = 1 To letRng.Rows.Count
If letRng(i) = Letr Then
col.Add CStr(colorRng(i)), CStr(colorRng(i))
End If
Next
Unq = col.Count
End Function

could be used in the worksheet like =Unq("A",B2:B8,A2:A8)

 

[BigDelGooner]

Thank you so much for your help, cannot thank you enough!