sub test1() '确定的区域,测试单元格1 Debug.Print Range('b5').End(xlUp).Row Debug.Print Range('b5').End(xlDown).Row Debug.Print Range('b5').End(xlToLeft).Column Debug.Print Range('b5').End(xlToRight).Column Debug.Print '确定的区域,测试单元格1 Debug.Print Range('b3').End(xlUp).Row Debug.Print Range('b3').End(xlDown).Row Debug.Print Range('b3').End(xlToLeft).Column Debug.Print Range('b3').End(xlToRight).Column Debug.Print end sub
Sub test_end1() Debug.Print Range('b:b').Rows.Count 'Debug.Print Range('b:b').maxrowCount Debug.Print Range('3:3').Columns.Count Debug.Print '确定的区域,这样查也是有意义的 '返回一个 Range 对象,它表示包含源范围的区域末尾的单元格 Debug.Print Range('b1:b5').End(xlUp).Row Debug.Print Range('b1:b5').End(xlDown).Row Debug.Print Range('b1:b5').End(xlToLeft).Column Debug.Print Range('b1:b5').End(xlToRight).Column Debug.Print '空区域 Debug.Print Range('d1:d5').End(xlUp).Row Debug.Print Range('d1:d5').End(xlDown).Row Debug.Print Range('d1:d5').End(xlToLeft).Column Debug.Print Range('d1:d5').End(xlToRight).Column Debug.Print '查不确定的区域 Debug.Print Range('b:b').End(xlUp).Row Debug.Print Range('b:b').End(xlDown).Row Debug.Print Range('b:b').End(xlToLeft).Column Debug.Print Range('b:b').End(xlToRight).Column Debug.Print '查不确定的区域,用处比较大 '比如查B列的上下限界。因为中间可能有空格隔断,所以得这么查 Debug.Print '查B列的上下限界,从列的开始往下查,从列的末尾往上查' Debug.Print Range('b1').End(xlDown).Row Debug.Print Range('b65536').End(xlUp).Row '比如查3行的左右限界。因为中间可能有空格隔断,所以得这么查 Debug.Print '查第3行的左右限界,从行的开始往右查,从行的结尾(尽量大的数)往左边查' Debug.Print Range('a3').End(xlToRight).Column Debug.Print Cells(3, 9999).End(xlToLeft).Column End Sub
'查不确定的区域,用处比较大 '比如查B列的上下限界。因为中间可能有空格隔断,所以得这么查 Debug.Print '查B列的上下限界,从列的开始往下查,从列的末尾往上查' Debug.Print Range('b1').End(xlDown).Row Debug.Print Range('b65536').End(xlUp).Row '比如查3行的左右限界。因为中间可能有空格隔断,所以得这么查 Debug.Print '查第3行的左右限界,从行的开始往右查,从行的结尾(尽量大的数)往左边查' Debug.Print Range('a3').End(xlToRight).Column Debug.Print Cells(3, 9999).End(xlToLeft).Column
联系客服