Код VBA, чтобы найти слово в столбце A, затем выберите значения как в столбцах A, так и в столбце B

Question

Прошло некоторое время с тех пор, как я использовал VBA.

Я ищу, чтобы найти слово «Q4», отсюда выберите ячейку в столбце B. Выберите оба столбца вниз, до тех пор, пока слово «Примечания»: (не включайте примечания :) это моя точка остановки.

Надеюсь, это имеет смысл?

большое спасибо

Answer 1

Пробуйте этот код и редактируйте согласно вашему требованию.

Sub UpdateData() 
Dim LastRow, i As Long 
Dim startPoint, stopPoint As Integer 
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
For i = 2 To LastRow 
    If Range("A" & i).value = "Q4" Then 
     startPoint = i 
    End If 
If Range("A" & i).value = "Notes:" Then 
     stopPoint = i 
    End If 
Next i 
Range("A" & startPoint & ":B" & stopPoint).Select 

End Sub

Answer 2

Спасибо за указание мне в правильном направлении. В итоге я написал этот код.

Start = Columns(1).Find(What:="Q$", LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Row 
Stop = Columns(1).Find(What:="Notes:", LookAt:=xlPart, SearchDirection:=xlPrevious, MatchCase:=False).Row - 2 
Range("A" & Start & ":B" & Stop).Select