用VBA处理此EXCEL表格

哪位高手帮我用VBA实现附图的自动颜色填充效果：
根据由A列内容确定的层次来填充整栏的颜色。例如A2内容为1.1，层次为第2层，颜色填充为紫色；A3内容为1.1.1，层次为第3层，颜色填充为蓝色；......
请用计算小数点的方式来确定层次.第一层(1)无小数点, 第二层(1.1)有一个, 第三层(1.1.1)有两个....

---

打开Excel,按alt+F11,插入一个模块,输入下列代码,
Sub 设置颜色()
For Each c In ActiveSheet.Range("A1:A" & Range("A65535").End(xlUp).Row)
icount = Len(c.Value) - Len(Application.WorksheetFunction.Substitute(c.Value, ".", ""))
With ActiveSheet.Rows(c.Row)
If icount = 1 Then '1个"."
.Interior.ColorIndex = 13 '紫色
ElseIf icount = 2 Then '2个"."手伍携
.Interior.ColorIndex = 5 '蓝色
ElseIf icount = 3 Then '3个"."
.Interior.ColorIndex = 35 '淡绿
ElseIf icount = 4 Then '4个"."
.Interior.ColorIndex = 36 '淡黄
End If
End With
Next
End Sub

退出VBE,然后按alt+F8,会弹出宏对话毕伏橘腔框,选择设置颜色宏,执行即可得到结果,

---

不含颂悄一定要用VBA来做；可以用条件格式，用len函数来判读小数点的个数。如=1则没有小数点
为3一个小数点，5两个小数樱拆点.......然后根据这些条件设置相应的格式。谈渣

---