vba - 使用 Excel VBA 比较列并突出显示匹配的数据

Question

我需要与Column Bin进行比较并突出显示具有匹配数据的单元格。Sheet 2Column CSheet 3Column B (Sheet 2)

在条件格式中使用了以下公式

格式=NOT(ISNA(VLOOKUP(Sheet3!C,Sheet2!B,1,FALSE)))类型为

特别的颜色说黄色Interior.colorindex = 6

如何在 VBA 中使用代码实现相同的功能？

Answer 1

你可以这样做

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

代码检查 Sheet2 B 列中的所有单元格与 Sheet3 C 列中的每个单元格，如果它们匹配，则将 B 列中 Sheet2 上的单元格突出显示为黄色

Answer 2

我会这样做：

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