문자열을 찾을 때까지 반복

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