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