如图,我想每次填写订单编号的时候自动区分不同的颜色,希望大佬们帮忙,最好注释下方便学习,谢谢。编号内容没用固定的,也不是递增,没有规律数据,会日积月累的
代码思路:从第2开始往下判断直到结束,如果当前数据与上一个数据相同,则赋予相同颜色,如果不同,则颜色序号+1变成不同颜色。
代码文本:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
n = 3
For i = 2 To [b65536].End(3).Row
If Cells(i, 2) = Cells(i - 1, 2) Then
Cells(i, 2).Interior.ColorIndex = n
Else
n = n + 1
Cells(i, 2).Interior.ColorIndex = n
End If
Next
End Sub
温馨提示:答案为网友推荐,仅供参考