微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
代码运行结果：
代码截图：
代码文本：
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 = NothingEnd 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
