string - macro - Subcadena en vba

vba array length

Question

Tengo múltiples cadenas en diferentes celdas como

CO20:  20 YR CONVENTIONAL
FH30:  30 YR FHLMC
FHA31   

Necesito obtener la subcadena de 1 hasta el índice de '':'' o si no está disponible hasta que termine (en el caso de la cadena 3). Necesito ayuda para escribir esto en VBA.

Answer 1

Más corta:

   Split(stringval,":")(0)

Answer 2

Primero puede encontrar la posición de la cadena en este caso ":"

''position = InStr(StringToSearch, StringToFind)
position = InStr(StringToSearch, ":")

Luego use Left (StringToCut, NumberOfCharacterToCut)

Result = Left(StringToSearch, position -1)

Answer 3

Pruebe primero '':'', luego lleve la cadena de prueba hasta '':'' o finalice, dependiendo de si se encontró

Dim strResult As String

'' Position of :
intPos = InStr(1, strTest, ":")
If intPos > 0 Then
    '' : found, so take up to :
    strResult = Left(strTest, intPos - 1)
Else
    '' : not found, so take whole string
    strResult = strTest
End If