如何获取范围的起始和结束行号?

如何获取范围的起始和结束行号?

给定用户选择的范围,确定起始行号和结束行号的最简单方法是什么?

Range.Address 返回一个包含任意数量可能格式的字符串。一定有更简单的方法。

期望:

Dim oRange As Range
Dim startRow As Integer
Dim endRow As Integer

oRange = Range("A1:X50")
startRow = oRange.Address.StartRow
endRow = oRange.Address.EndRow

当然,这些属性不存在。我想做同样的事情来返回列字母。

答案1

怎么样:

Dim oRange As Range
Dim startRow As Integer
Dim endRow As Integer

With Selection
    startRow = .Rows(1).Row
    endRow = .Rows(Selection.Rows.Count).Row
End With

相关内容