【v1-6综合练习题1】如何按条件填充颜色

cyswinner

<p>Sub aa()<br/>Dim a As Long<br/>Dim b As Long<br/>For a = 1 To 9<br/>&nbsp;For b = 1 To 3<br/>&nbsp; If Cells(a, b) &gt; 100 Then<br/>&nbsp; Cells(a, b).Select<br/>&nbsp; Selection.Interior.ColorIndex = 7 '粉红色<br/>&nbsp; End If<br/>&nbsp;Next b<br/>Next a</p><p>Dim c As Long<br/>Dim d As Long<br/>For c = 10 To 21<br/>&nbsp;For d = 4 To 6<br/>&nbsp; If Cells(c, d) &gt; 100 Then<br/>&nbsp; Cells(c, d).Select<br/>&nbsp; Selection.Interior.ColorIndex = 5 '蓝色<br/>&nbsp; End If<br/>&nbsp;Next d<br/>Next c<br/>End Sub<br/></p><p>写的有点啰嗦</p>