[已解决]单元格中有连续数据标示颜色。

myexcel88

单元格中有连续数据标示颜色。

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2013-12-29 20:24

Sub test()
Dim rng As Range
Application.ScreenUpdating = 0
Set rng = Range("e20:g36")
rng.Font.ColorIndex = 1
For Each tmp In rng
    s$ = ""
    i1% = 0: i2% = 0: i3% = 0
    For Each k In Split(tmp & ",", ",")
        If s = k Then
           i1 = i1 + 1
           i3 = i3 + Len(s) + 1
        Else
           If i1 > 1 Then tmp.Characters(i2, i3).Font.ColorIndex = i1 + 1
           i1 = 1
           s = k
           i2 = i2 + i3 + 1: i3 = Len(s)
        End If
    Next
Next
End Sub

跳转到最佳答案楼层

myexcel88

再顶上，看看有没版主。

djyjysxxs

Sub test()
Dim rng As Range
Application.ScreenUpdating = 0
Set rng = Range("e20:g36")
rng.Font.ColorIndex = 1
For Each tmp In rng
    s$ = ""
    i1% = 0: i2% = 0: i3% = 0
    For Each k In Split(tmp & ",", ",")
        If s = k Then
           i1 = i1 + 1
           i3 = i3 + Len(s) + 1
        Else
           If i1 > 1 Then tmp.Characters(i2, i3).Font.ColorIndex = i1 + 1
           i1 = 1
           s = k
           i2 = i2 + i3 + 1: i3 = Len(s)
        End If
    Next
Next
End Sub

djyjysxxs

3个连续相同标示颜色（即2个相同的不标示颜色），代码是修改If i1 > 2 Then tmp.Characters(i2, i3).Font.ColorIndex = i1 + 1