Excel VBA实例教程 #003：获得指定行、列中的最后一个非空单元格.docx

----------专业最好文档，专业为你服务，急你所急，供你所需------------- 文档下载最佳的地方 ----------专业最好文档，专业为你服务，急你所急，供你所需------------- 文档下载最佳的地方 使用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是可选的，所要移动的方向，可以为表格 3 1所示的XlDirection 常量之一。 常量值描述xlDown-4121向下xlToRight-4161向右xlToLeft-4159向左xlUp-4162向上Range对象的End属性返回的是一个Range对象，因此可以直接使用该对象的属性和方法。运行LastRow过程结果如图 1所示。图 1 获得A列最后一个非空单元格通过修改相应的参数，能够获得指定行中最后一个非空单元格，如下面的代码所示。 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过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值，如图 3 2所示。图 2 获得第一行最后一个非空单元格