Excel相同內容如何設置相同的背景色

 

有這樣一個需求就是實現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 Long
Dim intTempID As Long, intFlag As Long, intMod As Long, intColorIndex As Long

Dim 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 = intTempID

If (IsChanged = False) Then intFlag = intFlag + 1: intTempID = intCurrentID: intMod = intFlag Mod 2

If (intMod = 1) Then ActiveSheet.Range(Cells(i, intFromColNo), Cells(i, intToColNo)).Interior.ColorIndex = intColorIndex: ActiveSheet.Range(Cells(i, intFromColNo), Cells(i, intToColNo)).Font.Bold = True

Next
End Sub