Windows 10 Pro_x64 + Excel2013_x86 VBA の Range.End プロパティ

Windows 10 Pro_x64 + Excel2013_x86 VBA の Range.End プロパティ
　
コードで使用頻度は高いけど、全く覚えないのでメモっておく
　
参考にしたのは以下のサイト
Range.End プロパティ (Excel)
XlDirection 列挙 (Excel)
　
・Range.End(xlDown).Row：下へ
・Range.End(xlUp).Row：上へ
・Range.End(xlToLeft).Row：左へ
・Range.End(xlToRight).Row：右へ
　
Worksheets("Sheet1").Range("B3:P8")にデータが存在する場合

With ThisWorkbook.Worksheets("Sheet1")

    Debug.Print .Range("B1").End(xlDown).Row

    Debug.Print .Range("B" & Rows.count).End(xlUp).Row

    Debug.Print .Range("A3").End(xlToLeft).Column

    Debug.Print .Range("B3").End(xlToRight).Column

End With

 3 

 8 

 1 

 16