Question

vba相同单元格填充不同颜色？

如图，我想每次填写订单编号的时候自动区分不同的颜色，希望大佬们帮忙，最好注释下方便学习，谢谢。编号内容没用固定的，也不是递增，没有规律数据，会日积月累的

Answer 1

代码思路：从第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