两个条件复制.

缘来不相识 · 发表于 2013-6-19 20:18

本帖最后由缘来不相识于 2013-6-19 20:58 编辑

附件的代码是满足F列为1的行进行复制,现在想增加一个条件进行复制,即满足F1:F9为1的行,同时在H21:H26出现1的情况下才进行复制.

两个条件复制.rar (12.16 KB, 下载次数: 1)

缘来不相识 · 发表于 2013-6-19 20:57

在H18加了一个判断为1,修改代码If S1.Range("f" & i) = 1 为If S1.Range("f" & i) = 1 And S1.Range("H18").Value = 1 ,解决了.还有直接的吗.

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