EXCEL同时为多个单元格的不同内容填充颜色,如何用VBA语言

Question

例如,A例有1万个单元格共有500类内容,我要为其中相同的5类内容3000个单元各,自动填充成绿色

Answer 1

你应该说明一下你的VBA水平如何..
因为你没详细说明情况,我这里只说一下思路和基本方法.

首先在VBA中要选中你所要填充颜色的单元格,方法很多,你可以这样:
Range("A1").Select '选中a1单元格
Range("D5:E8").Select '选中D5:E8
Cells(2, 5).Select '选中E2单元格,即第2行第5列

然后填充颜色,可以用下面语段:
With Selection.Interior
.ColorIndex = 4 '4号颜色即鲜绿色
End With
'另外,35号颜色为淡绿,34号颜色为淡青绿

我这里再举个例子,如你要将1到500行的B列中,数值大于或等于100的单元格填充为绿色,可以这样:
按ALT+F11呼出VBA编辑器,点选菜单"插_入-模块",在新插_入的模块1里粘贴以下代码:
Sub FillColor()
For i = 1 To 500
If Cells(i, 2) >= 100 Then
Cells(i, 2).Select
With Selection.Interior
.ColorIndex = 4
End With
End If
Next i
End Sub

然后按F5运行宏即可.

Answer 2

Sub a()
For Each b In Range("a1:a10000")
If b.Value < 100 Then
b.Font.ColorIndex = 4
End If
Next
End Sub

之后用F5运行模块，其中if的条件可以根据你的分类来调整。
PS：我也正在学VBA，还未入门，不对之处还望包涵。

Answer 3

用 格式-》条件格式本回答被网友采纳