Range对象的End属性
Range对象有一个End属性，也许你在阅读别人的例子里经常会看到如“[A65536].End(xlUp).Row”这样的语句，这就是End属性的利用。
End属性应用于Range对象，同样也返回一个Range对象。该对象代表包含源区域的区域结尾处的单元格。如果你还是不明白，那请你在工作表里试一试，分别按Ctrl+上、下、左、右方向键，看看得到的是什么？
End属性返回的单元格就相当于在源单元格按住Ctrl键+上（或下、左、右）方向键所得到的单元格。它的语句格式简单写为：
源区域.End（移动方向）
移动方向可以是：
xlToLeft ：向左移动，相当于在源区域按Ctrl+左方向键。
xlToRight：向右移动，相当于在源区域按Ctrl+右方向键。
xlUp：向上移动，相当于在源区域按Ctrl+上方向键。
xlDown：向下移动，相当于在源区域按Ctrl+下方向键。
所以在程序设计的过程中，很多人喜欢用“[A65536].End(xlUp).Row”语句来返回A列的最后一个非空单元格的行号。
如果当前活动工作表的A列填写的是学生的姓名，现在我们想在表中A列最后一个学生的后面增加一个叫“张青”的学生，则代码为：
复制内容到剪贴板
代码:
ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "张青"
语句 [A65536].End(xlUp).Row + 1中，行号加1的目的是在最后一个非空单元格的下一个单元格里输入数据。需要注意的是：如果你的A列全为空的话，“[A65536].End(xlUp).Row”这个语句返回的是1。
我们来做一个简易的学生信息录入的例子：
（1）点工作表中的“录入资料”按钮，弹出“录入”窗体；
（2）录入信息后，点击“确定”按钮即完成记录追加；
（3）不考虑录入内容是否规范。 详细请看附件， 信息录入.rar (11.09 KB)附件没有设密码，希望大家尝试过后再看代码！
