'文字列分割 Function SplitString( _ ByRef 対象文字列 As String _ , ByRef 区切り文字列 As String _ , Optional ByRef 取得位置 As Integer = 1 _ ) As Variant Dim var As Variant var = Split(対象文字列, 区切り文字列) SplitString = var(IIf(取得位置 < 0, UBound(var) + 1 + 取得位置, 取得位置 - 1)) End Function 'ユーザー定義関数の説明登録 'ブックのオープンイベントなどで呼び出す Sub …