对于给定单元格中的每个值，定位并突出显示数据中的相同值

Question

我目前使用的公式如下：

Columns("D:D").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=$D1='General Profiling'!$B$6"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 65535
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True

但有时，C6、D6 等中可能有一些值，我也希望条件格式能够提取和突出显示。

有没有办法确定一个值是否已放在 C2 到 C100 之间，然后在不同的电子表格上突出显示这些值？

Answer 1

尽量避免使用Range .Select 和Range .Activate 方法¹。

With ActiveSheet
    With .Range(.Cells(1, "D"), .Cells(1, Columns.Count).End(xlToLeft)).EntireColumn
        With .FormatConditions.Add(Type:=xlExpression, Formula1:= _
                            "=COUNTIF('General Profiling'!$B$6:$Z6, $D1)")
            .Interior.Color = vbYellow
        End With
    End With
End With

如果您可以将 ActiveSheet property 更改为 Worksheet Object 的名称或代号，那就更好了。

---

.¹ _{请参阅How to avoid using Select in Excel VBA macros，了解更多摆脱依赖选择和激活来实现目标的方法。}