Sub Macro1()
    Dim stolb As Integer, stroka As Integer, list As Integer
    list =  1 
    stroka =  1 
    stolb =  7 
    With Sheets(list).UsedRange
       For stroka =  2  To  1000 
            If StrComp( 11 ,Cells(stroka, stolb).Value, Str( 1 )) = StrComp( 11 ,Cells(stroka, stolb +  2 ).Value, Str( 1 ))
              then MsgBox ("1")
              End If
        Next
    End With
End Sub

If StrComp( 11 ,Cells(stroka, stolb).Value, Str( 1 )) = StrComp( 11 ,Cells(stroka, stolb +  2 ).Value, Str( 1 ))

If Instr( 11 ,Cells(stroka, stolb).Value, "1",vbTextCompare) = instr( 11 ,Cells(stroka, stolb +  2 ).Value, "1",vbTextCompare)