VBA案例精选 获取单元格区域中最后一个单元格地址

2021年4月11日10:48:34VBA案例精选 获取单元格区域中最后一个单元格地址已关闭评论 152 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

代码运行结果:

VBA案例精选 获取单元格区域中最后一个单元格地址

代码截图:

VBA案例精选 获取单元格区域中最后一个单元格地址

代码文本:

Public Sub 技巧()
    Dim myRange1 As Range, myRange2 As Range
    Set myRange1 = ActiveSheet.UsedRange    '指定任意的单元格区域
    With myRange1
        Set myRange2 = .Cells(.Cells.Count)
    End With
    MsgBox "该单元格区域右下角单元格的地址为:" & myRange2.Address
    Set myRange1 = Nothing
    Set myRange2 = Nothing

End Sub

注释:

此处Set myRange2 = .Cells(.Cells.Count)意译为Set myRange2 =myRange1.Cells(myRange1.Cells.Count),指查找数据范围中的最后一个单元格,此处最后一个单元格内容为87。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录