特定の文字列で区切られたセルの区切り範囲数を取得する｜Excel VBA

ツイート

セル内にカンマで区切られた値が入力されているとします。
たとえば、「4/6,天気,晴れ,最高気温,17度」のような値です。

次のサンプルでは、セルA1の値がカンマで5つに区切られていることを、Split関数とUBound関数を使って調べます。

Sub Sample()
    Dim myArray As Variant
    Dim Delimiter As String
    
    Delimiter = ","
    myArray = Split(Range("A1").Value, Delimiter)
    MsgBox UBound(myArray) + 1 & "個に分れています"
End Sub

Split関数は、引数Delimiterによって各要素に区切られた文字列より、1次元配列を作成して返します。作成される配列の要素番号はOption Baseステートメントにかかわらず、0から始まります。