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.