none
Buscar Ultima letra de una cadena RRS feed

  • Pregunta

  • Buenos días,

    Como puedo buscar la ultima letra de una cadena que esta en una celda de excel.

    Lo necesito para extraer los últimos números de esa cadena

    Ejemplo: AB45CDF15HT45789 Necesitaría extraer los números últimos que haya en el ejemplo 45789

    Muchas Gracias

    domingo, 30 de octubre de 2016 13:35

Todas las respuestas

  • dim a as string

    a=reversetring(a)

    for contador =1 to len(a)

    if isnumeric(mid(a,contador,1)) then

    resultado = resultado & mid(a,contador,1)

    else

      exit for

    endif

    msgbox resultado

    Function ReverseString(ByVal sText As String) As String

    Dim lenText As Long, lPos As Long
     
      If Len(sText) = 0 Then Exit Function
     
      lenText = Len(sText)
      ReverseString = Space(lenText)
     
      For lPos = lenText To 1 Step -1
        Mid$(ReverseString, lenText - lPos + 1, 1) = Mid$(sText, lPos, 1)
      Next lPos
     
    End Function

    lunes, 31 de octubre de 2016 22:54