VBA 中的子字符串

Question

我在不同的单元格中有多个字符串，就像

CO20:  20 YR CONVENTIONAL
FH30:  30 YR FHLMC
FHA31   

我需要获取从 1 到 ':' 索引为止的子字符串，或者如果在结束之前不可用（如果是字符串 3）。我需要帮助用 VBA 编写此内容。

Answer 1

较短：

   Split(stringval,":")(0)

Answer 2

首先测试“：”，然后将测试字符串带到“：”或结束，具体取决于是否找到它

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

您可以先找到本例中字符串“：”的位置，

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

然后使用 Left(StringToCut, NumberOfCharacterToCut)

Result = Left(StringToSearch, position -1)