シート上でSplit関数っぽく振舞うユーザー定義関数を作ってみた

既に世の中にあるとは思うが、シート上でSplit関数っぽく振舞うユーザー定義関数を作ってみた。

「split関数もどき」ということで、分割した〇番目の要素を返す関数となっている。

Function SubSplit(expression As String, _
         Optional delimiter As String = ",", _
         Optional index As Long = 1) As String

    Dim arr As Variant
        arr = Split(expression, delimiter)

        ' 配列が０始まりのため。
        index = index - 1

        If UBound(arr) < index Then
            SubSplit = "要素の上限を上回っています。"
        ElseIf index < 0 Then
            SubSplit = "要素の下限を下回っています。"
        Else
            SubSplit = arr(index)
        End If
End Function

使い方は、こんな感じで。指定文字列を「，」で区切った〇番目の文字を返している。１番目なら「あ」、２番目なら「い」のように。

意外と、使えそうな気がしてます。

参考まで。