sub 不规则嵌套转二维()
dim t(), t1()
'重新定义二维数组，t1其实是一个一维数组的嵌套，ubound(t1)可以显示出t1第一个元素的最大数量，但ubound(t1,2)却不行，因为t1不是二维数组。下边用的30，其实只要是用一个大点的数，只要大于等于t1第二个括号中最大的数就行。
redim t(1 to ubound(t1), 30)
for z= 0 to ubound(t1) '用z循环t1的第一个括号
for each ss in t1(z) '这里是重点，也就是数组t1的第一个括号对应的内容我看成一个集合。这里只能用for each，因为不能确定第二个括号的元素数量。
e = e+1
t(z+1,e)=ss
next ss
e=0 '这里的e其实就是为了确定t1第二个括号的元素数量
next z
Range("a1").Resize(UBound(t), UBound(t, 2)) = t '最后将数组t写入单元格即可
end sub
