要用不同颜色标注的话,只能用VBA了。现有的条件格式解决不了
追问知道怎么写代码吗?
追答Sub MC_TEST()
xr = [B65536].End(3).Row
Range("b1:b" & xr).Interior.ColorIndex = 0
Set d = CreateObject("Scripting.Dictionary")
For I = 2 To xr
d(Cells(I, 2).Value) = d(Cells(I, 2).Value) & "," & Cells(I, 2).Address
Next
ar = d.ITEMS
k = 3
For n = 0 To d.Count - 1
xx = Mid(ar(n), 2)
ss = Split(xx, ",")
If UBound(ss) > 0 Then
If k < 56 Then
k = k + 1
Else
k = 3
End If
Range(xx).Interior.ColorIndex = k
End If
Next
End Sub
追问谢谢
本回答被提问者采纳