錦子老師

在Excel表格中，會有一些豬管喜歡給不同的內容標上不同的填滿色彩以示區分。但問題就來了，到底該怎麼對不同的填滿色彩進行簡單統計，比如求個和、計個數之類的呢？

本篇將分成三天介紹三種方法來對不同底色的儲存格進行計數操作：

1) 使用篩選和SUBTOTAL函數

2) 使用GET.CELL函數

3) 使用巨集VBA

今天來介紹3) 使用巨集VBA的使用方法。

首先按ALT+F11鍵切換到VBA視窗。

點取「插入 > 模組」指令，新增一張空白模組工作表。

利用VBA創建一個自定義函數，然後將以下代碼加到一個新的模組中：

Function GetColorCount(CountRange As Range, CountColor As Range)

Dim CountColorValue As Integer

Dim TotalCount As Integer

CountColorValue = CountColor.Interior.ColorIndex

Set rCell = CountRange

For Each rCell In CountRange

If rCell.Interior.ColorIndex = CountColorValue Then

TotalCount = TotalCount + 1

End If

Next rCell

GetColorCount = TotalCount

End Function

這個名為GetColorCount的自定義函數有兩個參數，分別：

-CountRange是為了來定義需要計算筆數某個填滿色彩儲存格的範圍。

-CountColor則是為了確定這一個色彩。

在儲存格Q2中輸入公式=GetColorCount($A$2:$A$65,Q2)，也就是說需要在A2:A65這個範圍找到與Q2儲存格填滿色彩相同的儲存格數量。