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