Excel 为值 VBA 设置不同的填充颜色

Question

寻找一种解决方案，将填充颜色分配给包含不同名称的单元格（如果它们在另一列中以多个值出现）。我正在使用 Countif 公式来识别它们，效果很好。目前我有一个条件格式，为公式中 0 以上的所有内容分配填充颜色以填充颜色，但我希望每个不同的值都是不同的颜色。在任何给定的文件上，可能有 1 到 10 个不同的名称，并且它们可以一直是不同的名称。非常感谢帮助。

参考单元格 RC23 的公式

=COUNTIFS(C[-1],RC[-1],C[-20],""<>""&RC[-20])

条件格式（Range 可能看起来又长又笨拙，但需要，因为我使用了另外两个条件，每个条件影响不同的单元格，当我离开 Range( _ 它们停止正常工作。）

Range( _
    "A178:T178,A164:T175,A160,D160:K160,M160:R160,T160,A156:T158,A146:T151,A119:T125,A115:T116,A110:T113,A106:T108,A85:T104,A75:T83,A73:T73,A64:T71,A62:T62,A60:T60,A180:T1048576,A127:T144" _
    ).Select
Range("L:L").Activate
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(RC23>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .Pattern = xlLightUp
    .PatternThemeColor = xlThemeColorAccent3
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0.599963377788629
    .PatternTintAndShade = 0.599963377788629

Answer 1

我能想到的最佳解决方案是为每个重复值创建一个自动分配数字的列。然后为每个数字应用条件格式。如果列 returns 1-10 具有各种颜色，我在 VBA 中编程最多十次重复。这是通过一些

实现的

接受其他建议。

Excel 为值 VBA 设置不同的填充颜色

Excel setting different fill color for value VBA

excel

formatting

vba

excel-2010