Сравнить и скопировать данные между листами
Вот'Что я хотел бы сделать:
ЕСЛИячейка H листа A = ячейка E листа B (содержит слова)а такжеячейка J листа A = ячейка H листа B (содержит числа)а такжеячейка K листа A = ячейка I листа B (содержит числа)ЗАТЕМскопировать ячейку O листа A в ячейку L листа B (содержит числа)Другими словами:
Если H2, J2, K2 листа A = E1, H1, I1 листа B, скопируйте O2 листа A в L1 листа B.Если H3, J3, K3 листа A = E5, H5, I5 листа B, скопируйте O3 листа A в L5 листа B.Макрос, который я хочу, должен совпадать и копироваться для всей таблицы A и B. Данные из таблицы A можно использовать только один раз.
Вот'Это то, что у меня есть, но это не такКажется, не работает.
Dim sh1 As Worksheet, sh2 As Worksheet
Dim j As Long, i As Long, lastrow As Long
Set sh1 = Worksheets("Worksheet A")
Set sh2 = Worksheets("Worksheet B")
lastrow = sh1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
j = (i - 2) * 4 + 1
If sh1.Cells(i, "H").Value = sh2.Cells(j, "E").Value And _
sh1.Cells(i, "J").Value = sh2.Cells(j, "H").Value And _
sh1.Cells(i, "K").Value = sh2.Cells(j, "I").Value Then
sh1.Cells(i, "O").Copy sh2.Cells(j, "L")
End If
j = j + 4
Next