vba - 查找范围或单元格的相对行号和列号

Question

是否可以找到范围或范围内单元格的相对行号和列号。

示例:在下表中(表名称“Table2”)

如果我使用 Find 方法并像这样打印地址:

Dim loHeaderRow As Range
Set loHeaderRow = ThisWorkbook.Worksheets("Sheet3").ListObjects("Table2").HeaderRowRange
Dim rFindResult As Range
Set rFindResult = loHeaderRow.Find(What:="MajorVersion", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)

MsgBox rFindResult.Address

将打印

$C$3

但是范围rFindResult与父范围loHeaderRow的相对位置是:

Row number: 1
Column Number: 2

这能实现吗？尤其是通过使用标准对象属性/方法而不需要很长的代码集？

Answer 1

当您在标题行中查找文本时，您的行号将始终为 1。对于Column，可以使用Debug.Print (rFindResult.Column - loHeaderRow.Column) + 1

例如

Sub Sample()
    Dim loHeaderRow As Range, rFindResult As Range

    Set loHeaderRow = ThisWorkbook.Worksheets("Sheet3").ListObjects("Table2").HeaderRowRange

    Set rFindResult = loHeaderRow.Find(What:="MajorVersion", _
                                       LookIn:=xlValues, _
                                       LookAt:=xlWhole, _
                                       MatchCase:=False, _
                                       SearchFormat:=False)

    MsgBox "The Row is 1 and the Column is " & _
    (rFindResult.Column - loHeaderRow.Column) + 1
End Sub

这将为您提供 1 和 2 作为行号和列号。