使用FIND函数返回VBA中的最后一个值

Question

我正在尝试编写一个搜索列的函数并返回包含最后一个匹配项的单元格。

例如，如果我将单元格A5作为活动单元格

A1 -> Text
A2 -> wefwqef
A3 -> Text
A4 -> eorbebr

我想在数组中搜索“文本”，并返回单元格A3，因为这是最后一个匹配项。

但是，如果我将单元格A7作为活动单元格

A1 -> Text
A2 -> wefwqef
A3 -> Text
A4 -> eorbebr
A5 -> fhyeher
A6 -> Text

然后它将返回A6作为我的结果。

我一直在尝试使用FIND函数以使其正常工作，但我一直遇到错误（基于应用程序或基于对象的错误）。

我的计划是将此代码作为较大循环的一部分执行，并且在每种情况下，它都返回最接近活动单元格的值。 （我希望这是有道理的）

这是我到目前为止的代码：

    Range("A19:I19").Select
    'ActiveCell.FormulaR1C1 = Sheets("Sheet1").Cells(9, 5).Value & ":5 CTs,
     O/C " & _
    'Sheets("Sheet1").Cells(9, 8).Value * 100 & "% @ " & _
    'Sheets("Sheet1").Cells(9, 9).Value & " TM"


    Dim Rng As Range

      With Sheets("Sheet1").Range(Cells(9, 3), Cells(Line, 3))

        Set Rng = .Find(What:="Primary", _
          After:=.Sheets("Sheet1").Cells(Line, 3), _
          LookIn:=xlValues, _
          LookAt:=xlPart, _
          SearchOrder:=xlByRows, _
          SearchDirection:=xlPrevious, _
          MatchCase:=False)

我也想像一下，当我可以使用它时，我将包含一个DO或IF语句，该语句将说，一旦将值存储在Rng中，则cellx = rng。

请帮忙！ 此代码有什么问题？？

Answer 1

您可以使用数组来保存值，然后反向遍历数组，直到找到所需的值。

Sub arrayFind()
    Dim currRow As Long
    Dim wb As Workbook, ws As Worksheet, rng as Range
    Dim arrValues() As Variant
    Dim i As Long

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")
    currRow = ActiveCell.Row
    arrValues = Range("A1:A" & currRow)

    For i = UBound(arrValues, 1) To LBound(arrValues, 1) Step -1
        If arrValues(i, 1) = "Text" Then
            set rng = Range(Cells(i, 1).Address)
            Exit For
        End If
    Next i
End Sub

上面创建了一个从Activecell到A1的数组。 然后，它在A列（数组的维度1）中搜索从数组的最后一项到第一项所提供的条件（在这种情况下为Text ）。 这使它能够找到最接近Activecell的匹配条件。