Как написать макрос на VBA который будет собирать данные из двух листов Excel?

Question

[Quip Quip]

Есть два листа Excel с данными (в одной книге): лист "до" и лист "после" (допустим это будут данные инвентаризации). В листах содержаться данные в формате:
Таблица "до":

Таблица "после":

Необходимо объединить данные из двух листов так, что бы убрать все повторения книг, а остальные данные выгрузить в таком же формате, выделив разными цветами данные из таблицы до и из таблицы после. Примерно это должно выглядеть так:

Пытался сравнивать через InStr и потом выводить те которые не входят вдруг в друга, но что то ничего не получается. Как написать такой макрос. Хотя бы примерно может кто нибудь подсказать ?

Comments

[Quip Quip]

John Smith: к сожалению не получится, все данные есть в книге только. Вообще в листе было больше данных, я их с помощью макроса оттуда выдернул:
Sub revd()
Set wbd = ThisWorkbook.Worksheet("до")
Set wbdo = ThisWorkbook.Worksheet("до.обработанно")

Dim oRegD As New RegExp
Dim patternd As String
Dim dictd As New Dictionary
Dim nrowd As Integer
Dim celD As String
Dim nextc As Integer

patternd = "[А-ЯЁёа-я0-9A-Ba-b-\s]"

With oRegD
.Global = True
.Pattern = patternd
.IgnoreCase = True
.MultiLine = True
End With

nextc = 2
nrowd = 1

For i = 7 To 5000
set oMatches = oRegD.Execute(wbd.Cellls(i, 11))
For ii = 0 To oMatches.Count - 1
Set oMatch = o Matches.Item(ii)
celD = oMatch.Value

If Not dictd.Exist(celD) Then
dictd.Add celD, nrowd
wbdo.Cells(nrowd, 1) = celD
nrowd = nrowd + 1
End If

If IsEmpty(wbdo.Cells(dictd.item(celD), nextc) Then
wbdo.Cells(dictd.item(celD), nextc) = wbd.Cells(i,3)
Else
Do While Not IsEmpty(wbdo.Cells(dictd.item(celD), nextc) = True
nextc=nextc+1
Loop
wbdo.Cells(dictd.item(celD), nextc) = wbd.Cells(i,3)
nextc = 2
End If
Next ii
Next i
Set oRegD = Nothing
End Sub

[Quip Quip]

John Smith: спасибо за помощь

Answer 1

[nApoBo3]

У вас не корректный формат данных. Записи должны быть примерно следующего формата.
Или два листа с датами инвентаризации, а там записи вида строка, автор|наименование.
Или один лист со строками вида автор|наименование|кол-во|событие|дата.
Макрос здесь не обязателен, со всем справиться сводная таблица.
Если очень хочется так, то циклом проходите по первой таблице и дальше по второй, но может получиться очень медленно.