Как сравнить две таблицы?

[MOLOTOV]

Существует две таблицы, таблица А и таблица Б. Необходимо сравнить их по первым столбцам, таким образом, что при !несовпадении! данных в этих столбцах, данные добавляются из табл.Б в табл.А.
Буду благодарен за любые подсказки)



--------- примечание модератора - вдруг кому пригодится --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

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

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

Если вам требуется собирать данные из прайсов, сравнивая их, —
на сайте ExcelVBA.ru можно скачать универсальную программу обработки прайс-листов:
http://excelvba.ru/programmes/Unification

Программа «Прайс лист», выполненная в виде надстройки для Excel, позволяет вам нажатием одной кнопки преобразовать множество прайс-листов различных форматов к единому виду.

Программа умеет объединять данные из самых разных прайсов (формата CSV и Excel), в том числе из файлов иерархической структуры (выгрузки из 1С).

Возможностей в программе множество — например, она умеет делать наценку (в т.ч. и «сложную»), конвертировать цены из одной валюты в другую, выполнять замены наименований, выделять нужные данные (характеристики) из описания товара при помощи специальных функций.

Создавать итоговый прайс можно в формате Excel (по шаблону XLS) или в CSV (разделители столбцов, кодировка, и всё такое - настраивается)

Вы легко сможете настроить программу обработки прайс-листов под свои нужды.
Если сами не разберётесь — позвоните в Скайп (ник: ExcelVBA.ru), — получите бесплатную консультацию, с демонстрацией возможностей программы.

Программа изначально предназначалась для обработки прайс-листов на автозапчасти, но подойдёт для абсолютно любых файлов Excel.
Для обработки прайс-листов на автомобильные шины и диски, в программу добавлены специальные функции.

Обновления к программе «Прайс-лист» выходят регулярно, — соответственно, в программу постоянно добавляются новые возможности.

[КаМММ]

Можно просто копировать таблицу Б в конец таблицы А
потом запустить макрос:

Sub Сортировочка()
Dim Строка, i1
Строка = Range("A65536").End(xlUp).Row 'Поиск последней строки
R = "A1:X" & Строка'Предпологаю что столбцов не больше чем 24
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

Он отсортирует всё в алфавитном порядке и удалит повторения,
Уверен что существует и более красивое решение.
Но это первое что пришло в голову.

[SAS888]

Предлагаю другое решение задачи. К сожалению, автор не указал, где расположены таблицы. В предлагаемом примере предполагается, что таблица "A" находится на 1 листе, а таблица "B" на втором. Обе таблицы начинаются со столбца "A", по которому и нужно искать совпадения.
Создаем новую коллекцию из элементов столбца "A" первой таблицы. Затем, добавляем в коллекцию элементы столбца "A" второй таблицы. Анализируя уникальное свойство коллекции (т.е. двух одинаковых членов коллекции быть не может), добавляем в первую таблицу неповторяющиеся строки второй таблицы. Количество столбцов таблиц - произвольное. Если нужно, в конце процедуры можно добавить сортировку.
Такой способ реализует следующий код:

Sub Main()
    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

[КаМММ]

Сообщение от КаМММ

Уверен что существует и более красивое решение.

Я как всегда прав.
А можно для "чайника" пояснить строки кода

[SAS888]

пояснить строки кода

Да я и так, вроде бы, все объяснил.
Вот код с детальными комментариями:

Sub Main()
    
'Определяем переменные
    Dim x As New Collection, i As Long
'Отключаем обновления экрана и обработчик ошибок
    Application.ScreenUpdating = False: On Error Resume Next
'Переходим на 1 лист (т.к. макрос может быть запущен при любом активном листе
    Sheets(1).Select: With Sheets(2)
'Организуем цикл от ячейки "A1" до последней заполненной ячейки столбца "A" листа 1
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
'Добавляем все элементы в созданную коллекцию
        x.Add Cells(i, "A"), CStr(Cells(i, "A"))
    Next
'Организуем цикл от ячейки "A1" до последней заполненной ячейки столбца "A" листа 2
    For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
        On Error Resume Next
'Добавляем все элементы в созданную коллекцию
        x.Add .Cells(i, "A"), CStr(.Cells(i, "A"))
'Перехватываем ошибку. Если текущего элемента в коллекции нет, то Err = 0
'и тогда копируем текущую строку листа 2 в лист 1 в строку, следующую за
'последней заполненной. Если такой элемент уже содержится в коллекции, то
'Err <> 0, и мы ничего не делаем.
        If Err = 0 Then .Rows(i).Copy Rows(Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Next
    End With
    
End Sub

[КаМММ]

Меня смутила строка Sheets(1).Select: With Sheets(2)
В первом случае
Cells(i, "A"), CStr(.Cells(i, "A"))
обращение было активному листу (1)
А во втором к конструкции With
.Cells(i, "A"), CStr(.Cells(i, "A"))
Красиво задумано но "чайнику" сразу понять сложно (Всего одна точка)

[MOLOTOV]

Большое спасибо господа!!! Всё отсортировалось и добавилось!!! Очень здорово что есть форум на котором такие чайники как я могут спросить совета или подсказки. Спасибо что не пожалели своего времени помочь

[Дмитрий Фукс]

А как в моем случае с помощью макроса сравнить две таблицы???
Основание код заказа детали, надо както сравнить цены из прайса и счета.

[омарат]

2-ой столбец прайс 1.....................8-ой прайс 2
заполнить со второй ячейки
не одинаковые останутся на своих местах, а одинаковые передвинутся столбец 3-4
наглядно увидите где чего не хватает, а где лишние
я не программист. но мне кажется этот код более актуален


Sub suncronizatija()

For i = 2 To 1000 'i= stolbec(v dannom slucay 2)(so vtoroy jacejki)
For j = 2 To 1000 'j=stolbec(v dannom slucay 8)(so vtoroy jacejki)
'esli dannye jaceyki stolbca 2=dannye jaceyki stolbca 8, to snjlbec 3 prinimaet dannye stolbca 2, a stolbec 4 jaceyki 8
If Cells(i, 2) = Cells(j, 8) Then Cells(i, 3) = Cells(i, 2): Cells(i, 4) = Cells(j, 8): Cells(i, 2) = "": Cells(j, 8) = "": Exit For

Next j
Next i
MsgBox ("Синхронизация 1000 ячеек, закончился!")
End Sub

[gling]

Ребята, вы прикалываетесь? Или действительно готовы объяснить работу макросов.
Мне это интересно для самообразования.