在Excel表格中，我們經常會使用顏色來突出顯示一些特定的單元格。如果我們想要統計某一種顏色的單元格數量，可以借助VBA程序來實現，并將結果顯示出來。打開Excel表格并啟用開發工具1. 打開Exce

在Excel表格中，我們經常會使用顏色來突出顯示一些特定的單元格。如果我們想要統計某一種顏色的單元格數量，可以借助VBA程序來實現，并將結果顯示出來。

打開Excel表格并啟用開發工具

1. 打開Excel表格，在菜單欄中點擊【文件】，然后選擇【選項】。

2. 在彈出的對話框中，點擊【自定義功能區】選項卡，在右側的列表中勾選“開發工具”。

3. 點擊【信任中心】，再點擊【信任中心設置】，確保已啟用宏功能。

4. 在【宏設置】中選擇“啟用所有宏”，然后保存并關閉Excel表格。

插入VBA代碼模塊

1. 在Excel中點擊【開發工具】，再點擊【Visual Basic】，打開VBA編輯器。

2. 在VBA編輯器中，找到“VBAProject（使用VBA統計帶顏色單元格數量.xlsx）”，右鍵點擊并選擇【插入】，再選擇【模塊】。

3. 雙擊打開新插入的模塊，將以下代碼粘貼到代碼窗口中：

```

Sub Count()

Dim a, b, c, d, i, j As Long

' 定義數據類型

a Worksheets("Sheet1").Range("A3") ' 將A3單元格的顏色值賦給a

b Worksheets("Sheet1").Range("D4") ' 將D4單元格的顏色值賦給b

c 0 ' 對c進行初始化賦值

d 0 ' 對d進行初始化賦值

For i 2 To 100 ' 從第2行到第100行進行循環執行

For j 1 To 9 ' 從第1列到第9列進行循環執行

' 查找范圍相當于A2:I100

If Worksheets("Sheet1").Cells(i, j) a Then

c c 1 ' 如果找到的單元格顏色與A3單元格相同，則加1

Worksheets("Sheet1").Range("J3") c ' 將結果輸出到Sheet1表格的J3單元格

End If

If Worksheets("Sheet1").Cells(i, j) b Then

d d 1 ' 如果找到的單元格顏色與D4單元格相同，則加1

Worksheets("Sheet1").Range("J5") d ' 將結果輸出到Sheet1表格的J5單元格

End If

Next

Next

End Sub

```

運行VBA程序并查看結果

1. 點擊VBA編輯器中的“運行”圖標，或按下鍵盤上的【F5】鍵，即可執行VBA程序。

2. 程序會計算出帶有填充顏色的單元格的數量，并將結果顯示在Excel表格的J3和J5單元格中。

保留VBA程序的功能

如果想要保留Excel表格中的VBA程序功能，可以將其另存為“啟用宏的工作薄”。

1. 點擊Excel表格中的【文件】，選擇【另存為】。

2. 在保存類型中選擇“Excel 啟用宏的工作薄”。

3. 輸入文件名并保存。

通過以上步驟，您可以使用VBA程序方便地統計Excel表格中特定顏色單元格的數量，并保留該功能以供將來使用。