ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 1875|回复: 16

[求助] 请高手帮忙解决一下,不难太繁的问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-7-4 17:21 | 显示全部楼层 |阅读模式
]起始 终止  两数相差
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 编辑 ]

zhongzhuan.rar

6.07 KB, 下载次数: 9

1.rar

6.19 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2009-7-4 17:34 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-7-4 17:37 | 显示全部楼层
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 编辑 ]

zhongzhuan.rar

11.45 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2009-7-4 17:52 | 显示全部楼层
将前三列展开在D列:
zhongzhuan.rar (11.88 KB, 下载次数: 9)

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-4 18:02 | 显示全部楼层

回复 4楼 zhaogang1960 的帖子

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-4 18:05 | 显示全部楼层

回复 4楼 zhaogang1960 的帖子

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

TA的精华主题

TA的得分主题

发表于 2009-7-4 18:09 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-7-4 18:22 | 显示全部楼层

回复 6楼 ahzz0028 的帖子

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-4 19:02 | 显示全部楼层

回复 8楼 zhaogang1960 的帖子

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-4 19:04 | 显示全部楼层

回复 6楼 ahzz0028 的帖子

zhaogang1960,你在吗?请你在看看吧,应该挺简单的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-22 07:03 , Processed in 0.078141 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表