在另一张纸上搜索一个单元格的值，为其着色，然后重复

Question

我有一本有两张纸的工作簿。我想在sheet1（例如：单元格A1）中获取一个值，在sheet2中搜索它，并为该单元格或行匹配的颜色。

我还想知道它是否可以循环，以便它将在单元格A2，A3等中搜索值，直到达到空白为止。

谢谢您的帮助。

Answer 1

使用条件格式时无需循环或查找。

Option Explicit

Sub colorIt()
    With Worksheets("sheet2").UsedRange.Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, _
          Formula1:="=isnumber(match(" & .Cells(1).Address(0, 0) & ", sheet1!$a:$a, 0))"
        .FormatConditions(.FormatConditions.Count).Interior.Color = vbRed
    End With
End Sub