请高手帮忙解决一下，不难太繁的问题

ahzz0028

我又编辑了描述，请高手看看吧

Simon_Zhu

原帖由 ahzz0028 于 2009-7-4 19:06 发表
我又编辑了描述，请高手看看吧

3楼的附件是我理解错了，请忽略之。

2
3
4
7
9
10
11
12
13

这个结果正确吗？怎么出来的？看不明白。再解释一下。

ahzz0028

就是a2单元格，到b2单元格，加１来的

Simon_Zhu

原帖由 ahzz0028 于 2009-7-4 20:06 发表
就是a2单元格，到b2单元格，加１来的

还是不明白，猜一把，见附件。
对不对？

ahzz0028

2,3,4, 是a2单元格，到b2单元格，加１来的
7 是a3单元格，到b3单元格，加１来的
9,10,11,12,13是a4单元格，到b4单元格，加１来的
我不会用excel，我用foxpro语句写给你们看吧
for j=2 to 554 *这是行号
for i=a(j) to b(j) 这是a2和b2
repl d2 with i 这是结果
next i
next j

[ 本帖最后由 ahzz0028 于 2009-7-4 20:16 编辑 ]

Simon_Zhu

原帖由 ahzz0028 于 2009-7-4 20:08 发表
2,3,4, 是a2单元格，到b2单元格，加１来的
7 是a3单元格，到b3单元格，加１来的
9,10,11,12,13是a4单元格，到b4单元格，加１来的
我不会用excel，我用foxpro语句写给你们看吧
for j=2 to 554 *这是行号
for i=a ...

Sub mARR()
Dim rng, rng2, i%, J%
Range("E2：E65536").ClearContents
rng = [a65536].End(xlUp).Row
rng2 = [e65536].End(xlUp).Row + 1
For J = 2 To rng '* 这是行号
For i = Range("a" & J).Value To Range("b" & J).Value '这是a2和b2
Range("E" & rng2) = i
rng2 = rng2 + 1
Next i
Next J
End Sub

试着根据你描述的意思做了一下，详见附件。
也不知道对不对？
供参考

ahzz0028