Добрый день, уважаемые форумчане.
Помогите, пжл, решить вот такую задачу.
Есть выгрузка из базы в Excel, в которой ярлыки листов автоматически именуются в формате "название Фирмы название Города".
Название фирм может быть из одного слова, из двух и более. Название городов - из одного слова, из двух, также есть названия через дефис, а-ля Ростов-на-Дону, Санкт-Петербург.
Необходимо в ярлыках листов поменять местами Название города и фирм.
Пытался что-то придумать с помощью этого
http://www.excel-vba.ru/chto-umeet-excel/funkciya-peremeshheniya-slova-v-stroke/, однако это работает в поле самих листов, а не их ярлыков.
также нарыл вот такой макрос (отдельное спасибо его автору), но тоже не совсем то.
Sub Rename()
For Each x In ThisWorkbook.Worksheets
x.Name = Replace(x.Name, "что переименовываем", "на что переименовываем")
Next x
End Sub
Когда листов в книге не так много, не грех и руками поработать, но бывает, что листов более 100 и тогда, конечно, все грустно и времени уходит вагон.
Помогите, пожалуйста.
Со своей стороны продолжаю рыть инет, чтоб решить проблему.
Пример прикладываю - что есть и что нужно в идеале. Количество городов пока ограниченное, они все указаны списком в примере. Работаю в Excel 2003..
Заранее признателен за возможные отклики по теме.