Макрос в Эксель (приведение 2 листов к одинаковому списку) - VB

Узнай цену своей работы

Формулировка задачи:

Товарищи знатоки: возник вопрос по созданию макроса в Эксель (VB(А) следующего характера:
задача: требуется сравнить и преобразовать посредством макроса 2 листа 1-й книги.
В каждом из 2 листов в 3 столцах содержится сходная информация (наименование улицы, № дома, корпуса). Однако абсолютно перечни не совпадают. Дабы была возможность наложить списки друг на друга (построчно объединить данные из обоих листов простым копи-пастом) требуется привести списки в Лист1 и Лист2 к единообразному виду - т.е. провести построчное сравнение, в момент обнаружения несовпадения - например в листе 1 есть строка по дому Л, а в листе 2 такой информации нет - требуется в листе 2 после последнего совпадения добавить строчку - и занести в соответствующие 3 ячейки листа 2 информацию из 3-х ячеек листа 1. В обратной ситуации - в листе 2 есть информация по дому К, а в листе 1 такой информации нет - требуется соответственно добавить после последнего совпадения строку, проведя аналогичные действия. Требуется ИМЕННО ДОБАВЛЯТЬ строки в представленных листах, а не переносить их в какой-либо 3-й лист. В случаях, когда в каком-либо листе один и тот же дом упомянут дважды (полное сопадение адреса), а в другом такого повторения нет, необходимо ТОЖЕ добавить такую строку в другой лист (а не удалять и прочее), т.к. прочая инфа по каждой строке абсолютно уникальна.
Для иллюстрации поставленной задачи - прикрепил файл-образец с 2 листами, которые оба необходимо привести к единому перечню. Там же для примера приведены 2 листа - как в теории должен выглядеть результат работы макроса.
Сам не являясь программистом, в вопросе совершенно не разбираюсь . Прошу, кто знает - помогите написать...
ПС: Вручную чувствую меня это запарит... там у меня в оригинале 17000 строк... :(( и операцию эту надо провести пару раз...

Решение задачи: «Макрос в Эксель (приведение 2 листов к одинаковому списку)»

textual
Листинг программы
<font color="darkblue"><b>12</b></font>	Арзамасская	<font color="darkblue"><b>2</b></font>	<font color="darkblue"><b>2</b></font>	<font color="darkblue"><b>485</b></font>	<font color="darkblue"><b>425</b></font>	<font color="darkblue"><b>847</b></font>
<font color="darkblue"><b>13</b></font>	Арзамасская	<font color="darkblue"><b>2</b></font>	<font color="darkblue"><b>2</b></font>	<font color="darkblue"><b>425</b></font>	<font color="darkblue"><b>471</b></font>	<font color="darkblue"><b>423</b></font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы