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

Posted 2023-03-06

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

【英文标题】：for every value in given cell, locate and highlight the same value in data

【发布时间】：2016-10-16 00:35:15

【问题描述】：

我目前使用的公式如下：

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 之间，然后在不同的电子表格上突出显示这些值？

【问题讨论】：

应该是：有没有办法识别 B6 到 Z6 之间是否有一个值，然后在不同的电子表格上突出显示这些值？

【参考方案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，了解更多摆脱依赖选择和激活来实现目标的方法。}

【讨论】：

@Jeeped：效果很好！非常感谢！！

很抱歉再次打扰您，条件格式似乎很常见，比较单元格的值为空时，公式会突出显示空单元格的所有行。有没有办法在这种情况下排除空单元格？