Цикл, пока строка не найдена

Question

Мне нужна помощь с моим кодом ниже. Я пытаюсь проверить каждую строку, идущую вверх от текущей ячейки, до тех пор, пока не будет найдена текстовая строка («Дата расчета :). Затем я хочу захватить содержимое клетки.

sub test

   mystring = ""
   y = -1

   Do Until mystring = ("SETTLEMENT DATE:")

       mystring = ActiveCell.Value

   Loop

End sub   

Answer 1

Рассматривать:

Sub Eric()
    Dim i As Long, t As String
    For i = ActiveCell.Row To 1 Step -1
        If InStr(1, Cells(i, ActiveCell.Column), "SETTLEMENT DATE:") > 0 Then
            MsgBox Cells(i, ActiveCell.Column)
            Exit Sub
        End If
    Next i
End Sub