[已解决]麻烦大家给我帮我实现同一工作薄里的几张表按条件合并的代码，具体要求在附件里，谢谢

fjmxwrs · 发表于 2011-12-20 21:36

yty773436272 发表于 2011-12-20 21:34
7楼的表运行出现未定义，我按调试显示的语句为If .Cells(y, 1) = arr(x, 1) And .Cells(y, 18) = "" Then这 ...

大意了，表2和表3的没改全，把这两个表的iR1改为5即可

求助改.zip (94.26 KB, 下载次数: 9)

yty773436272 · 发表于 2011-12-20 21:45

fjmxwrs 发表于 2011-12-20 21:36
大意了，表2和表3的没改全，把这两个表的iR1改为5即可

朋友，就是这个意思，谢谢你啦

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