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

特定文字より右部分にある文字列を抜き出したい
特定文字より右部分にある文字列を抜き出するサンプルコード
1. 実際の使い方
関連記事

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

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

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

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

実際の使い方

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

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