如何分数???

wsxwsx1

如何分数???
如何将下列的数据分开??如下
4-8;10-14
分成如下的数据:
4,5,6,7,8
10,11,12,13,14

tmtony

先用split分开
再用代码拆开- , 用代码 循环 取

todaynew

wsxwsx1 发表于 2010-11-22 10:50
如何分数???
如何将下列的数据分开??如下
4-8;10-14

写一个自定义函数返回数组即可，以下代码没有测试，你试试看：
function A(v0 as long,v1 as long) as Variant
dim i as long
dim V
ReDim V(0 To v1-v0-1)
for i=0 to v1-v0-1
   V(i)=v0+i
next
A=V
end function