在Excel表格中，有時需要根據(jù)某些條件來對單元格進行顏色填充。例如，在一個表格中，如果某個單元格的值與上一個單元格相同，則將該單元格填充為綠色；否則填充為紅色。手動填充這些顏色比較繁瑣，因此可以使用

在Excel表格中，有時需要根據(jù)某些條件來對單元格進行顏色填充。例如，在一個表格中，如果某個單元格的值與上一個單元格相同，則將該單元格填充為綠色；否則填充為紅色。手動填充這些顏色比較繁瑣，因此可以使用VBA程序來自動處理。

VBA程序?qū)崿F(xiàn)步驟

1. 打開Excel表格后，點擊【開發(fā)工具】、【Visual Basic】打開VBA編輯器，也可以使用鍵盤上的【Alt F11】組合鍵打開VBA編輯器。

2. 在VBA編輯器的菜單欄上點擊【插入】、【模塊】。

3. 在“模塊”的代碼框中輸入以下VBA程序代碼：

```

Sub ColorChange()

Dim v1, v2, ro, co

On Error Resume Next '忽略運行過程中可能出現(xiàn)的錯誤

Set mysheet1 ("Sheet1") '定義工作表

For co 1 To 20 '從第1列到20列

v1 ""

v2 ""

For ro 1 To 1000 '從第一行到1000行

If mysheet1.Cells(ro, co) <> "" Then '如果單元格不是空白

v1 v2 '把v2的值賦給v1

v2 mysheet1.Cells(ro, co) '把單元格的值賦給v2

If v1 <> "" And v1 v2 Then '如果v1不是空白且v1等于v2

mysheet1.Cells(ro, co) RGB(0, 255, 0) '填充的顏色為綠色

End If

If v1 <> "" And v1 <> v2 Then '如果v1不是空白且v1不等于v2

mysheet1.Cells(ro, co) RGB(255, 0, 0) '填充的顏色為紅色

End If

End If

Next

Next

End Sub

```

4. 輸入完程序后，點擊工具欄上的“運行”圖標運行程序，也可以直接按下鍵盤上的【F5】鍵運行程序。

5. 表格上的顏色將會自動填充完成。

VBA程序思路解讀

1. 在進行單元格數(shù)值對比判斷時，需要借助一個中間變量（如：v1）來存儲上一個單元格的值，以便與后面的值進行對比。同時，每執(zhí)行一列時，需要對中間變量的值進行初始化，以免后續(xù)的判斷出錯。

2. 在不確定RGB值所表示的顏色時，可以在Excel表格的工具欄點擊“填充顏色”的下拉選項，選擇“其他顏色”，之后點擊【自定義】，在“顏色模式”里選擇“RGB”，再輸入相應(yīng)的數(shù)值即可看到新的顏色。