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

《获得指定行列中的最后一个非空单元格》由会员分享，可在线阅读，更多相关《获得指定行列中的最后一个非空单元格（2页珍藏版）》请在金锄头文库上搜索。

1、获得指定行、列中的最后一个非空单元格获得指定行、列中的最后一个非空单元格使用 VBA 对工作表进行操作时，经常需要定位到指定行或列中最后一个非空单元格，此时可以使用 Range 对象的 End 属性，在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示。Sub LastRow()Dim rng As RangeSet rng = Sheet1.Range(“A65536“).End(xlUp)MsgBox “A 列中最后一个非空单元格是“ & rng.Address(0, 0) _& “,行号“ & rng.Row & “,数值“ & rng.Value

2、Set rng = NothingEnd Sub代码解析：LastRow 过程使用消息框显示工作表中 A 列最后非空单元格的地址、行号和数值。End 属性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键、或，语法如下：expression.End(Direction)参数 expression 是必需的，一个有效的对象。参数 Direction 是可选的，所要移动的方向，可以为表格 1 所示的 XlDirection 常量之一。常量常量值值描述描述xlDown-4121向下xlToRight-4161向右xlToLeft-4159向左xlUp-4162向上表格 1

3、XlDirection 常量Range 对象的 End 属性返回的是一个 Range 对象，因此可以直接使用该对象的属性和方法。通过修改相应的参数，能够获得指定行中最后一个非空单元格，如下面的代码所示。Sub LastColumn()Dim rng As RangeSet rng = Sheet1.Range(“IV1“).End(xlToLeft)MsgBox “第一行中最后一个非空单元格是“ & rng.Address(0, 0) _& “,列号“ & rng.Column & “,数值“ & rng.ValueSet rng = NothingEnd Sub代码解析：LastColumn 过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值，如图所示。图获得第一行最后一个非空单元格