excel怎麼按顏色求和

2019-12-06 08:41:25

本例向大家介紹如何在Excel中根據單元格填充顏色來求和。

首先，看一下原始資料。

原始資料A列是姓名，B列是對應的數量。現在需要對黃色標註的單元格數量求和。

首先，按Alt+F11進入VBE編輯介面。

如下圖，選擇【插入】-【模組】插入一個新的模組，完成效果如下圖：

雙擊模組名稱，在右側的空白處貼上如下程式碼然後儲存：

Function 顏色求和(參照顏色區 As Range, 求和區 As Range)

Dim cell As Range, Colors, Data1, Data2 As Integer

Application.Volatile

Colors = 參照顏色區(1).Interior.Color

For Each cell In 求和區

If cell.Interior.Color = Colors Then

Data2 = Data2 + 1

Data1 = WorksheetFunction.Sum(cell) + Data1

End If

Next cell

If Data2 = 0 Then 顏色求和 = "無此背景色": Exit Function

顏色求和 = Data1

End Function

返回工作表介面，雙擊任意單元格，輸入下列公式後回車：

=顏色求和(B3,B2:B12)

其中的B2是要求和單元格顏色的參考單元格，只要底色和要求和單元格顏色一致即可。第二引數B2:B12是要求和單元格所在的區域。

按照上述操作完成以後單元格內就返回了所有黃色標註單元格的數量合計。

本操作是在當前工作簿中進行的，如果想在所有工作簿中都可以使用該自定義函數，可以參考我的另外一篇經驗「個人巨集工作簿使VBA程式碼在本機任何工作簿都可用」將該模組插入在個人巨集工作簿中即可。