EXCEL VBA填充字体颜色和单元颜色

Question

1.条件第1个字符为区域1填充/第2个字符为区域2填充/第3个字符为区域3填充/第4个字符为区域4填充

Answer 1

Sub s()
    Dim a(3)
    t = [a1]
    For i = 0 To 3
        a(i) = Mid(t, i + 1, 1)
    Next
    For i = 2 To 85
        ff = True
        For j = 0 To 3
            f = False
            For k = j * 7 + 11 To j * 7 + 17
                If Cells(k, i).Text = a(j) Then
                    Cells(k, i).Font.ColorIndex = 3
                    f = True
                End If
            Next
            ff = ff And f
        Next
        If ff Then Cells(39, i).Resize(7).Interior.ColorIndex = 6
    Next
End Sub