sub test()
dim n,m,x,y as long
dim rw() as long
dim str() as string
n=sheets(1).usedrange.rows.count
redim rw(1 to n) as long
m=1
for x= 1 to n
rw(x)=sheets(1).cells(x,"D")
str(x)=sheets(1).cells(x,"A")
for y= 1 to rw(x)
sheets(1).cells(m+y-1,"E")=str(x)
next y
m=m+rw(x)
next x
end sub追问
dim n,m,x,y as long
dim rw() as long
dim str() as string
n=sheets(1).usedrange.rows.count
redim rw(1 to n) as long
m=1
for x= 1 to n
rw(x)=sheets(1).cells(x,"D")
str(x)=sheets(1).cells(x,"A")
for y= 1 to rw(x)
sheets(1).cells(m+y-1,"E")=str(x)
next y
m=m+rw(x)
next x
end sub追问
什么情况
我设置的n为你表1 所有使用过的行数。。。。这个错误是数组的指针变量超出数组定义的范围，你可以监测一下 x与n的值 ，应该就能改好了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-03-27
没看太明白，D1的数值为30，和样本内容心事30次的30有关吗？追问
D1数值30 表示样本内容有30个，现在要给它拆成1个1个的
追答额。。。还是不太明白，建议直接上excel举例，这样比较好理解
追问
就这样 处理完E列应该有4个样本数据1 6个样本数据2
相似回答