Este fórum está sendo desativado

[xlarruda]

Essa fórmula conta quantos valores eu tenho exclusivos de D5 até D25

{=SOMA(1/CONT.SE($D$5:$D$25;$D$5:$D$25))}

Porém ela é matricial..

tem como fazer ela em VBA?

Vlw! até mais
Att,

xlarruda.

[babdallas]

Você quer fazer exatamente esta fórmula no VBA ou quer usar outro método que não seja Fórmula?

[FelipeMGarcia]

Não vale a pena fazer em VBA devido ao tamanho da sua base, se sua base fosse muito grande, aí sim, mas como o intervalo é pequeno a diferença de desempenho e quase nula

[osvaldomp]

1. se você quer inserir a fórmula na planilha utilizando macro (resultado em F1):

Código: Selecionar todos

ActiveCell.FormulaArray = "=SUM(1/COUNTIF($D$5:$D$25,$D$5:$D$25))"

2. se você quer contar os conteúdos únicos no intervalo D5:D25 utilizando macro:

Código: Selecionar todos

Sub ContaÚnicos()
[F1] = Evaluate("=SUM(1/COUNTIF($D$5:$D$25,$D$5:$D$25))")
End Sub