xlup xldown xltoleft xltoright

nnsea

方向	写法	值
向上	xlup	-4162
向下	xldown	-4121
向左	xltoleft	-4159
向右	xltoright	-4161

nnsea

'====================================================================================
'1.从录制一个宏开始。操作：(ctrl+向上键、ctrl+向下键、ctrl+向左键、ctrl+向右键)
'2.看代码

'Range.End 属性
'返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。
'等同于按键 (End+向上键、End+向下键、End+向左键、End+向右键)

'语法
'表达式.End (Direction)
'表达式   一个代表 Range 对象的变量。
'方向    写法          值
'向上   xlUp        - 4162
'向下   xlDown      - 4121
'向左   xlToLeft    - 4159
'向右   xlToRight   - 4161
'========================================================================================

Sub test()
    i = Cells(Rows.Count, 3).End(xlUp).Row
    j = Cells(Rows.Count, 3).End(xlUp).Address
    Range("a1", j).Select
    Range("a1", Cells(i, 3)).Select
End Sub