ctrl+F查詢，選項，格式，填充（選綠色），查詢全部，在查詢結果裡，選中第一個，拉捲軸到最後，按著shift點選最後一個，關閉查詢對話方塊，在公式編輯欄輸入1，按Ctrl+enter填充，在後邊用公式=SUM(B1:H1)/COLUMNS(B1:H1)即可得到綠色的佔比，想要百分比形式，單元格格式設定為百分比就OK了！
附件是我做的動畫，範圍跟你的不太相同，不過道理是一樣的。
如果不喜歡就VBA自定義函數了，統計某種顏色個數
Function Count背景色(colAs Range, countrange As Range) As Integer
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Count背景色= Count背景色+ 1
End If
Next icell
End Function
程式碼不會用就百度下吧。
I2公式=COUNT背景色(A$6,B2:H2)/COLUMNS(B1:H1)
ctrl+F查詢，選項，格式，填充（選綠色），查詢全部，在查詢結果裡，選中第一個，拉捲軸到最後，按著shift點選最後一個，關閉查詢對話方塊，在公式編輯欄輸入1，按Ctrl+enter填充，在後邊用公式=SUM(B1:H1)/COLUMNS(B1:H1)即可得到綠色的佔比，想要百分比形式，單元格格式設定為百分比就OK了！
附件是我做的動畫，範圍跟你的不太相同，不過道理是一樣的。
如果不喜歡就VBA自定義函數了，統計某種顏色個數
Function Count背景色(colAs Range, countrange As Range) As Integer
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Count背景色= Count背景色+ 1
End If
Next icell
End Function
程式碼不會用就百度下吧。
I2公式=COUNT背景色(A$6,B2:H2)/COLUMNS(B1:H1)