VBAでJScriptのArrayオブジェクトのメソッドを使ってみるサンプルです。 サンプルではSliceメソッドを使用してみています。 Sub JSArraySample() Set objJS = CreateObject("ScriptControl") With objJS .Language = "JScript" .AddCode "function JSSplit(s,d){return s.split(d);}" .AddCode "function JSArrayLength(a){return a.length;}" End With 文字列 = "a,b,c,d,e" Set b = objJS.CodeObject.JSSplit(文字列, ",") Cells(1, 1).Value = b.slice(0, 1) Cells(1, 2).Va