Windows 10 Pro x64 + Excel2016 x86 VBA の Range.End プロパティ

目的

コードで使用頻度は高いけど、全く覚えないのでメモっておく

機能

・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 

参考にしたのは以下のサイト
Range.End プロパティ (Excel)
XlDirection 列挙 (Excel)