|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 ahzz0028 于 2009-7-4 20:08 发表
2,3,4, 是a2单元格,到b2单元格,加1来的
7 是a3单元格,到b3单元格,加1来的
9,10,11,12,13是a4单元格,到b4单元格,加1来的
我不会用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
试着根据你描述的意思做了一下,详见附件。
也不知道对不对?
供参考 |
|