如何获取特定范围内活动单元格的行索引

Question

我想获取活动单元格的行索引
相对于提供的范围...

阐明我希望该行的索引在范围之内

类似

  

RangeRowIndexOfActiveCell（range1）

应返回相对于指定范围的活动单元格的行索引

（-1如果ActiveCell不在范围内... 但这是多余的

？有什么想法

Answer 1

这将打印范围内活动单元格的索引，只要范围重叠即可。

Function RangeRowIndexOfActiveCell(ByVal rng As Range) As Long

    If Not Intersect(ActiveCell, rng) Is Nothing Then
        RangeRowIndexOfActiveCell = ActiveCell.row - rng.row + 1
    Else
        RangeRowIndexOfActiveCell = -1
    End If

End Function