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小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。