【VBA研究】Excel信息对比及单元格颜色设置

作者：iamlaosong

1、需求是对一个文件中某个工作表中的邮件号码在另一个文件中进行查找，找到后比较附加信息，如果不一致或者有重复，则进行记录，同时对比较的号码进行标注。找不到当然也会记录。为此做了以比较通用的工具，工具可以实现一个文件工作表中的号码对比另一个文件中一个或所有工作表中的号码，同时还可以比较 最多6列附加信息。如果发现不一致，则记录原表信息和不一致的附加信息，同时，按照设定的颜色对被比较的文件中的号码进行颜色标注，正常匹配的号码改变字体颜色（比如蓝色），异常不匹配的号码改变底色（一般用红色），这样比较醒目，以便修改和查找原因。

2、标注的办法是改变单元格的颜色。单元格的颜色分字体颜色和背景颜色两种，设置颜色的方法有三种，色值、RGB函数和颜色序号，代码如下：

'设置颜色的方法
Sub SetColor()
    '设置字体颜色：红色
    Sheets(1).Cells(13, 1).Font.Color = 255
    Sheets(1).Cells(13, 2).Font.Color = RGB(255, 0, 0)     'R红、G绿、B蓝分量