Мне нужно сравнить Column B в Sheet 2 с Column C в Sheet 3 и выделить ячейки с совпадающими данными в Column B (Sheet 2).
Использовали следующую формулу в условном форматировании
который работает =NOT(ISNA(VLOOKUP(Sheet3!C,Sheet2!B,1,FALSE))) с типом формата, являющимся
конкретный цвет, скажем желтый Interior.colorindex = 6
Как реализовать то же самое, используя код в VBA?
вы можете сделать это так
Sub CompareAndHighlight()
Dim rng1 As Range, rng2 As Range, i As Long, j As Long
For i = 1 To Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
Set rng1 = Sheets("Sheet2").Range("B" & i)
For j = 1 To Sheets("Sheet3").Range("C" & Rows.Count).End(xlUp).Row
Set rng2 = Sheets("Sheet3").Range("C" & j)
If StrComp(Trim(rng1.Text), Trim(rng2.Text), vbTextCompare) = 0 Then
rng1.Interior.Color = RGB(255, 255, 0)
End If
Set rng2 = Nothing
Next j
Set rng1 = Nothing
Next i
End Sub
код проверяет все ячейки в столбце B листа 2 по каждой ячейке столбца C листа 3, и если они совпадают, он выделяет ячейки на листе 2 в столбце B желтым цветом.
Я бы сделал это так:
Dim c As Range
For Each c In Range("sheet2!b:b")
If c.Value <> "" And Sheets("Sheet3").Cells(c.Row, 3).Value = c.Value Then
c.Interior.Color = vbYellow
End If
Next
