MS Excel - desejo contar valores únicos com base em uma coluna pai

Question

Eu sou muito novo no Excel. Preciso de ajuda para contar valores únicos em cada uma das três colunas (considerando-as apenas uma de cada vez) em relação a uma coluna pai (a primeira (A) da imagem). Você pode me ajudar, por favor? Obrigado!

Editar: se eu fizer uma tabela dinâmica, isso não me dará a contagem de colunas individuais, mas a coluna final.

Dados de origem:

Dados de resultado após transformação:

Fonte

A   B   C   D
p   d   g   k
p   e   g   k
q   d   h   k
q   f   h   o
r   d   h   o
r   e   i   m
r   f   h   m
s   d   i   n
s   d   i   o
s   f   i   o

Resultado

A   B   C   D
p   2   1   1
q   2   1   2
r   3   2   2
s   2   1   2

Answer 1

Construímos uma lista da colunaAúnicos e coloque-o na colunaEe então execute um conjunto de loops para contar os únicos nas outras colunas:

Sub Macro1()
    Dim N As Long, i As Long
    Dim c As Collection, v As Variant
    Dim M As Long, j As Long, rc As Long
    Dim K As Long

    Columns("A:A").Copy Columns("E:E")
    Range("E:E").RemoveDuplicates Columns:=1, Header:=xlNo

    rc = Rows.Count
    M = Cells(rc, "A").End(xlUp).Row
    N = Cells(rc, "E").End(xlUp).Row

    For i = 1 To N
        v = Cells(i, "E").Text
            For K = 2 To 4
                Set c = Nothing
                Set c = New Collection
                For j = 1 To M
                    If v = Cells(j, "A").Text Then
                        On Error Resume Next
                            c.Add Cells(j, K).Text, CStr(Cells(j, K).Text)
                        On Error GoTo 0
                    End If
                Next j
                Cells(i, K + 4).Value = c.Count
            Next K
    Next i
End Sub