я сделал запись макроса: найти слово "федеральный округ"
Код:
Cells.Find(What:="федеральный округ", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
идея такая:
1. найти слово "северо-западный федеральный округ", запомнить begin
2. найти слово "федеральный округ" (после него), запомнить end
3. скопировать диапазон begin-end в новую книгу.
Как именно это делается, можно узнать, проделав это вручную в режиме записи макроса, потом заменить вписанные автоматически константы переменными begin, end.
