[已解决]员工信息录入为什么必须存在两行信息否则出错

hkuanen · 发表于 2011-10-6 13:22

现在有一个员工信息录入的程序，但是为什么在sheet2工作表执行时，必须至少存在表头和一行员工信息才可以执行，否则报错，请问是怎么回事，谢谢！菜鸟求助
      还有程序里面如下的代码，表示的是到底选取的哪一个单元格也不明白，其中的“A1"是A1单元格吗？
      Range("A1").Select
            Selection.End(xlDown).Select
         ActiveCell.Offset(1, 0).Range("A1").Select

最佳答案

月排行榜 / 总排行榜

Benol

2011-10-6 13:49

出错是由于你的定位方法造成的，你的End(xlDown)，就相当于CTRL+↓
A列只有一行，或没有数据，或有断行，都将导致错误。

另外，稍稍优化了下代码。

11.2.rar (15.15 KB, 下载次数: 15)

那么的帅 · 发表于 2011-10-6 13:34

回复 hkuanen 的帖子

'确保添加的数据信息在工作表中记录的最后一行
Range("A1").Select
'选取存在记录区域的最后一行
Selection.End(xlDown).Select
'选取最后一行的下一行
ActiveCell.Offset(1, 0).Select '其中的.Range("A1")没有实际意义，可以去掉

复制代码

Benol · 发表于 2011-10-6 13:49

出错是由于你的定位方法造成的，你的End(xlDown)，就相当于CTRL+↓
A列只有一行，或没有数据，或有断行，都将导致错误。

另外，稍稍优化了下代码。

11.2.rar (15.15 KB, 下载次数: 15)

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