Vb скрипт с Excel 2010

Question

У меня есть два листа в Excel - all и ArticlesA.

Я хочу просмотреть значения в столбце B листа all и посмотреть, находится ли значение также в столбце B листа ArticlesA.
Если значение существуетЯ хочу скопировать значение из ArticlesA в новый столбец в all.

Sub stock()

    Dim iall, i2, i3, k, kk, z

    Dim wsall As Worksheet
    Set wsall = Sheets("all")

    Dim ws2 As Worksheet
    Set ws2 = Sheets("ArticlesA")
    iall = wsall.Range("B1").End(4).Row
    i2 = ws2.Range("B1").End(4).Row

    With wsall
        For k = 2 To iall
            z = .Range("B" & k)
            For kk = 1 To i2
                If z = ws2.Range("B" & kk) Then

                    Range("J" & kk).EntireRow.Interior.ColorIndex = 10

                End If
            Next
        Next
    End With

End Sub

Answer 1

Ваш код не выполняет то, что вы сказали, но если вы хотите это исправить, просто укажите лист в строке, где вы устанавливаете цвет строки:

ws2.Range("J" & kk).EntireRow.Interior.ColorIndex = 10