特定文字以降を削除する処理をパーツ化する【Split関数応用】【ExcelVBA】

特定文字以降の文字列を削除したい
特定文字以降の文字列を削除するサンプルコード
1. 実際の使い方
注意点
関連記事

特定文字以降の文字列を削除したい

フォルダパスとファイル名を分けたいやファイル名と拡張子を分けると同様に、
特定文字以降の文字を削除したい場合があります。パーツ化することで簡単にコピペで使えます。

特定文字以降の文字列を削除するサンプルコード

Split関数を使用し、特定文字前と特定文字後に分けます。

'■特定文字以降を削除する(特定文字前のみ返す)サブプロシージャ
Public Function Call_SpecificCharacterDelete(str As String, SPWord As String)
    Dim arr As Variant
    
    arr = Split(str, SPWord)
    
    Call_SpecificCharacterDelete = arr(0)
    
End Function

実際の使い方

Public Sub sample()

    '■通常の使い方
    Debug.Print Call_SpecificCharacterDelete("10,000円以上送料無料！", "円")    '10,000
    '■特定文字が複数の場合も正しく表示
    Debug.Print Call_SpecificCharacterDelete("C:\Users\temp", "\temp")          'C:\Users
    '■特定文字が複数回出現の場合は最初の段階で表示
    Debug.Print Call_SpecificCharacterDelete("C:\Users\temp", "\")              'C:
    '■特定文字が存在しなければ、全てを返す
    Debug.Print Call_SpecificCharacterDelete("123456", "aaa")    '123456
   
End Sub