Exelでの質問です。

セルがＡという文字列なら

Sub Macro()
    Dim myRange As Range
    
    Application.ScreenUpdating = False
    
    For Each myRange In ActiveSheet.UsedRange
        If myRange.Value = "A" Then
            myRange.Interior.ColorIndex = 6
        Else
            myRange.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

セルにＡという文字列が含まれていたら

Sub Macro()
    Dim myRange As Range
    
    Application.ScreenUpdating = False
    
    For Each myRange In ActiveSheet.UsedRange
        If InStr(myRange.Value, "A") > 0 Then
            myRange.Interior.ColorIndex = 6
        Else
            myRange.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

マクロとあったのでマクロで書きましたが、

通常数式で設定するのではなく条件付書式で設定します。

シートを全部選択し

メニューの書式→条件付書式

セルの値が　次の値に等しい　Ａ

下の書式でパターンを黄色に指定します。