作者：乔山办公网日期：
返回目录：excel表格制作
不知道你抄要将红色单元格的位置显示在什么地方
以下代码可将（B10：H50）范围内所有填充颜色为红袭色的单元格的地址显示在A列（由左到右，知由上到下）
Sub 判断红色填充单元格()
Dim rg As Range
For Each rg In Range("b10:h50")
If rg.Interior.ColorIndex = 3 Then
r = r + 1
Cells(r, 1) = rg.Address
End If
Next
End Sub
已上传道附件，点击按钮即可验证
如你的数百据在A列，代度码如下。
sub aa ()
for x =1 to range("A65536").end(xlup).row'建立循问环
if cells(x,1)=6 then'判断单元格答值
cells(x,1).interior.colorIndex = 3'单元格值等于专6时，该单元格填属充红色
end if
next x
end sub
Sub 如果底色全红B1为5()
For Each a In Range("A1:A10")
If a.Interior.Color <> vbRed Then
Range("B1").Value = ""
Exit Sub
End If
Next a
Range("B1").Value = 5
End Sub
Sub 如果字体全红B2为5()
For Each a In Range("A1:A10")
If a.Font.Color <> vbRed Then
Range("B1").Value = ""
Exit Sub
End If
Next a
Range("B1").Value = 5
End Sub
For Each a In Range("A1:A10")——搜索区域 Range("A1:A10")
a——为区域中某个单元格e79fa5e98193e78988e69d83339
a.Interior.Color——为单元格底色
a.Font.Color——为单元格字体颜色
vbRed——为常量“红色”
Range("B1").Value = ""——不为红色清空B1
Range("B1").Value = 5——全为红色赋值为5
材料/工具：Excel2010
1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器zhidao，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。
2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。
3、在VBA编辑器代回码框里面输入以下代码：
4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。
5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。
6、VBA自动填充满足条答件的行的颜色完成。