¿Código EXCEL VBA?

Consulte la captura de pantalla para obtener más detalles. Deje un comentario si tiene alguna pregunta.

Excel vba, soy un experto.

Sub Button2_Click()

Dim arr()

clo = Array("Rojo", "Amarillo", "Azul")

r = ActiveSheet.UsedRange.Rows.Count

ReDim arr(1 a r, 1 a 3)

Application.ScreenUpdating = False

Para j = 1 a ActiveSheet.UsedRange.Rows.

x = 0

Para i = 0 a UBound(clo)

Si no es rango("bp" & j & ":ef" & j).Find( clo(i), mira: =xlTodo) No es nada entonces

x = x + 1

arr(j, x) = Chr(69 + i)

Finalizar si

Siguiente i

Siguiente j

[b1].Resize(r, 3) = arr

Aplicación. ScreenUpdating = Verdadero

Fin Sub