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

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).AddressMsgBox Range("E6").End(xlDown).AddressMsgBox Range("E6").End(xlToLeft).AddressMsgBox Range("E6").End(xlToRight).AddressMsgBox Range("D15").End(xlUp).AddressMsgBox Range("D15").End(xlDown).AddressMsgBox Range("D15").End(xlToLeft).AddressMsgBox Range("D15").End(xlToRight).AddressEnd Sub只要执行这个过程，就能看到每行代码返回单元格的地址，如：

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。