如何找到相同的数据并填充颜色以显示它们？

Question

我在列中有数据，并且数据具有相同的组，因此我想填充颜色以显示它们，但是它具有许多组。我不知道如何更改颜色。

我尝试使用If then else和array，但我不能这样做。

Sub Test()

    Dim c As Range
    Dim bottomA As Integer
    bottomA = Range("A" & Rows.Count).End(xlUp).Row
    For Each c In Range("A3:A" & bottomA)
        If c = c.Offset(1, 0) Or c = c.Offset(-1, 0) Then
           c.Interior.Color = 255
        End If
    Next c
End Sub

它具有相同的颜色，我认为它不适合我的工作，因为它考虑逐个单元而不是按组填充颜色。

this is what i want to create code to run that 如果值相同，则它们将具有相同的颜色，并且该颜色将不再使用 如果该值是唯一的，则该范围将不会填充颜色

Answer 1

使用onGetOptions属性和Color函数。

RGB

说明：

RGB代表红色，绿色和蓝色。这是三种原色。每个分量的取值范围为0到255。使用此功能可以制作每种颜色。

RGB（255,0,0）给出纯Range("A1").Interior.Color = RGB(255, 0, 0) 的颜色。

编辑1： Red将返回从单元格a3到区域末尾的单元格的范围。

如果要比较范围的值，则应更改

Range("A3", Range("A3").End(xlDown)

到

c = c.Offset(1, 0) Or c = c.Offset(-1, 0)

完整的VBA代码：

c.Value = c.Offset(1, 0).Value Or c.Value = c.Offset(-1, 0).Value