VBA: поиск одинаковых значений в ячейках на разных листах и сравнение значений соседних ячеек - если значения совпадают - закрашиваем зелёным на обоих листах
Sub Button1_Click() Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name) Set InputWorksheet1 = CurrentWorkbook.Sheets("Schematic1") Set InputWorksheet2 = CurrentWorkbook.Sheets("COMPONENT_PURCHASE") LineFindFrom = 2 LineFindTo = 576 For i = LineFindFrom To LineFindTo If (Len(CStr(InputWorksheet1.Cells(i, 2).Value)) > 2) Then For j = LineFindFrom + 1 To LineFindTo If (CStr(InputWorksheet1.Cells(i, 2).Value) = CStr(InputWorksheet2.Cells(j, 3).Value)) Then If (InputWorksheet2.Cells(j, 6).Value = InputWorksheet1.Cells(i, 4).Value) Then InputWorksheet1.Cells(i, 2).Interior.Color = RGB(100, 250, 100) InputWorksheet2.Cells(j, 3).Interior.Color = RGB(100, 250, 100) End If End If Next End If Next End Sub