¿Rellenar las mismas celdas con diferentes colores en VBA?

Idea de código: juzgue desde el 2 hasta el final. Si los datos actuales son los mismos que los datos anteriores, se dará el mismo color. Si son diferentes, el número de color + 1 se convertirá en un. color diferente.

Texto del código:

Sub libro de trabajo privado_SheetSelectionChange(ByVal Sh como objeto, ByVal objetivo como rango)

n = 3

Para i = 2 a [b65536].End(3).Row

Si Celdas(i, 2) = Celdas(i - 1, 2) Entonces

Celdas(i, 2) .Interior.ColorIndex = n

Else

n = n + 1

Celdas(i, 2).Interior.ColorIndex = n

Finalizar si

Siguiente

Finalizar sub