Excel工作表中定位最后单元格（END属性）

VBA实现自动化，经常需要定位工作表中的最后单元格，以便于获取已有数据，或者在该单元格之后写入新数据。使用RANGE对象的END属性可以定位最后单元格。假设工作表中的数据如下所示。单元格区域[A5:A7]看不出是否为空，因此在C列对其内容进行了说明。

运行示例代码。

Sub Demo1()
    Dim rngLast As Range
    Set rngLast = Cells(1, 1).End(xlDown)
    Debug.Print "最后单元格(由上而下)："; rngLast.Address
    Set rngLast = Cells(Rows.Count, 1).End(xlUp)
    Debug.Print "最后单元格(由下而上)："; rngLast.Address
End Sub

无论是由上而下定位，还是由下而上定位，结果都是一致的。

最后单元格(由上而下)：$A$7最后单元格(由下而上)：$A$7

但是这两种方法的结果不一定永远都是一致的，对于如下数据。

再次运行Demo1过程，结果如下。使用.End(xlDown)进行定位时，查找的结果为第一个空行之上的单元格，即A3。

最后单元格(由上而下)：$A$3

最后单元格(由下而上)：$A$8

由于Excel 2007版本开始，工作表的行数比2003中多，为了使代码具有通用性，示例代码中使用Rows.Count获取工作表的行数。

【小结】

• 使用RANGE对象的END方法定位最后单元格时，通常使用由下而上定位的方式，避免可能存在的空行。
• 对于看似空白的单元格（零长度公式、空格、前缀字符）都视作有内容的单元格。