よく使う Excel 数式 – 区切り文字以降/以前の文字列を抽出する（標準数式 / VB）

' 文字列 str 中の最初の delim 以降の部分文字列を抽出する関数
' lastOccurrence が True の場合、文字列 str 中の最後の delim 以降の部分文字列を抽出する
Function extractString(str As String, delim As String, Optional lastOccurrence As Boolean = False) As String
    Dim pos As Long
    If lastOccurrence Then
        pos = InStrRev(str, delim)
    Else
        pos = InStr(str, delim)
    End If
    
    If pos > 0 Then
        extractString = Mid(str, pos + Len(delim))
    Else
        extractString = ""
    End If
End Function


'-----------------------------------------------------------------------------
' GetSubstringBefore - 指定された区切り文字より前の文字列を取得する
'-----------------------------------------------------------------------------
' 引数:
'   str           : 処理対象の文字列
'   delimiter     : 区切り文字。この文字の前方にある文字列を取得します。
'   startFromEnd  : オプションの引数。True を指定すると、文字列の最後にある
'                   区切り文字から前方の文字列を取得します。
'                   既定値は False で、先頭からの検索になります。
'
' 戻り値:
'   指定された区切り文字より前の文字列。区切り文字が見つからない場合は、
'   元の文字列をそのまま返します。
'-----------------------------------------------------------------------------
Function GetSubstringBefore(str As String, delimiter As String, Optional startFromEnd As Boolean = False) As String
    Dim index As Long
    
    If startFromEnd Then
        index = InStrRev(str, delimiter)
    Else
        index = InStr(str, delimiter)
    End If
    
    If index > 0 Then
        GetSubstringBefore = Left(str, index - 1)
    Else
        GetSubstringBefore = str
    End If
End Function