揭秘Range对象的End属性，掌握Excel VBA的又一法宝

2023-10-29 18:26:44

正文

Range对象的End属性是一个非常有用的工具，可以帮助您快速定位工作表中某个区域的最后一个单元格。End属性有几个不同的设置，每个设置都会返回不同的结果。

以下是在工作表中已使用区域中，E6和D5单元格中End属性各个设置返回的单元格：

Sub End属性()
    Range("E6").End(xlUp) '返回E1
    Range("E6").End(xlDown) '返回E11
    Range("E6").End(xlToLeft) '返回D6
    Range("E6").End(xlToRight) '返回F6
    Range("D5").End(xlUp) '返回A5
    Range("D5").End(xlDown) '返回D11
    Range("D5").End(xlToLeft) '返回C5
    Range("D5").End(xlToRight) '返回E5
End Sub

如上所示，End属性可以帮助您快速定位工作表中某个区域的最后一个单元格。这对于您在Excel VBA中进行数据处理和分析非常有用。

实际示例

下面是一个实际示例，展示如何使用End属性来定位工作表中某个区域的最后一个单元格。

Sub 查找最后一个单元格()
    Dim rng As Range

    '设置工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    '设置区域
    Set rng = ws.Range("A1:D10")

    '查找最后一个单元格
    Set lastCell = rng.End(xlDown)

    '获取最后一个单元格的地址
    strAddress = lastCell.Address

    '显示最后一个单元格的地址
    MsgBox "最后一个单元格的地址是" & strAddress
End Sub