выбрать из строк последние, идущие после ключевой строки

[SarahConner]

Всем привет и с наступающим НГ!
Появилась задачка, с которой не могу справиться, помогите, плз.

Из сторонней программы, обрабатывая текстовые файлы,
я получаю необходимые строки, с которыми мне нужно поработать.
Эти строки я вставляю в столбец Excel Ctrl+v, но все строки мне не нужны, а нужны только те, которые идут после последней строки с определенным ключем. Вопрос: как избавиться от неинтересующих строк, а оставить только те, что идут после последней ключевой строки включительно?

Пример таких строк:
таня пляшет танго
на гитаре играет вика
люба вяжет
вика пляшет танго
есть много веселых девушек
шьет таня
люба все еще вяжет
так много профессий
тяня хорошо готовит
теперь вика отдыхает
устала бедняжка
был тяжелый день


мне для работы нужны эти строки (последние в списке, начиная со строки, где есть ключ)
(здесь в качестве ключа слово "вика"):

теперь вика отдыхает
устала бедняжка
был тяжелый день


Спасибо отклткнувшимся.

[shanemac51]

вопросы по существу

-какая максимальная длина строки
-полный размер текстового файла

[SarahConner]

а) длина менее 200 символов точно, 90% строк менее 50~70 символов.
б) размер тхт файла будет расти постепенно, т.е. количество строк будет увеличиваться, но для работы нужна последняя порция. максимальное количество строк в буфере будет около 5000.

[EducatedFool]

обязательно использовать Excel?
можно с текстовыми файлами и без него работать

Вот пример: http://excelvba.ru/XL_Files/Sample__...__20-34-05.zip
(нажмите зеленую кнопку)

Sub test()
    Ключ = "вика"
    Dim Диапазон As Range, ПоследнееВхождение As Range
    Set ПоследнееВхождение = ActiveSheet.UsedRange.Find(Ключ, , xlValues, xlPart, , xlPrevious)
    Set Диапазон = Range(ПоследнееВхождение, Range("A" & Rows.Count).End(xlUp))
    Диапазон.Copy Диапазон.Offset(, 2) ' копируем результат вправо на 2 столбца
End Sub

[SarahConner]

Умница, спасибо,
привет всем уральским!!!

А можно последнюю рабочию часть скопировать ну скажем в начало следующего столбца, начиная с B1,
просто я этого пока не умею, а из-за того, что кол-во общих строк будет постоянно увеличиваться, то и скопированная на два столбца рабочая область будет также съезжать вниз.
Если подскажите, то будет вообще классно.
В любом случае огромное спасибо.

[EducatedFool]

замените это:
Диапазон.Copy Диапазон.Offset(, 2)

на это:
Диапазон.Copy [b1]

[SarahConner]

а я всё перепробывала, а про квадратные скобки не подумала
классно, спасибо!!

[EducatedFool]

а я всё перепробывала, а про квадратные скобки не подумала

SarahConner, вы за пару лет успели сменить свой пол?

Помнится, в 2009-м вы были мальчиком))

Сообщение от SarahConner

Привет ВСЕ.
Решил освежить знания в программировании, нужно по долгу службы, но не хватает опыта. Сроки, мать их, всегда всё портят.
...
Буду рад любой помощи, если чего сумбурно написал, переспросите- поясню. Спасибо!

Сообщение от SarahConner

Вот что я наваял, правда с помощью друга, но и задача была расширена.

А сейчас, судя по ответам, - уже девочка. Чудеса, да и только)

[SarahConner]

как говорил наш преподователь универа, (где мы с мужем и познакомились), по дисциплине "информационные системы", г-н Лабунец:
"чудес на свете не бывает", "взялся за грудь, так скажи что-нибудь", ну и прочие вещи с упором на ненорматив.
У нас с мужем общая почта@mail.ru, акки на разных форумах, недвижимость и движимость, собака и ... ребенок.

Прикольно, что вы занимаетесь разоблачением.
Может это чисто профессианальное, в любом случае, спасибо за помощь и с наступающим