Изменение первой таблицы на основе данных второй

[paaa]

Доброго дня!
Внезапно объявилась некоторая проблема, которую своими силами на данный момент решить не получается.
Есть некоторая таблица-носитель, 15-20 столбцов, большое количество строк. Первый столбец - ключ, по своей сути идентификатор/артикул, возможность повторов в строках исключена, все остальные могут быть и пустыми, и повторяться.
С этой таблицей взаимодействуют несколько людей, основные три группы:
1. Из одного человека, таблицу-носитель редактирует только он (на основе деятельности других групп + свои изменения);
2. Больше, чем один. Единовременно работают с копиями таблицы-носителя, добавляя в неё (в разные её части) новые строки. Каждый работает в своём диапазоне идентификаторов (первый столбец), пересечения между ними исключены;
3. Много больше, чем один. Единовременно работают с копиями таблицы-носителя, изменяя существующие данные (под редакцию могут попасть все строки кроме шапки, все столбцы кроме первого (идентификатора).

В конце определенного периода результат работы второй и третьей групп передается в первую, задача первой - найти и добавить все новые строки от второй группы, также найти и добавить/изменить данные в строках от третьей группы; то есть по сути собрать все данные воедино, исключив повторы.
Пока таблица была небольшой - справлялись кустарными методами: выделениями, формулами, отчетами, сносками. Сейчас она разрослась очень сильно и кустарные методы не то, что отнимают много времени, а просто не справляются с количеством данных.

То есть для решения этих задач нужно 2 макроса:
1. Сравнивающий таблицу-носитель и её копию, сопоставляющий их строки по первому столбцу (ключу) и добавляющий только новые строки из второй таблицы в первую.
Этот макрос я нашел, пошуршав форум, огромное спасибо создателю:

PHP код:

Sub Добавление()
    
    Dim x As New Collection, i As Long

    Application.ScreenUpdating = False: On Error Resume Next
    Sheets(1).Select: With Sheets(2)
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        x.Add Cells(i, "A"), CStr(Cells(i, "A"))
    Next
    For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
        On Error Resume Next
        x.Add .Cells(i, "A"), CStr(.Cells(i, "A"))
        If Err = 0 Then .Rows(i).Copy Rows(Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Next
    End With
    
End Sub 


На первый взгляд отлично работает и справляется с задачей.

2. Сравнивающий таблицу-носитель и её копию, сопоставляющий данные во всех ячейках двух таблиц по первому столбцу (ключу) и добавляющий/изменяющий данные из ячеек второй таблицы в ячейки первой (носителя).

С этим возникли проблемы, своей головы не хватает, поиск пока что тоже не помог.
Буду благодарен любым советам, может быть потом кому тоже пригодится.

[doober]

Идеи есть,проверить нет возможности в связи с наличием отсутствия файла.

[paaa]

Виноват, мой косяк.
Во вложении книга на 3 листа, 1 - носитель, 2 - пример работы второй группы, 3 - пример работы третьей группы.
Второй лист по сути и не нужен, вопрос решен уже, но в описании присутствует, пусть будет и в книге вместе с работающим макросом.
Изменения между 1 и 2 листами - во второй появились новые записи.
Изменения между 1 и 3 листами - в третьем некоторые ячейки некоторых строк изменились, эти изменения и нужно перенести в 1 таблицу. Учитывая что количество таких изменений от каждого человека исчисляется сотнями, то ручная (или полуавтоматическая) обработка несколько утомляет.

Нашел немного корявый вариант - добавлять весь 3 лист в 1 лист, а затем удалять повторы по ключу. Как временное решение вариант, но в любом случае буду дальше ковырять.

PHP код:

Sub Удаляем()
Dim Строка, i1
Строка = Range("A65536").End(xlUp).Row
R = "A1:T" & Строка
Range(R).Select
    Selection.Sort Key1:=Range("A2")
For i1 = 1 To Строка
    If Cells(i1, 1) <> Cells(i1 + 1, 1) Then GoTo дальше
    Cells(i1, 1) = ""
дальше:
Next i1
Range(R).Select
    Selection.Sort Key1:=Range("A2")
Строка = Range("A65536").End(xlUp).Row & ":" & i1
Rows(Строка).Select
Selection.Delete Shift:=xlUp
End Sub 


Как уже сказал - A столбец не может измениться ни в каком варианте, B-E - как исключение, F-T - постоянно. Временное решение реализует полную перезапись строчки по ключу при изменении одной ячейки, что на самом деле тоже подходит, но самым шиком будет перезапись не всей строки полностью, а только тех ячеек в ней, что изменились.

upd: хотя скрипт в этом посте немного косячный, он либо сносит шапку (если в первом столбце первой строки не цифры), либо отжирает одну из нужных строчек (если в первом столбце первой строки стоит числовое значение).

upd2: совершенно случайно в 2010 офисе наткнулся на функцию удаления дубликатов, забавно И ведь работает!

[doober]

Например так
Шик отменяется.

[staniiislav]

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

Например так
Шик отменяется.

doober, подскажите пожалуйста как вы сделали такую панель инструментов?
Как добавить подпункты в панель макросом я знаю, как сделать такую панель да еще и открывается без макросов... Как???

[Hugo121]

Аналогичная задача, код без файла (т.е. для любых экселей ):
http://forum.ixbt.com/topic.cgi?id=23:32362-47#1347
Да и думаю попроще - там алгоритм прозрачный, анализ изменений только чуть накручен - но тут похоже изменения анализировать не нужно, т.е. эту часть можно убрать.

[staniiislav]

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

Аналогичная задача, код без файла (т.е. для любых экселей ):
http://forum.ixbt.com/topic.cgi?id=23:32362-47#1347
Да и думаю попроще - там алгоритм прозрачный, анализ изменений только чуть накручен - но тут похоже изменения анализировать не нужно, т.е. эту часть можно убрать.

Hugo121, Спасибо большое... буду разбираться.

[staniiislav]

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

Аналогичная задача, код без файла (т.е. для любых экселей ):
http://forum.ixbt.com/topic.cgi?id=23:32362-47#1347
Да и думаю попроще - там алгоритм прозрачный, анализ изменений только чуть накручен - но тут похоже изменения анализировать не нужно, т.е. эту часть можно убрать.

Hugo121, наверное я не правильно выразился. Меня интересует не сама тема и реализация решения данной темы.
Интересует панель инструментов в примере doober (пример называется тест.xlms)

[Hugo121]

У меня на работе нет 2007, так что не могу оценить всю прелесть решения
Но хотел спросить с практической стороны - Сергей, эти кнопки/код на панель рисуете индивидуально, или используете уже заранее заготовленный шаблон?
Мне кажется - делать индивидуально хлопотно, я пока даже не брался... да мне самому никуда и не нужно.

[doober]

Первоисточник для меня ЗДЕСЬ
Плюс нухна программа RibbonXMLEditor
Поверте,это не постое дело
Пример одной надстройки,она создавалась в течении 2 месяцев,по мере поступления
добавлений в техзадание
staniiislav,если у вас есть скайп,свяжитесь,мне легче показать весь процесс,чем описать

http://film1.pochta.ru/1060.jpg