大家好，我是懂點 Excel 的小蘭~

剛剛結(jié)束的?#TFBOYS 十年之約演唱會#大家都聽說過嗎？

前幾天上網(wǎng)沖浪的時候，我總能在熱搜上看到相關(guān)消息，不過作為一名 Excel 使用者，最令我感興趣的還是各家的燈牌。

雖然就 3 種顏色，但一眼望去，眼花繚亂，真的很難分清每種顏色數(shù)量有多少。

在 Excel 中，我們有時也會遇到這種情況——用不同的顏色標記單元格，最后需要按顏色統(tǒng)計個數(shù)。

如下圖：

Excel 中沒有統(tǒng)計顏色的函數(shù)，不過可以用 VBA 自定義一個，不用覺得很難，代碼我已經(jīng)準備好了，你只要會套用就行！

學會后，再多的顏色也不怕！

如果你想系統(tǒng)學習 Excel，但不知道從何下手，可以點擊下方的小程序參加我們的《3 天 Excel 集訓營》??????

那么，接下來就來看看創(chuàng)建步驟吧~（記得先將 Excel 文件保存為.xlsm 格式。）

? 按【Alt+F11】快捷鍵打開 VBA 編輯器。

? 在工程窗口中選中「本文檔」-【右鍵】-【插入】-【模塊】。

? 將下方的代碼復制到剛才新建的模塊中。

• Function?Countc(i As Range, j As Range)
  

• '新建一個自定義函數(shù)，函數(shù)名為?Countc（參數(shù) 1 是一個區(qū)域 i，參數(shù) 2 也是一個區(qū)域 j）
  

• Dim?n As Integer ?'定義一個變量 n，變量 n 為數(shù)值
  

• Dim?k As Range ? ?'定義一個變量 k，變量 k 為區(qū)域
  

• For?Each k In i ? '遍歷區(qū)域 i 的所有單元格
  

• ?? ?If?k.Interior.Color = j.Interior.Color Then
  

• ?? ?'如果區(qū)域?i 的第 k 個單元格顏色與區(qū)域 j 相同
  

• ?? ? ? ?n?=?n + 1
  

• ?? ? ? ?'用于計數(shù)的?n 加 1
  

• ?? ?End?If
  

• Next
  

• Countc?=?n ?'將 n 復制給 Countc，作為這個函數(shù)的輸出結(jié)果
  

• End?Function

按【Ctrl+S】快捷鍵保存，然后點擊右上角的×關(guān)掉 VBA 編輯頁面。

到這里，我們就創(chuàng)建好自定義函數(shù)?Countc?了，那么自定義函數(shù)要怎么使用呢？

很簡單。

就和普通函數(shù)一樣的使用方法。

Countc 基本語法：=Countc(要統(tǒng)計顏色的單元格范圍,要統(tǒng)計的顏色)

? 在 G3 單元格中使用函數(shù)：

公式如下：

• =countc($D$2:$D$11,G2)
  

? 向右填充。

VBA 自定義函數(shù)創(chuàng)建之后，以后要按顏色統(tǒng)計單元格的個數(shù)時，只要像平常使用函數(shù)一樣使用即可。

不過需要注意的是，自定義函數(shù)只在當前工作簿中使用，其他未創(chuàng)建自定義函數(shù)的工作簿，并不能使用。如果是 WPS，還需要安裝 VBA 插件才能使用，插件獲取方法見文末哦~

多學多練才能更快掌握 Excel，如果你想學習更多 Excel 技巧，想擁有更多練手機會，還想遇到問題時有老師指點……

歡迎報名我們秋葉家的《3 天 Excel 集訓營》，這里有老師直播+錄播教學，有助教群內(nèi) 1 對 1 答疑，還有同學一起交流進步！

3 天時間，每天 30 分鐘左右，你也有可能成為 Excel 高手！

Excel 3 天集訓營

提升效率，助你準時下班

數(shù)據(jù)可視化，讓領(lǐng)導刮目相看

秋葉 Excel 讀者專享

官網(wǎng)價?99?

現(xiàn)在僅需 1 元

點擊圖片掃碼即可報名

??????

↑↑↑

現(xiàn)在報名免費獲取

307 個函數(shù)清單

35 個常用函數(shù)說明

常用快捷鍵大全

20 套 Excel 實戰(zhàn)圖表案例

……

*廣告