使用“查找函数”返回单元格地址

Question

我使用find函数搜索特定标题的许多不同范围。

如果此标题存在，我想从下面的单元格中提取信息。 find函数是否有可能返回找到的单元格的地址，然后我可以简单地搜索Cell（x + 1，y）从下面提取数据？

我目前的代码是;

For i = 1 To LastRow
    X = VirtMat(i, 1)
    Set TestRange = Range(X)

        Set BILL = TestRange.Find("Loss Number:")
                If Not BILL Is Nothing Then 'RETURN CELL ADRESS AND EXTRACT INFO


                Else: rpd(cr, 1) = "NOINFO"


                End If

Next

Answer 1

As per MSDN：

查找范围中的特定信息，并返回Range对象，该对象表示找到该信息的第一个单元格。

所以答案你的问题是肯定的。您可以使用Range Obejct的Address或Row和Column属性。

Debug.Print BILL.Address '~~> default is A1 notation
Debug.Print BILL.Row '~~> returns row number
Debug.Print BILL.Column '~~> column number

实际上，您可以直接在其附近或下方的单元格中获取值。

示例：要获得低于找到的单元格的值，请使用“偏移方法”。

Debug.Print BILL.Offset(1, 0).Value