有这样一个需求就是实现EXCEL的相同内容的背景色相同、并且内容不同的时候达到隔行变色的效果，记录下实现的效果，如果大家有什么更好的办法请给我指点一下。具体操作如下：

首先将是比较的列"2014基药编码"列数据粘贴到Sheet2中，去除重复项，完成之后的sheet2效果如下：

将sheet1 表第一列插入一个新列命名为“分组号” ，在A2 的单元格中输入条件公式：=VLOOKUP(G2,Sheet2!A:B,2,FALSE)

公式 vlookup 各列的参数用法分别是:

G2 :是比较的sheet1单元格G2 。

Sheet2!A:B: 查找的内容是sheet2的a~b列的内容。

2: 最后获得的结果是Sheet2!A:B区域获得b列的内容。

false ：查找的条件 是模拟查找 还是精确查找  false 是精确查找，true 是模糊查找。

详细的用法百度。

成功之后 就会得到sheet2的值 1 ，其它单元格的内容直接 双击a2列复制公式即可。

效果如图：

选择 "视图"选项卡的”宏，单击"新建宏" 输入宏名，保存。然后在选择查看”宏“ ，打开 "宏" 编辑 窗口。点击："编辑”按钮“。粘贴如下代码：

点击"运行" 即可实现相同内容背景色、隔行变色的效果了。代码如下：

Sub SetStyle()Dim intFromRowNo As Long, intToRowNo As Long, intFromColNo As Long, intToColNo As Long, intCurrentID As LongDim intTempID As Long, intFlag As Long, intMod As Long, intColorIndex As LongDim IsChanged As Boolean '组号是否变化了intTempID = 1 '初始组号intFlag = 2 '变化标示：当组号发上变化时，该标识会自增1，当标识对2取模为1时，则需要调整式样(即逢偶数的组变式样)intFromRowNo = 2 '起始行号intToRowNo = ActiveSheet.UsedRange.Rows.Count '结束行号intFromColNo = 1 '起始列号intToColNo = ActiveSheet.UsedRange.Columns.Count '结束列号intColorIndex = 20 '20浅绿色；15灰色；For i = intFromRowNo To intToRowNo'当下一个组号与当前一样，式样不变intCurrentID = ActiveSheet.Cells(1)(i)IsChanged = intCurrentID = intTempIDIf (IsChanged = False) Then intFlag = intFlag + 1: intTempID = intCurrentID: intMod = intFlag Mod 2If (intMod = 1) Then ActiveSheet.Range(Cells(i, intFromColNo), Cells(i, intToColNo)).Interior.ColorIndex = intColorIndex: ActiveSheet.Range(Cells(i, intFromColNo), Cells(i, intToColNo)).Font.Bold = TrueNextEnd Sub