1.取得指定的最后非空行号或非空列号
使用Range对象的End属性
指定行的最后非空行号:Range("A65536").End(xlUp).Row
指定行的最后非空列号:Range("IV1").End(xlToLeft).Column
扩展: 使用Range对象的End属性,在取得单元格对象后便能获得该单元格的相关属性,如单元格地址、行列号、数值等,如下面的代码所示。使用Range对象的End属性,在取得单元格对象后便能获得该单元格的相关属性,如单元格地址、行列号、数值等,如下面的代码所示。
- <font color="#000000">Sub LastRow()
- Dim rng As Range
- Set rng = Sheet1.Range("A65536").End(xlUp)
- MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) _
- & ",行号" & rng.Row & ",数值" & rng.Value
- Set rng = Nothing
- End Sub </font>
复制代码 End属性返回一个Range对象,该对象代 表包含源区域的区域尾端的单元格。等同于按键<End+向上键>、<End+向下键>、<End+向左键> 或<End+向右键>,语法如下:
- <font color="#000000">expression_r.End(Direction)</font>
复制代码 参数expression_r是必需的,一个有效的对象。
参数Direction是可选的,所要移动的方向,可以为表格 3?1所示的XlDirection 常量之一。 Range对 象的End属性返回的是一个Range对象,因此可以直接使用该对象的属 性和方法。
2.取得sheet最后非空行号或非空列号
sheet最后非空行号:Activesheet.UsedRange.rows.count
或 ActiveCell.SpecialCells(xlLastCell).Row
sheet最后非空列号:Activesheet.UsedRange.columns.count
或 ActiveCell.SpecialCells(xlLastCell).Column
|