Сравнение данных из двух книг и добавление строк

[Soul Leka]

Наверное, чудеса.
Я так понала, макрос настроен только на определенное количество столбцов?
Пробовала скрестить 2 файла. В файле1 добавлены в конце 3 новых столбца, в них есть данные.
В итоге файлы скрещиваются, но записи задваиваются - в одной заполнена колонка добавлен, в другой -удален. + 3 новых столбца просто отсекаются в конце.

[doober]

Да оба файла должны быть идентичны.для драгих вариантов должен быть свой макрос

[Soul Leka]

а если оба файла идентичны, но в каждом добавлено одинаковое количество столбцов в конце - тоже не работает. Отсекает эти столбцы.

[doober]

Давайте определимся.Файлы идентичны,сравниваем указанные колонки.Но количество колонок может быть разное.Другие варианты еще есть?

[Soul Leka]

Да. именно так.
Сравниваем колонки ФИО + дата рождения.
Если совпадают все 4 колонки, то в итоговый файл пишем строку из файла, загружаемого первым. Это важно, тому как в первый файл будут добавляться колонки и заноситься данные по людям и нужно, чтобы при сравнении двух файлов это данные остались. А во втором файле будет выгружаться меняющийся список людей.
Я проверила на тестовых файлах. Если в файле1 изменить, например, должность и сравнить по вашему макросу с файлом2 - в итоге пищшется строчка с изменной должностью - вроде пишется верно.

[Soul Leka]

количество колонок изменяемо. Но обязательно одинаковое по количеству в обоих файлах.

[doober]

хорошо подкорректирую код

[Soul Leka]

а вы макросы пишете так иль за деньги?

[CooperMan]

Здравствуйте. Прошу прощения за то, что вмешиваюсь, просто задача показалась похожей.

Данные: Имеются два файла для сравнения
Требуется: при совпадении данных двух столбцов в первом файле, нужно заполнить третий столбец соответствующей строки второго файла, данными из первого.

Пример: при идентичности ячеек A1, B1, С1 "файл 1" и "файл 2", заполнить ячейку D1 "файл 2", данными ячейки D1 "файл 1", иначе проверять следующую строку "файл 1".

Заранее спасибо!

[CooperMan]

В одной книге сравниваю два листа вот так:

Sub Sravnil_esli_da_to_vstavil_esli_net_ishem_dalshe()
Windows("Книга1.xlsm").Activate
 
Dim i As Long, j As Long, EndRow1 As Long, EndRow2 As Long
 
EndRow1 = Sheets("Лист2").Range("A1").End(xlDown).Row
EndRow2 = Sheets("Лист1").Range("A1").End(xlDown).Row
 
For i = 1 To EndRow1
    For j = 1 To EndRow2
  
        If Sheets("Лист1").Cells(i, 1).Value = Sheets("Лист2").Cells(j, 1).Value Then
           Sheets("Лист2").Cells(i, 3).Value = Sheets("Лист1").Cells(j, 3).Value
           
        Else: End If
            
    Next j
Next i
 
End Sub

Как сделать, чтоб проверялись на идентичность данные еще и второго столбца?