Excel VBA从一列的单元格中查找一个文本，如果为true，则为同一行中的结果单元格填充颜色

Question

我正在尝试检查数据列表中是否有任何项目，如果与条件类型匹配，则将通过填充单元格的颜色在同一行上返回结果。 我一直在使用一个简单的宏，如下所示： （如果数据单元格中有任何项目（文本），请填写，否则不执行任何操作）
（数据范围为A1：A802，距离结果单元格75列）

Sub STechnoFill()

    Dim r As Range, rr As Range
    Set rr = ActiveCell.Offset(1, 0).Range("A1:A802")
    For Each r In rr
        If Len(r.Offset(0, 75).Value) > 0 Then
            'r.Interior.ColorIndex = 24
            r.Interior.Color = RGB(224, 210, 245)
        End If
    Next r

End Sub

当前挑战在于数据具有更多项（7种类型，例如“ A”，“ B”，“ C”，“ D”，“ E”，“ F”，“ G”）。并且数据可以为空白或不止一种项目类型。 （例如“ AB”，“ BCD”等）。
（条件填充：如果找到“ A”，则填充浅黄色。RGB（255，255，204），如果找到“ B”：RGB（204,255,255），“ C”：RGB（255,253,204），“ D”：RGB（ 255,204,153），“ E”：RGB（204,255,204），“ F”：RGB（153,51,102），“ G”：RGB（0,255,255） （如果有多个项目，则我使用了另一个宏作为边框）

在VBA中，我尝试使用.find，但仍无法使用我的初学者知道的方法。 能否找到解决方案？