两段代码,为何第一次只运行一段

飘零红叶

目的:将第一张表中关键字与第二张表相同的,将第一张表的相关内容拷贝至第二张表,再判断第三章表与第二张表关键字相同与否,如果相同,再将第三章表的相关内容拷贝至第二张表,但是,在运行时,第一次运行,第二段代码没有执行,再运行一次,第二段代码开始执行.我再一个excel文件,准备打到相同的目的,结果是执行了,搞不同再这张表中第二段代码为何没有执行.本人在线等,恳请高手给予回复为盼!

[此贴子已经被作者于2007-1-24 15:17:28编辑过]

飘零红叶

同志们,我一直在线等候,怎么没有人帮忙呀?

情比金坚

那有个工资表？哪有工时工资？

row1 = Sheets("花名册").[A1].CurrentRegion.Rows.Count '获取花名册行数
row2 = Sheets("考勤").[A1].CurrentRegion.Rows.Count '获取考勤表行数
row3 = Sheets("过渡表").[A1].CurrentRegion.Rows.Count '获取过渡表行数
row4 = Sheets("工资表").[A1].CurrentRegion.Rows.Count '获取工资表行数
row5 = Sheets("工时工资").[A1].CurrentRegion.Rows.Count '获取工时工资表的行数'

飘零红叶

以下是引用情比金坚在2007-1-23 17:36:00的发言：


那有个工资表？哪有工时工资？

row1 = Sheets("花名册").[A1].CurrentRegion.Rows.Count '获取花名册行数
row2 = Sheets("考勤").[A1].CurrentRegion.Rows.Count '获取考勤表行数
row3 = Sheets("过渡表").[A1].CurrentRegion.Rows.Count '获取过渡表行数
row4 = Sheets("工资表").[A1].CurrentRegion.Rows.Count '获取工资表行数
row5 = Sheets("工时工资").[A1].CurrentRegion.Rows.Count '获取工时工资表的行数'

对不起,删除多余代码时没有考虑清楚,但是,我把row4,row5行删除后,第一次运行时只拷贝花名册数据,第二次运行时才拷贝考勤表数据,不知道为什么,还请不吝解决为盼!

[此贴子已经被作者于2007-1-24 8:29:25编辑过]

飘零红叶

我把row4,row5行代码删除后也是一样,第一次运行只拷贝花名册数据,再次运行才拷贝考勤表数据

情比金坚

无论做什么事有个好习惯是重要的，所以建议你：

1：变量使用前都要命名

2：代码按层次缩进

虽然以上不是必须的

飘零红叶

听君一席话胜读十年书，非常感谢“情比金坚”的帮助！