EXCEL2007中有两列完全相同数据,但是颜色不一样,如何让他们的颜色对应起来?
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/31 20:49:58
EXCEL2007中有两列完全相同数据,但是颜色不一样,如何让他们的颜色对应起来?
A列 B列
红色 黑色
红色 红色
黑色 红色
红色 黑色
红色 黑色
如何在不改变B列的本来黑色的时候,将A列红色对应的B列黑色变成红色?
问题中的“黑色、红色”等表示A列、B列单元格字体的颜色,不会上传附件和插入图片,只好用汉字代表颜色设置.
A列 B列
红色 黑色
红色 红色
黑色 红色
红色 黑色
红色 黑色
如何在不改变B列的本来黑色的时候,将A列红色对应的B列黑色变成红色?
问题中的“黑色、红色”等表示A列、B列单元格字体的颜色,不会上传附件和插入图片,只好用汉字代表颜色设置.
![EXCEL2007中有两列完全相同数据,但是颜色不一样,如何让他们的颜色对应起来?](/uploads/image/z/18587434-58-4.jpg?t=EXCEL2007%E4%B8%AD%E6%9C%89%E4%B8%A4%E5%88%97%E5%AE%8C%E5%85%A8%E7%9B%B8%E5%90%8C%E6%95%B0%E6%8D%AE%2C%E4%BD%86%E6%98%AF%E9%A2%9C%E8%89%B2%E4%B8%8D%E4%B8%80%E6%A0%B7%2C%E5%A6%82%E4%BD%95%E8%AE%A9%E4%BB%96%E4%BB%AC%E7%9A%84%E9%A2%9C%E8%89%B2%E5%AF%B9%E5%BA%94%E8%B5%B7%E6%9D%A5%3F)
用VBA解决.
Sub 变色()
i = 1
Do Until Cells(i,1) = ""
If Cells(i,1).Font.ColorIndex = 3 Then
Cells(i,2).Font.ColorIndex = 1
End If
i = i + 1
Loop
End Su
Sub 变色()
i = 1
Do Until Cells(i,1) = ""
If Cells(i,1).Font.ColorIndex = 3 Then
Cells(i,2).Font.ColorIndex = 1
End If
i = i + 1
Loop
End Su