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

ExcelVBA 实例教程 003：获得指定行、列中的最后一个非空单元格 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行认真校对，但是难免会有疏漏的地方，但是任然希望（ExcelVBA 实例教程003：获得指定行、列中的最后一个非空单元格）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，假如觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为 ExcelVBA 实例教程 003：获得指定行、列中的最后一个非空单元格的全部内容。使用 VBA 对工作表进行操作时，常常需要定位到指定行或列中最后一个非空单元格，此时可以使用 Range 对象的 End 属性,在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示.1. Sub LastRow（）2. Dim rng As Range3. Set rng = Sheet1.Range（"A65536"）.End(xlUp)4. MsgBox ”A 列中最后一个非空单元格是" ＆ rng.Address（0， 0) _5. & ”，行号" ＆ rng.Row & ”，数值" & rng.Value6. Set rng = Nothing7. End Sub代码解析:LastRow 过程使用消息框显示工作表中 A 列最后非空单元格的地址、行号和数值。End 属性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键、〈End+向下键〉、，语法如下：1. expression.End(Direction)参数 expression 是必需的,一个有效的对象。参数 Direction 是可选的,所要移动的方向,可以为表格 3 1 所示的 XlDirection 常量之一。常量值描述xlDown—4121向下xlToRight—4161向右xlToLeft-4159向左xlUp—4162向上Range 对象的 End 属性返回的是一个 Range 对象，因此可以直接使用该对象的属性和方法。运行 LastRow 过程结果如图 1 所示。 图 1 获得 A 列最后一个非空单元格通过修改相应的参数，能够获得指定行中最后一个非空单元格，如下面的代码所示。1. Sub LastColumn()2. Dim rng As Range3. Set rng = Sheet1。Range("IV1"）。End（xlToLeft)4. MsgBox "第一行中最后一个非空单元格是" & rng.Address(0， 0） _5. ＆ ”，列号” & rng.Column & "，数值" ＆ rng。Value6. Set rng = Nothing7. End Sub代码解析：LastColumn 过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值，如图 3 2所示。 图 2 获得第一行最后一个非空单元格