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

ahzz0028

]起始 终止  两数相差
2        4      3
展开在一列中
2
3
4
如此而已，只是量大，太繁，请高手帮忙。见付件，只是当中一小部分
大体步骤
一、for i=a2 to b2
写入i 　到工作表2或者d列
next
二、for i=a3 to b3
写入i 到工作表2或者d列
next
就这样一直写完

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

Zamyi

如此而已，只是量大，太繁，不懂。

Simon_Zhu

Sub my_test()
   With Sheet1
   Set CNN = CreateObject("adodb.connection")
       CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
       Sql1 = "select 终止-起始 +1 from [Sheet1$]  "
        Range("C2").CopyFromRecordset CNN.Execute(Sql1)
          CNN.Close
   Set CNN = Nothing
   End With

End Sub

SQL方法。

=======================================================
函数法
C2=B2-A2+1
下拖

感觉这个不要用VBA吧，函数很简单啊。
供参考

[ 本帖最后由 Simon_Zhu 于 2009-7-4 17:41 编辑 ]

zhaogang1960

将前三列展开在D列：
zhongzhuan.rar (11.88 KB, 下载次数: 9)

2009-7-4 17:52 上传

点击文件名下载附件

ahzz0028

谢谢你的回复，真的帮忙了，可是前五个对，后面的就不对了

ahzz0028

谢谢你的回复，真的帮忙了，可是前五个对，后面的就不对了,第c列-1，是循环的终止条件

weiguoyin868

我愚钝，没搞明白楼主的意思。

zhaogang1960

看来这个问题不是简单的多列转换成一列的问题，理解错了，抱歉

ahzz0028

我现在编辑了描述，想必这样你能理解了吧

ahzz0028

zhaogang1960，你在吗？请你在看看吧，应该挺简单的。