Звезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активна
 

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