Tabela Dinamica Excel 2010 Contar Distintos

Para contar valores distintos em uma tabela dinâmica no Excel 2010, siga as etapas abaixo:

1. Crie uma tabela dinâmica com os dados relevantes.
2. Selecione a célula onde você deseja que a contagem distintiva apareça.
3. Digite a fórmula =CONT.SE(DISTINCT(),">0") e pressione Enter.
4. A contagem distintiva dos valores será exibida na célula selecionada.

Observação: o termo DISTINCT() é uma função personalizada que deve ser definida anteriormente para funcionar corretamente. Para fazer isso, siga estas etapas:

1. Abra o Editor do Visual Basic pressionando Alt + F11.
2. Clique em "Inserir" e selecione "Módulo".
3. Digite o seguinte código na janela do módulo:

Function DISTINCT(rng As Range) As Variant Dim arr() As Variant Dim i As Long, j As Long Dim blnFound As Boolean If rng.Cells.Count = 1 Then DISTINCT = rng.Value Exit Function End If ReDim arr(1 To rng.Cells.Count) For i = 1 To rng.Cells.Count arr(i) = rng.Cells(i).Value Next i For i = 1 To UBound(arr) If arr(i) <> "" Then blnFound = False For j = i + 1 To UBound(arr) If arr(j) = arr(i) Then blnFound = True Exit For End If Next j If Not blnFound Then DISTINCT = DISTINCT + 1 End If Next i End Function

4. Pressione Alt + Q para retornar ao Excel.
5. Agora você pode usar a função DISTINCT() em suas fórmulas de contagem distintiva na tabela dinâmica.