VBA Excel: как сделать выбор из неподвижной ячейки до текста, который будет найден?

Мне нужно сделать выделение из ячейки "A8" в ячейку, содержащую слово "endofsample". Это слово может быть где угодно на рабочем листе.

1 ответ

Это работает для меня.

Sub test()
 Set INFO = Cells.Find(What:="endofsample", After:=ActiveCell, LookIn:=xlFormulas, _
 LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
 MatchCase:=False)
 If INFO Is Nothing Then
 Else
 End If

 INFO.Select
 Range("A8", ActiveCell).Select
End Sub

licensed under cc by-sa 3.0 with attribution.