¿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