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

[doober]

Цвета я не определял,но слияние работает.Посмотрите-у вас такой финал

[CooperMan]

Так я и не разобрался...
К сожалению рабочий интеренет не позволяет делать вложения и работать с файлообменниками, поэтому попробую изложить вопрос так:

"Лист1"

     А      B      C
1   200   354556  12,01
2   300   345367  12,01
3   234   839472  13,6
4   523   234584  23,0

"Лист2"

     А      B      C
1   200   354556  
2   300   345367  
3         523456
4

Выполняется макрос:

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("Лист1").Range("A1").End(xlDown).Row
EndRow2 = Sheets("Лист2").Range("A1").End(xlDown).Row
 
For i = 1 To EndRow1
    For j = 1 To EndRow2
  
        If Sheets("Лист1").Cells(i, 1).Value & Sheets("Лист1").Cells(i, 2).Value = Sheets("Лист2").Cells(j, 1).Value & Sheets("Лист2").Cells(j, 2) Then
           Sheets("Лист2").Cells(i, 3).Value = Sheets("Лист1").Cells(j, 3).Value
        Else: End If
            
    Next j
Next i
 
End Sub

...и вроде бы работает. Требуется сравнить значения двух (A, B) столбцов листа2 с листом1 и при идентичности заполнить столбец C листа 2, данными листа1 столбец C соответственно. НО! Сравнение идет только до первой пустой ячейки (лист2, ячейка A3). Как сделать, чтоб при удовлетворении хотя бы одного условия заполнялся столбец C и поиск не прекращался до конца листа, если "ниже" все таки есть данные?

[doober]

Попробуйте так

Sub Comprare_L()
Windows("Книга1.xlsm").Activate
 
Dim i As Long, j As Long, EndRow1 As Long, EndRow2 As Long
 
EndRo1 = Sheets("Лист1").UsedRange.Row - 1 + Sheets("Лист1").UsedRange.Rows.Count

EndRow2 = Sheets("Лист2").UsedRange.Row - 1 + Sheets("Лист2").UsedRange.Rows.Count
 
For i = 1 To EndRow1
    For j = 1 To EndRow2
  
        If Sheets("Лист1").Cells(i, 1).Value = Sheets("Лист2").Cells(j, 1).Value Or _
        Sheets("Лист1").Cells(i, 2).Value = Sheets("Лист2").Cells(j, 2) Then
           Sheets("Лист2").Cells(i, 3).Value = Sheets("Лист1").Cells(j, 3).Value
        End If
            
    Next j
Next i
 
End Sub

[CooperMan]

Работает!
Объясните пожалуйста как работает вот эта часть: Sheets("Лист1").UsedRange.Row - 1 + Sheets("Лист1").UsedRange.Rows.Coun t

[doober]

UsedRange — прямоугольная область, включающая все заполненные ячейки и незаполненные, в промежутках между заполненными ячейками, на листе. Координаты области не обязательно начинаются в ячейке A1

Sheets("Лист1").UsedRange.Row -координаты строки начала области

Sheets("Лист1").UsedRange.Rows.Coun t количество строк в области

поэтому координаты последней строки=
начальная координата-1 + количество строк

[Hugo121]

Ещё можно использовать
Cells.SpecialCells(xlLastCell).Row

Sub tt()
x = Cells.SpecialCells(xlLastCell).Row
End Sub

Но это считает и форматы (без данных) тоже.

[Soul Leka]

Простите, что потерялась - было много работы.

Ваше видео сравнила со своим - отрабоатывает на тестовых файлах нормально.
Но когда подкладываешь 2 реальных файла - строки задваиваются.
В файлах добавлены в конце по 3 столбца. В первом файле в столбцах стоят даты, во втором - столбцы пустые.
В итоговом файле получается, что если строки совпадают, то он их дублирует и ставит 2 строки - отличаются они между собой данными в столбцах "добавлен"\"удален".
Если строки в первом файле не было, то он успешно ее добавляет.

[doober]

Отписался в личку