如果工作表中已使用的區(qū)域如下圖：
則下面是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函數(shù)獲得每個返回單元格的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
只要執(zhí)行這個過程，就能看到每行代碼返回單元格的地址，如：
承擔因您的行為而導致的法律責任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。