根据数据不同，自动标识单元格颜色

雨择

各位大佬帮忙看下，请多多指教。

目前是通过检索SN，确认对照表内的颜色，能够实现不同数据颜色区分。

但是，当SN数据很多时，颜色设置也会增多，还需要维护对照表

能不能像给地图上色的四色理论一样，循环用4个颜色区分不同数据 （这4个颜色已知且固定）

判定标准就是SN与上一行单元格数据对比，一致则颜色相同，不一致则填充下一个颜色。

雨择

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, y As Integer, Targ As Range, Th As Worksheet, Dh As Worksheet
Dim xs As Integer, xe As Integer, BgC As Long

Set Dh = ThisWorkbook.Sheets("Sets")
Set Th = ActiveSheet

For Each Targ In Target
    x = Targ.Column
    y = Targ.Row
    If Th.Cells(3, x) = "SN" And Th.Cells(2, x).MergeCells And Th.Cells(2, x).MergeArea.Cells(1, 1) Like "DP[1-9]*" And y > 3 Then
        xs = Th.Cells(2, x).MergeArea.Cells(1, 1).Column
        xe = xs + Th.Cells(2, x).MergeArea.Columns.Count - 1
        
        If Targ.Value = "" Then
            BgC = xlNone
          Else
            Set f = Dh.Range("A:A").Find(Targ.Value, , , xlWhole)
            If f Is Nothing Then
                BgC = xlNone
              Else
                BgC = Dh.Cells(f.Row, 2).Interior.Color
            End If
        End If
        Th.Range(Th.Cells(y, xs), Th.Cells(y, xe)).Interior.Color = BgC
    End If
Next

End Sub

nicleyuan

试试

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, n&, bytIndex As Byte
   
    br = Sheets(2).[C5:E8]
    With Range("C4", Cells(Rows.Count, "C").End(3))
        With Range("C4", .Offset(1))
            ActiveSheet.Cells.Interior.ColorIndex = 0
            ar = .Value
            n = 1
            For i = 1 To UBound(ar) - 1
                bytIndex = IIf((n Mod 4) = 0, 4, n Mod 4)
                .Cells(i, 1).Offset(, -1).Resize(, 12).Interior.Color = RGB(br(bytIndex, 1), br(bytIndex, 2), br(bytIndex, 3))
                If ar(i, 1) <> ar(i + 1, 1) Then
                     n = n + 1
                End If
            Next i
        End With
    End With
   
    Beep
End Sub

gwjkkkkk

请参考。。。