数据比较多，为了方便观看怎么实现以下操作

41414

数据比较多，为了方便观看怎么批量实现以上操作

3190496160

Sub 填充颜色()
Dim ar As Variant
Dim i As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("a1:a" & r)
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" Then
        If Not d.exists(ar(i, 1)) Then Set d(ar(i, 1)) = CreateObject("scripting.dictionary")
        d(ar(i, 1))(i) = ""
    End If
Next i
m = 2
Range("a1:a" & r).Interior.ColorIndex = 0
For Each k In d.keys
    m = m + 1
    If m > 63 Then m = 3
    For Each kk In d(k).keys
        Cells(kk, 1).Interior.ColorIndex = m
    Next kk
Next k
Set d = Nothing
MsgBox "ok!"
End Sub

3190496160

工作簿1.rar (16.51 KB, 下载次数: 9)

2024-8-2 08:25 上传

点击文件名下载附件

高个子

第一种黄色，第二种绿色，第三种黄色，第四种绿色，这样条件格式都可以实现

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1683649&mobile&_dsign=f4575def

沈默00

如果只是为了区分相邻的不同内容，就可以用隔一种标颜色，，只是颜色是单一的

沈默00

沈默00

VBA版来一个，，，颜色多多，可以随机更换，，

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, i&, p&, n&
    n = 2: p = 1
   
    With [A1].CurrentRegion.Offset(1)
        .Interior.ColorIndex = xlNone
        ar = .Resize(.Rows.Count + 1)
        For i = 2 To UBound(ar) - 1
            If ar(i + 1, 1) <> ar(p, 1) Then
                n = n + 1
                If n > 56 Then n = 3
                Range(.Cells(p, 1), .Cells(i, 1)).Interior.ColorIndex = n
                p = i + 1
            End If
        Next i
    End With
End Sub

gwjkkkkk

参与一下。。。