VBA найти последнее вхождение строки

Question

Я пытался решить эту проблему в течение нескольких дней, и я просто не могу опустить голову вокруг нее. Я искал несколько веб-сайтов (даже здесь несколько раз), я видел, что многие люди задавали этот вопрос, но решения для меня не работают.

Я хочу найти последнее вхождение строки в диапазоне и сохранить адрес в переменной и отобразить сообщение, сообщающее мне, где оно находится.

До сих пор я это

Private Sub CmdBtnClockIt_Click() 
    Dim job As String 
    Dim searchTerm as Range 

    job = CmbBoxJob.Value 
    searchTerm = Range("A1:A999").find(what:=job, searchorder:=xlByColumns, searchdirection:=xlPrevious).Column 
    MsgBox "last cell is " & searchTerm.Address 
End Sub 

Все, что я, кажется, получают либо «недействительны классификатор» или «предметная переменная или переменная блока не установлена»

Любая помощь приветствуется

Answer 1

Первая проблема заключается в том, что searchTerm определяется как объект Range. Вы должны установить назначения объектов, используя Set keyword. Таким образом, задание становится Set searchTerm = Range("A1:A999")...

Во-вторых, вы ударите сообщения об ошибках, если searchTerm не найден, потому что searchTerm будет присвоено значение Nothing. Мы можем избежать этой проблемы, используя простое условие для проверки наличия job.

Поэтому ваш обновленный Sub может выглядеть примерно так:

Private Sub CmdBtnClockIt_Click() 
    Dim job As String 
    Dim searchTerm As Range 

    job = CmbBoxJob.Value 
    Set searchTerm = Range("A1:A999").Find(what:=job, searchorder:=xlByColumns, searchdirection:=xlPrevious) 
    If searchTerm Is Nothing Then 
    MsgBox "Text was not found" 
    Else 
    MsgBox "Last cell is " & searchTerm.Address 
    End If 
End Sub 

Answer 2

Как насчет:

Sub dural() 
    Dim job As String 
    Dim searchTerm As Range 
    job = "Happiness" 
    Set searchTerm = Range("A1:A999").Find(what:=job, after:=Range("A1"), searchorder:=xlByColumns, searchdirection:=xlPrevious) 
    MsgBox "last cell is " & searchTerm.Address 
End Sub 

Уведомление Я использовал .