[已解决]求vb

yuio123 · 发表于 2013-11-9 17:28

本帖最后由 yuio123 于 2013-11-10 20:24 编辑

提起数.rar (6.28 KB, 下载次数: 4)

danio112 · 发表于 2013-11-9 19:06

见附件

yuio123 · 发表于 2013-11-10 01:34

danio112 发表于 2013-11-9 19:06
见附件

看不明白,结果也不对,

danio112 · 发表于 2013-11-10 09:45

yuio123 发表于 2013-11-10 01:34
看不明白,结果也不对,

update

yuio123 · 发表于 2013-11-10 14:46

danio112 发表于 2013-11-10 09:45
update

如果结果放的位置改成从A10开始放,怎么改?

danio112 · 发表于 2013-11-10 16:55

yuio123 发表于 2013-11-10 14:46
如果结果放的位置改成从A10开始放,怎么改?

只须改Cells(k , 1) = rn为Cells(k + 9, 1) = rn

		自动登录	找回密码
密码			注册