2014-01-19 Split、LBound、UBound VBA Dim ary_ver As Variant, i As Integer ary_ver = Split("123,456,789", ",") For i = LBound(ary_ver) To UBound(ary_ver) '処理 Next