你好，希望螞蟻提供的方法能幫到你！

這里螞蟻覺得可以使用兩種方法來解決——定義區(qū)域求和、VBA

由于此情況使用函數(shù)（Function）比使用過程（Sub）更為方便、通用，且保存代碼以后粘貼即用，所以這里就以函數(shù)來演示。

各自優(yōu)點(diǎn)

VBA效率更高，保存代碼后，可以粘貼到任何表格使用

定于區(qū)域求和，更容易理解

兩者根據(jù)自己的情況進(jìn)行選擇

演示

這里我列了一組簡(jiǎn)單的數(shù)據(jù)作為演示。以下操作均來自于Excel 2010版本。

使用VBA求和

Option Explicit

Function Test(Color_Cell As Range, Sum_Range As Range)

'聲明變量 col 存儲(chǔ)顏色索引值

Dim col As Integer

'聲明變量 c 存儲(chǔ)位置信息

Dim c As Range

'將成員變量的顏色索引值賦給col

col = Color_Cell.Interior.ColorIndex

'遍歷 Sum_Range，如果被查找區(qū)域中有單元格背景色與待查找單元格的背景色相同，則累加值

For Each c In Sum_Range

If col = c.Interior.ColorIndex Then

Test = Test + c.Value

End If

Next c

End Function

這段代碼創(chuàng)建了一個(gè)新的函數(shù)【Test】，功能是給出需要查找的單元格背景色，然后從查找區(qū)域中找出所有相匹配的顏色，然后將匹配單元格中的值累加并輸出結(jié)果。里面我寫了注釋，可能注釋并不太專業(yè)，不過沒關(guān)系，復(fù)制保存，以后可以在任意電腦用，很方便。具體使用過程如圖，快捷鍵 【Alt + F11】快速調(diào)出VBE。

使用定義區(qū)域求和

這種方法的好處是不需要使用代碼，只是操作起來可能稍微時(shí)間長(zhǎng)一點(diǎn)。

操作方法：

1、使用【查找】功能，根據(jù)條件查找所有相同的顏色，然后使用【公式】選項(xiàng)卡下“定義名稱”組中的【定義名稱】功能，為選擇的顏色設(shè)定名稱。

注意：點(diǎn)擊查找全部以后，一定要全選結(jié)果，再關(guān)閉查找窗口，否則只會(huì)定義一個(gè)單元格的名稱，不會(huì)定義所有顏色的名稱。

2、直接使用求和公式求和

定義好所有需要求和的顏色種類的名稱后，就可以使用求和公式求和了。在需要展示結(jié)果的單元格中輸入【=Sum(綠色)】，回車就得到求和結(jié)果了。

注意，請(qǐng)將“綠色”替換為你單元格中的實(shí)際顏色。

好了，這兩種方法你都學(xué)會(huì)了嗎？謝謝閱讀，我是螞蟻，喜歡請(qǐng)點(diǎn)個(gè)贊，歡迎關(guān)注噢！