Сравнение файлов excel

[Rudysays]

Доброго дня всем!
Может кто-то сталкивался или задавался таким вопросом.
Необходимо сравнить два файла excel:
В первом файле представлена отчетность за 4 месяца(файл общий свод).
Во втором файле данные только за один месяц(файл апрель).
Вот вопрос как проверить, все ли данные из файла апрель, есть в файле общий свод?

[jillitil]

Ручками:

• В "общем" фильтруешь апрель.
• Сортируешь.
• Вставляешь рядом колонку, так же отсортированную, из файла "апрель".
• Глазками сверяешь. Несовпадения видны легко.
• Если данных много, то в третью колонку делаешь формулу сравнения двух других. Например для C7 будет "=A7=B7".
• В условной колонке C:C ищешь или фильтруешь на значение "ЛОЖЬ" — это значит апрельские данные разнятся.

[Rudysays]

Юмор понимаю, но это я привел пример для быстрого понимания. Я вообщем есть макрос, который сравнивает два файла и выделяет не одинаковые ячейки, но он работает строго по ячейкам, а тут суть в том чтобы прогнать на ошибки. Если у меня в первом файле инфа за 4 месяца, а мне сравнить надо только с одним месяцем.

[Serge 007]

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

...как проверить, все ли данные из файла апрель, есть в файле общий свод?

Можно формулами или макросом

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

...я привел пример...

Пример Вы не приводили

[Rudysays]

Сообщение от Serge 007

Можно формулами или макросом

Пример Вы не приводили

Sub CompareBooks()
Dim myName As String, wB As Workbook
        With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Выберите ПЕРВЫЙ файл для сравнения"
            .Show
                If .SelectedItems.Count = 0 Then Exit Sub
            myName = .SelectedItems(1)
        End With
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
    
Dim myName1 As String, wB1 As Workbook
        With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "Выберите ВТОРОЙ файл для сравнения"
            .Show
                If .SelectedItems.Count = 0 Then Exit Sub
            myName1 = .SelectedItems(1)
        End With
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=myName1: Set wB1 = Workbooks(ActiveWorkbook.Name)
    
    Windows(wB1.Name).Activate: ActiveSheet.Unprotect
   
    numRowProv = InputBox("Укажите номер строки, с которой необходимо начать сравнение В ПЕРВОМ файле:", "Номер строки")
    numRow = InputBox("Укажите номер строки, с которой необходимо начать сравнение ВО ВТОРОМ файле:", "Номер строки")
    numCol = Cells.SpecialCells(xlLastCell).Column - 1
    
    If numRow >= numRowProv Then
       Razn = numRow - numRowProv
       For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
          iprov = i - Razn
          For y = 1 To numCol
            If wB1.Sheets("Лист1").Cells(i, y) <> wB.Sheets("Лист1").Cells(iprov, y) Then
                wB1.Sheets("Лист1").Cells(i, y).Interior.Color = 200
            End If
          Next
        Next
    End If
    
    
    If numRow < numRowProv Then
      Razn = numRowProv - numRow
      For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
        iprov = i + Razn
          For y = 1 To numCol
            If wB1.Sheets("Лист1").Cells(i, y) <> wB.Sheets("Лист1").Cells(iprov, y) Then
                wB1.Sheets("Лист1").Cells(i, y).Interior.Color = 255
            End If
          Next
       Next
     End If
       
    ActiveSheet.Protect: Application.ScreenUpdating = True
End Sub

[Serge 007]

Rudysays, для оформления кода используйте соответствующие теги