Открываем ссылку: https://www.reformagkh.ru/myhouse?geo=reset
Выбираем регион, кроме уже сделанных.
Открываем файл с макросом в Excel (увы, OpenOffice подходит не всегда).
Вставляем содержимое буфера в лист fixreg в ячейку А.
Фиксим ошибку вставки из ячейки А в ячейку B, затем не меняя ячейку нажимаем Ctrl и кнопку +, выбираем «Ячейки со сдвигом ВНИЗ»
Выделяем столбец B целиком, нажимаем кнопку F5 на клавиатуре, выбираем «Специальное», там ставим «Пустые», оно выделит только пустые ячейки, нажимаем Ctrl и кнопку -, говорим «Удалить всю строку»
Выделяем количественные показатели, нажимаем Ctrl и +, добавляем ячейки со сдвигом ВПРАВО.
Копируем формулу из ячейки выше в столбец С. Не забываем сохраниться.
Добавляем новый лист, называем его именем региона.
На сайте Реформы нажимаем последовательно плюсики у каждого региона, снизу вверх, справа налево. Выделяем в том же направлении (так удобнее), копируем, вставляем в новый лист.
Опять фиксим ошибку первой ячейки, опять выделяем столбец B целиком, нажимаем кнопку F5 на клавиатуре, выбираем «Специальное», там ставим «Пустые», оно выделит только пустые ячейки, нажимаем Ctrl и кнопку -, говорим «Удалить всю строку»
Для удобства отменяем перенос текста по строкам, растягиваем ширину.
Вложенные в муниципальные районы поселения вырезаем вместе с цифрами и вставляем в столбец D. Проводим эту процедуру со всеми районами.
Добавляем столбец между C и D, копируем в ячейку D2 формулу =Get_Hyperlink_Address(B2), результат копируем для каждого значения в столбце B.
Ту же формулу, но уже скопировав из D2, вставляем в F3 (или дальше, по количеству городов окружного значения) и растягиваем до конца.
Выделяем столбец D, копируем в буфер, нажимаем в ячейку D1 правой кнопкой, вставляем только значения. Аналогичная процедура со столбцом G. Сохраняемся.
По окончанию копируем название района в каждую строку вложений (чтобы не потерять древовидную привязку). Также проводим процедуру со всеми районами.
Выделяем весь столбец С, нажимаем кнопку F5 на клавиатуре, выбираем «Специальное», там ставим «Пустые», оно выделит только пустые ячейки, нажимаем Ctrl и кнопку -, говорим «Удалить всю строку».
Вставляем три столбца перед B нажатием Ctrl и кнопки +. В D1 пишем единицу, в D2 двойку, растягиваем на все строки (нам нужна будет сквозная нумерация строк для сортировок).
Из листа Regions в первые три столбца копируем строку соответствующего региона. Она должна быть продублирована в каждой строке.
Вставляем новую строку сверху (контрол плюс), добавляем столбец между G и H, из листа Калмыкии берём заголовки, вставляем в верхнюю строку.
Сохраняем, включаем фильтр, по столбцу I выбираем только значения 0. Выделяем все, копируем, вставляем в лист Trash, удаляем эти строки.
Если всё удачно, и нулей не осталось — сохраняемся. Выделяем столбец G, копируем в буфер, нажимаем в ячейку G1 правой кнопкой, вставляем только значения. Аналогичная процедура со столбцом J. Сохраняемся.
Переименовываем лист в cc_russia, левой кнопкой по A1 или любому другому заголовку, кнопка «Скопировать формат», по столбцам B, F и I, чтобы убрать пробелы из чисел.
Аналогичная процедура по столбцам A, E и H, увы, бесполезна. Её придётся делать в OpenOffice.
В оставшейся базе с макросом возвращаемся в вкладку fixreg, растягиваем формулу из столбца А, добавив строку перед регионом для отбивки. Сохраняем, закрываем.
Открываем созданный файл в OpenOffice, чтобы добить гиперссылки. Выделяем столбец, в котором есть синие значения на сером фоне. Правой кнопкой — Форматирование по умолчанию.
Файлы (созданный ODS и текущее своё состояние russia.xlsm) присылаем в почту или даём ссылку на Яндекс.Диск.
Комментарии: