代码运行结果：

代码截图：

代码文本：

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密码破解 代码混淆保护加密 代码库输入提示

本提示数据库可完全自定义!

本人微信公众号 EXCEL880 每天分享Excel实战技术私信回复 教程 可领取7天免费教程