excel vba中是否可以给相连单元格填充颜色

Question

1\。含有文字的列和空列不做任何填充
2.。同列相连内容填充单元格颜色(列的范围可以用18 T0 58这样的)
3.。每列从倒数行开始往上查找到第28行结束
4.。例填充颜色1，(AA是2个相连单元且内容都是A，此时填充单元格为品红色)
5.。例填充颜色2.，(ABA是3个相连单元格填充，且相隔1有相同内容时，填充3个单元格为青色)

Answer 1

               '加底色   
                 With .Range("A:B").Interior

                 .ColorIndex = 4

                End With
 
                '取消底色
                With .Range("A:B").Interior


                 .ColorIndex = xlNone

                End With

Answer 2

只要你手工能做到的，vba都能做到