extraer los grupos de 10 nros en texto

14/01/2009 - 05:34 por yedeon | Informe spam
saludos

como podria extraer en texto (de un renglon) todos los numeros que sean
de 10 digitos

ojo 1 las pocisiones de los nros varian
2 aveces aparecen 1 o hasta 5 nros de tel
3 aparecen otros numeros pero no interesan por no ser de 10 digitos

por ejemplo en a1

hola hermana 2584564871 en la escuela 5684567894 conoci a el

en b2 extraiga 2584564871,5684567894



ejemplo 2 en a2


es muy 4789564785 noche 14 del 56879 pero mi tio 4567895456 _
1234567890

en b2 extraiga

4789564785,4567895456,1234567890



preferntemente con formulas
pero tambien se aceptan macros thks
 

Leer las respuestas

#1 Héctor Miguel
14/01/2009 - 07:13 | Informe spam
hola, (...) ???

por formulas (seguramente) resultaria una concatenacion/busqueda por indices/... mas que "kilometrica"
en via de mientras, prueba con una funcion personalizada en un modulo de codigo estandar +/- como la siguiente:

Function DiezDigitos(Cadena As String, Optional Veces As Byte = 5) As String
Dim n As Byte, Parcial As String, Total As String
Parcial = Cadena
With CreateObject("vbscript.regexp")
For n = 1 To Veces
.Pattern = "(\d{10})"
If .Test(Parcial) Then
Total = Total & "," & .Execute(Parcial)(0)
Parcial = .Replace(Parcial, "")
End If
Next
End With
DiezDigitos = Mid(Total, 2)
End Function

OJO: el segundo argumento ("Veces") es opcional (por si quieres ampliar/reducir la posible busqueda por 5 numeros de 10
en la celda donde necesitas el resultado, la llamas como a una funcion integrada (p.e.)

[B2] =DiezDigitos(a2)

saludos,
hector.

__ OP __
como podria extraer en texto (de un renglon) todos los numeros que sean de 10 digitos
ojo 1 las pocisiones de los nros varian
2 aveces aparecen 1 o hasta 5 nros de tel
3 aparecen otros numeros pero no interesan por no ser de 10 digitos
por ejemplo en a1: hola hermana 2584564871 en la escuela 5684567894 conoci a el
en b2 extraiga 2584564871,5684567894
ejemplo 2 en a2: es muy 4789564785 noche 14 del 56879 pero mi tio 4567895456 1234567890
en b2 extraiga
4789564785,4567895456,1234567890
preferntemente con formulas pero tambien se aceptan macros ...

Preguntas similares