文字列ないの指定した文字Aと文字Bの間の文字列を取り出したい場合に便利な関数です。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 Between 」が使用できます。
使い方は
ワークシート上で = Between ( 文字列,文字A,文字B )の関数として使用することで、 文字Aと文字Bの間の文字列を抽出できます。
【例】
特定の文字と文字の間の文字列を抽出する関数
Between(文字列,文字A,文字B)
Between(“東京都杉並区”,”都”,”区”)→ 杉並
Function Between(S1 As String, S2 As String, S3 As String) As String
’ 特定の文字と文字の間の文字列を抽出する関数
’ Between(文字列,文字A,文字B)
’ Between(“東京都杉並区”,”都”,”区”)→ 杉並
On Error GoTo EXITFUN
Dim N1 As Long
Dim N2 As Long
Dim A As String
N1 = InStr(S1, S2)
If N1 > 0 Then
A = Mid(S1, N1 + Len(S2))
Else
GoTo EXITFUN
End If
N2 = InStr(A, S3)
If N2 > 0 Then
A = Left(A, N2- 1)
Else
GoTo EXITFUN
End If
Between = A
Exit Function
EXITFUN:
Between = “”
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。