特定文字より左部分にある文字列を抜き出したい
特定文字より左部分にある文字列を抜き出したい場合があります。(○○株式会社の○○部分)
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
コメント