¿Cómo contar números entre el caracter ","?

Me gustaría ver la posibilidad que me orientaran con esta duda.
Tengo una celda en la cual tengo números separador por comas ",", por ejemplo:

Celda J8 contiene: 1,2,3,4,12,18

Ocupo que me contabilice los números entre las comas por ejemplo el resultado en ese ejemplo seria :6, porque hay 6 números.

Investigué y llegue a esta fórmula que si me contabiliza pero lo hace en dígitos no en numero arrojando resultado 8 porque cuenta los caracteres de cada número no el numero como tal.

Esta es la formula que tengo:

=LARGO(J8) - (LARGO(J8)-LARGO(SUSTITUIR(J8,",",""))) - (LARGO(J8)-LARGO(SUSTITUIR(J8,"-","")))

2 Respuestas

Respuesta
2

Supongo que

=LARGO(J8)-LARGO(SUSTITUIR(J8;",",""))+1

debería funcionar.

Saludos_

Respuesta
1

Se me ocurre utilizar el texto en columnas e integrarlo en una macro. Yo no tengo ninguna experiencia en VBA, pero con el grabador de macros me ha salido esto.

El botón lo creas aparte, y acomodas los resultados donde mejor te acomode.

 

Sub datoscolum()
'
' datoscolum Macro
'

Range("j7:v7").ClearContents
'Selection.Clear
Range("J8").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("k7"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Range("K8").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-1]C[-1]:R[-1]C[11])"
Range("K8").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas