EXCEL VBA的代碼？

詳見截圖，有問題可以追問，

excel vba，俺是專業的

Sub 按鈕2_Click()

Dim arr()

clo = Array("紅色", "黃色", "藍色")

r = ActiveSheet.UsedRange.Rows.Count

ReDim arr(1 To r, 1 To 3)

Application.ScreenUpdating = False

For j = 1 To ActiveSheet.UsedRange.Rows.Count

x = 0

For i = 0 To UBound(clo)

If Not Range("bp" & j & ":ef" & j).Find(clo(i), lookat:=xlWhole) Is Nothing Then

x = x + 1

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

End If

Next i

Next j

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

Application.ScreenUpdating = True

End Sub