Wagner Paulo, Bom Dia.

 

Na célula AC2 coloca esta formula, copia para baixo e para direita

=NÚM.CARACT(ARRUMAR(EXT.TEXTO(SUBSTITUIR(" "&ARRUMAR(CONCAT(SE($C2:$AA2<>"";1;" ")));" ";REPT(" ";30));30*COLS($A$1:A$1);30)))

 Formatar celula com 0;-0;;@ para não mostrar zeros

Na célula AP2 coloca esta formula, copia para baixo e para direita

=NÚM.CARACT(ARRUMAR(EXT.TEXTO(SUBSTITUIR(" "&ARRUMAR(CONCAT(SE($C2:$AA2="";1;" ")));" ";REPT(" ";30));30*COLS($A$1:A$1);30)))

Formatar celula com 0;-0;;@ para não mostrar zeros

 

Outra forma

Na célula AC2 coloca esta formula, copia para baixo e para direita

=SEERRO(FILTROXML("<a><b>"&UNIRTEXTO("</b><b>";;TEXTO(FREQÜÊNCIA(SE($C2:$AA2<>"";$C$1:$AA$1);SE($C2:$AA2="";$C$1:$AA$1));"0;;;"))&"</b></a>";"//b["&COL(A1)&"]");"")

 

Na célula AP2 coloca esta formula, copia para baixo e para direita

=SEERRO(FILTROXML("<a><b>"&UNIRTEXTO("</b><b>";;TEXTO(FREQÜÊNCIA(SE($C2:$AA2="";$C$1:$AA$1);SE($C2:$AA2<>"";$C$1:$AA$1));"0;;;"))&"</b></a>";"//b["&COL(A1)&"]");"")

 

Tive ajuda dos universitários

 

Confere se é desta forma que desejas

 

Se foi útil, clique na mãozinha Curtir é uma forma de agradecimento

Decio

 

 

As fórmulas acimas não funcionaram no Excel instalado no meu PC que é o 2010. Mas ao entrar no Excel 365 online, as duas primeiras fórmulas funcionaram perfeitamente, já as duas últimas não.

De qualquer forma, muito obrigado pela atenção dispensada 

De qualquer forma, muito obrigado pela atenção dispensada 

@wagner-paulo, Boa Tarde

 

Notei que não agradeceu a ajuda dada

Para a sua versão 2010 encerrar com CTRL+SHIFT+ENTER

Sobre Excel On-Line essa formula não irão funcionar talvez desta forma ou também teclar CTRL+SHIFT+ENTER ou

=IFERROR(FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,TEXT(FREQUENCY(IF($C2:$AA2<>"",$C$1:$AA$1),IF($C2:$AA2="",$C$1:$AA$1)),"0;;;"))&"</b></a>","//b["&COLUMN(A1)&"]"),"")

e

=IFERROR(FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,TEXT(FREQUENCY(IF($C2:$AA2="",$C$1:$AA$1),IF($C2:$AA2<>"",$C$1:$AA$1)),"0;;;"))&"</b></a>","//b["&COLUMN(A1)&"]"),"")

 

Se foi útil, clique na mãozinha Curtir é uma forma de agradecimento

Decio