如果工作表中已使用的區(qū)域如下圖：
則下面是E6和D5單元格中End屬性各個(gè)設(shè)置返回的單元格：
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列最后一個(gè)單元格
Range("D15").End (xlToLeft) '返回A15單元格
Range("D15").End (xlToRight) '返回XFD15,即第15行的最后一個(gè)單元格
End Sub
可以用MsgBox函數(shù)獲得每個(gè)返回單元格的Address屬性，查看每個(gè)單元格的地址，過(guò)程為：
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í)行這個(gè)過(guò)程，就能看到每行代碼返回單元格的地址，如：
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。