获得指定行中的最后一个非空单元格.docVIP

获得指定行、列中的最后一个非空单元格 使用VBA对工作表进行操作时，经常需要定位到指定行或列中最后一个非空单元格，此时可以使用Range对象的End属性，在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示。 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 代码解析： LastRow过程使用消息框显示工作表中A列最后非空单元格的地址、行号和数值。 End属性返回一个Range对象，该对象代表包含源区域的区域尾端的单元格。等同于按键End+向上键、End+向下键、End+向左键或End+向右键，语法如下： expression.End(Direction) 参数expression是必需的，一个有效的对象。 参数Direction是可选的，所要移动的方向，可以为 REF _Ref214959043 \h 表格 1所示的XlDirection 常量之一。 常量 值 描述 xlDown -4121 向下 xlToRight -4161 向右 xlToLeft -4159 向左 xlUp -4162 向上 表格 SEQ 表格 \* ARABIC \s 3 1 XlDirection 常量 Range对象的End属性返回的是一个Range对象，因此可以直接使用该对象的属性和方法。 通过修改相应的参数，能够获得指定行中最后一个非空单元格，如下面的代码所示。 Sub LastColumn() Dim rng As Range Set rng = Sheet1.Range(IV1).End(xlToLeft) MsgBox 第一行中最后一个非空单元格是 rng.Address(0, 0) _ ,列号 rng.Column ,数值 rng.Value Set rng = Nothing End Sub 代码解析： LastColumn过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值，如 REF _Ref218693877 \h 图 所示。 图 获得第一行最后一个非空单元格