VBATips

特定文字より左部分にある文字列を抜き出す【Left関数】【Instr関数】【ExcelVBA】

特定文字より左部分にある文字列を抜き出したい

特定文字より左部分にある文字列を抜き出したい場合があります。(○○株式会社の○○部分)
Left関数Instr関数を使うことで抜き出し可能です。

特定文字より左部分にある文字列を抜き出するサンプルコード

'■特定文字より左部分にある文字列を抜き出す
Public Function call_sWordPull_Instr(str As String, sWord As String)
    call_sWordPull_Instr = Left(str, InStr(str, sWord) - 1)
End Function

実際の使い方

下記コードのように使用します。

Public Sub sample()
    
    Debug.Print call_sWordPull_Instr("あいうえお株式会社", "株式会社")  'あいうえお
    Debug.Print call_sWordPull_Instr("株式会社あいうえお", "株式会社")  '(株式会社の左側に文字存在しないので、空白で返ってくる)
        
End Sub

関連記事

コメント

タイトルとURLをコピーしました