VBA案例精选 获取指定单元格区域的起始和终止行号

2021年4月11日10:49:27VBA案例精选 获取指定单元格区域的起始和终止行号已关闭评论 340 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

代码运行结果:

VBA案例精选 获取指定单元格区域的起始和终止行号

代码截图:

VBA案例精选 获取指定单元格区域的起始和终止行号

代码文本:

Public Sub 技巧()
    Dim RowBegin As Integer, RowEnd As Integer
    Dim myRange As Range
    Set myRange = ActiveSheet.UsedRange   '指定任意的单元格区域
    RowBegin = myRange.Cells(1).Row       '获取该单元格区域的起始行号
    RowEnd = myRange.Cells(myRange.Count).Row       '获取该单元格区域的终止行号
    MsgBox "指定单元格区域的起始行号为 " & RowBegin _
        & vbCrLf & "指定单元格区域的终止行号为 " & RowEnd     'RowBegin及RowEnd在此处的含义是获取指定单元格区域的起始和终止行号
Set myRange = Nothing
End Sub

VBA编辑神器放送

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

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