循环赋值就好了。
dim a(1 to 3, 1 to 3)dim ar,i as long ,j as long ,n as long ar=split(text1.text)for i=1 to 3 for j=1 to 3 a(i,j)=ar(n) n=n+1 nextnext
text是指什么？
