(Excel) Сравнение двух колонок

[mrkoder]

Как выделить все значения колонки B зеленым цветом, значения которые есть в колонке А. Т.е. как определить, какие из значений в колонке B присутствуют в колонке А

[mrkoder]

так!

Код: Выделить всё

Sub s_Test()
  Dim v_Sh As Worksheet
  Dim v_Rng As Range, v_Cell As Range
  Dim v_Var As Double
   
  Set v_Sh = ActiveSheet
  Set v_Rng = Intersect(v_Sh.Columns(2), v_Sh.UsedRange)

  On Error Resume Next
  For Each v_Cell In v_Rng.Cells
    If v_Cell <> Empty Then
      v_Var = WorksheetFunction.Match(v_Cell, v_Sh.Columns(1), 0)
      If Err.Number <> 0 Then
        Err.Clear
      Else
        v_Cell.Interior.ColorIndex = 4
      End If
    End If
  Next v_Cell
End Sub

[Чудовище под кроватью]

А зачем тут VBA? Достаточно для ячеек в столбце B сделать условное форматирование:
Для первой ячейки столбца B ставишь условие: =поискпоз(B1;A:A;0)>0. Ну и для остальных просто: Правка-Заполнить-Вниз.

[mrkoder]

На VBA удобнеее на кнопку нажал и все..

[Чудовище под кроватью]

На VBA удобнеее на кнопку нажал и все..

А без VBA вообще ничего нажимать не надо и работает быстро.
VBA нужно использовать только там, где стандартными средствами Excel не обойтись, поскольку VBA значительно уступает по быстродействию. Например, сделай 2 столбца по 10000 элементов и попробуй запустить свой макрос . А вот условное форматирование даже при 65535 строках отрабатывает за доли секунды.
Если уж так принципиально надо макрос написать, то лучше, если он будет действовать так же, как если делать руками. Например:
1. Создается макросом условное форматирование для 1 ячейки столбца
2. Через AutoFill заполняется столбец.

[Krasnaja Shapka]

А зачем тут VBA? Достаточно для ячеек в столбце B сделать условное форматирование:
Для первой ячейки столбца B ставишь условие: =поискпоз(B1;A:A;0)>0. Ну и для остальных просто: Правка-Заполнить-Вниз.

полюбому условное форматирование лучше VBa, с одним исключением: выделяешь весь столбец В и ставишь данное условие... и не надо никаких Правка-Заполнить-Вниз или AutoFill )) эксель все сделает автоматом...