[엑셀 vba] 문자 찾기

1. 문자열에서 특정 문자의 위치 찾기:

Sub FindChar()
    Dim myString As String
    Dim charPos As Long
    
    myString = "Hello, world!"
    charPos = InStr(1, myString, "o") ' 문자열에서 "o"가 처음 나오는 위치 찾기
    
    MsgBox "첫 번째 'o'의 위치: " & charPos
End Sub

 

 

 

 

 

정 문자열에서 부분 문자열 찾기:

Sub FindSubString()
    Dim myString As String
    Dim subString As String
    
    myString = "The quick brown fox jumps over the lazy dog"
    subString = "brown"
    
    If InStr(1, myString, subString) > 0 Then
        MsgBox "문자열 '" & subString & "'이(가) 있습니다."
    Else
        MsgBox "문자열 '" & subString & "'이(가) 없습니다."
    End If
End Sub