[已解决]如何用代码抽取组数据?

greenli · 发表于 2015-7-19 10:13

本帖最后由 greenli 于 2015-7-19 12:39 编辑

附件

按要求抽取组数据.rar (366.01 KB, 下载次数: 1)

qh8600 · 发表于 2015-7-19 11:04

按要求抽取组数据.rar (380.43 KB, 下载次数: 3)

greenli · 发表于 2015-7-19 11:16

qh8600 发表于 2015-7-19 11:04
楼主试试

老师您好,谢谢帮助.试了一下,效果很好.
另外我想扩展一下,如果我把条件改为是E列的两个相同,不知如何修改.我把代码里所有 I都改为E后,出来的结果还是I列的相同.
不知能否麻烦老师指点一下.谢了.

qh8600 · 发表于 2015-7-19 11:31

greenli 发表于 2015-7-19 11:16
老师您好,谢谢帮助.试了一下,效果很好.
另外我想扩展一下,如果我把条件改为是E列的两个相同,不知如何修改 ...

if的条件改一下，ar(i+1,9)和ar(i+2,9)中的9代表第9列，换成E列就是改成5

greenli · 发表于 2015-7-19 11:40

qh8600 发表于 2015-7-19 11:31
if的条件改一下，ar(i+1,9)和ar(i+2,9)中的9代表第9列，换成E列就是改成5

老师您好,我把IF的条件改成这样If ar(e + 1, 5) = ar(e + 2, 5) Then后,试了一下,提示为下标越界,怪事了.

qh8600 · 发表于 2015-7-19 12:25

greenli 发表于 2015-7-19 11:40
老师您好,我把IF的条件改成这样If ar(e + 1, 5) = ar(e + 2, 5) Then后,试了一下,提示为下标越界,怪事了.

i是循环变量，不能改的，E就是第5列，cells（行号，列号）

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