выделение ячеек, сходных по значению соседнего листа

[dedelev]

Добрый день, уважаемые программисты.
Помогите решить такую проблему.
Есть два листа. На листе "num" имеется список номеров, нужно, чтобы на листе "cyber" выделились каким нибудь цветом ячейки с номером, который имеется на листе "num"

[Hugo121]

Условное форматирование.
Ваши макросы удалил.

[kuklp]

Sub www()
    Dim sh As Worksheet, ws As Worksheet, a, aa, i&, j
    Set sh = Worksheets("cyber")
    Set ws = Worksheets("num")
    a = Range(sh.[a1], sh.[a1].End(xlDown))
    aa = Range(ws.[a1], ws.[a1].End(xlDown))
    For i = 1 To UBound(a)
        For j = 1 To UBound(aa)
            If a(i, 1) = aa(j, 1) Then sh.Cells(i, 1).Interior.ColorIndex = 34
        Next
    Next
End Sub