Range对象的End属性返回的结果

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

如果工作表中已使用的区域如下图：

则下面是E6和D5单元格中End属性各个设置返回的单元格：

Sub End属性()
Range("E6").End (xlUp) '返回E1单元格
Range("E6").End (xlDown) '返回E10单元格
Range("E6").End (xlToLeft) '返回C6单元格
Range("E6").End (xlToRight) '返回G6单元格
Range("D15").End (xlUp) '返回D10单元格
Range("D15").End (xlDown) '返回D1048657，即D列最后一个单元格
Range("D15").End (xlToLeft) '返回A15单元格
Range("D15").End (xlToRight) '返回XFD15,即第15行的最后一个单元格
End Sub


可以用MsgBox函数获得每个返回单元格的Address属性，查看每个单元格的地址，过程为：

Sub End属性()
MsgBox Range("E6").End(xlUp).Address
MsgBox Range("E6").End(xlDown).Address
MsgBox Range("E6").End(xlToLeft).Address
MsgBox Range("E6").End(xlToRight).Address
MsgBox Range("D15").End(xlUp).Address
MsgBox Range("D15").End(xlDown).Address
MsgBox Range("D15").End(xlToLeft).Address
MsgBox Range("D15").End(xlToRight).Address
End Sub

只要执行这个过程，就能看到每行代码返回单元格的地址，如：