programing

VBA의 하위 문자열

powerit 2023. 6. 17. 09:45
반응형

VBA의 하위 문자열

다른 세포에 여러 개의 줄이 있어요

CO20:  20 YR CONVENTIONAL
FH30:  30 YR FHLMC
FHA31   

하위 문자열을 1에서 인덱스 ':'로 가져오거나 종료될 때까지 사용할 수 없는 경우(문자열 3의 경우).VBA로 작성하는 데 도움이 필요합니다.

단축:

   Split(stringval,":")(0)

먼저 ':'에 대해 테스트한 다음, 발견 여부에 따라 ':' 또는 종료까지 테스트 문자열을 가져옵니다.

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

이 경우 ":"에서 문자열의 위치를 먼저 찾을 수 있습니다.

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

그런 다음 왼쪽(StringToCut, 문자 수ToCut)을 사용합니다.

Result = Left(StringToSearch, position -1)

언급URL : https://stackoverflow.com/questions/6052337/substring-in-vba

반응형