Sub SplitTest() Dim strArray Dim strData strData = "a,b,c" ' テストデータ strArray = Split(strData, ",") ' 指定した区切り文字で分割し、配列に格納 For Each strItem In strArray Debug.Print strItem Next End Sub
a b c