在VBA中的子string

我有不同的单元格中的多个string

CO20: 20 YR CONVENTIONAL FH30: 30 YR FHLMC FHA31 

我需要从1的子string到'：'的索引，或者如果这是不可用的，直到结束（string3的情况下）。 我需要帮助写在VBA中。

Answer 1

短：

  Split(stringval,":")(0) 

Answer 2

首先testing'：'，然后将testingstring提取到'：'或结束，具体取决于是否find

 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 

Answer 3

在这种情况下，你可以先findstring的位置“：”

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

然后使用Left（StringToCut，NumberOfCharacterToCut）

 Result = Left(StringToSearch, position -1)