Excel Contar quantas linhas(alt tab) tem em uma celula

[Janilson Brito]

senhores, bom dia!

preciso de uma ajuda.

em uma celula tenho os seguintes dados:

 

root

0 0 *** /modelo/teste

00 00,09,12 *** /modelo/teste

12 54 *** /modelo/teste

 

utilizando a formula: =NÚM.CARACT(C175)-NÚM.CARACT(SUBSTITUIR(C175; CARACT(10);""))+1

consigo um resultado de 4 (ou seja quatro linhas (alt tab) na celula)

 

preciso fazer uma contagem de quantas linhas (alt tab) tem nesta celula que começem com numero

ou seja, preciso contar apenas as linhas abaixo que seria um resultado de 3

 

0 0 *** /modelo/teste

00 00,09,12 *** /modelo/teste

12 54 *** /modelo/teste

 

 

 

[deciog]

@Janilson Brito , Boa tarde

 

Supondo que esteja na célula A1 usa desta forma

 

=NÚM.CARACT(A1)-NÚM.CARACT(SUBSTITUIR(A1;CARACT(10);""))

 

Se foi útil clica no curtir,na mãozinha, é uma forma de agradecimento pela ajuda
 
Decio
 

[Janilson Brito]

DecioG, primeiramente obrigado pela ajuda.

 

Realmente seria desta forma que estou precisando, mas quando copio e colo a formula nas outras celulas o resultado nao é o esperado, talvez nao tenha me explicado direito.

em anexo coloquei um arquivo com um pouco mais de informação da forma que preciso.

MODELO.xlsxBuscando informações...

[Visitante]

Se for aceitável uma solução via UDF e você quiser experimentar, então instale uma cópia da função abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha

Em seguida coloque em qualquer célula vazia ~~~> =contan(A2) ~~~> e arraste para baixo

Function contan(cel As String)
 Dim i As Long, v As Long, m As Long, c As Long
  If IsNumeric(Left(cel, 1)) Then c = 1
  For v = 1 To Len(cel) - Len(Replace(cel, Chr(10), ""))
   i = InStr(m + 1, cel, Chr(10))
   If IsNumeric(Mid(cel, i + 1, 1)) Then c = c + 1
   m = i
  Next v
  contan = c
End Function

 

[Janilson Brito]

Osvaldomp, muito obrigado pelo auxilio.

funcionou como preciso, nunca pensei em fazer algo tipo VBA