сравнить две колонки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

сравнить две колонки (сравнить две колонки)

сравнить две колонки

linad

Дата: Понедельник, 03.02.2014, 12:50 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Подскажите как сравнить две колонки, и в случае одинаковых значений закрашивать это значение в 1-й колонке. Например
A _ B
1 7
2 5
3
4
5
6
7
8
9

числа 5 и 7 повторяются, их нужно закрасить в 1-й колонке.
Вот, я нагуглил - что можно использовать - формулу условного форматирования столбца А : =СЧЁТЕСЛИ($B$1:$B$9;A1)>0

Но оно работает на новых значениях, которые я ввожу. А на старых значениях которые уже есть в столбцах не применяется. Или я что-то не так делаю? Подскажите пожалуйста.

Ответить

linad

Дата: Понедельник, 03.02.2014, 12:51 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Нашел макрос, но он закрашивает, не тот что нужно столбец. Он закрашивает 2-й столбец , а нужен 1-й.

[vba]

Код

     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]