在 Excel 中，使用公式或定義的函數根據單元格填充顏色自動填寫文字

Author: Sun Last Modified: 2025-05-12

假設有一個列表的單元格填充了紅色或綠色背景色，現在您想根據單元格填充顏色來填寫文字。例如，如下截圖所示，將填充紅色的單元格填寫為“是”，填充綠色的單元格填寫為“否”，既不是紅色也不是綠色的單元格則填寫為“都不是”。
auto fill text based on the cell filled color

使用公式根據單元格填充顏色自動填寫文字

使用便捷工具根據單元格填充顏色自動填寫文字

使用定義的函數根據另一列中單元格填充顏色自動填寫文字

範例文件

使用公式根據單元格填充顏色自動填寫文字

要使用公式根據單元格填充顏色自動填寫特定文字，首先需要定義一個名稱。

1. 選擇一個單元格，假設是 A1，點擊公式 > 定義名稱 在 定義名稱 組中。
click Formulas > Define Name

2. 在 新建名稱 對話框中，在名稱框中輸入 Mycolor，並輸入此公式

=IF(GET.CELL(38,formula!A1)=10,"No",IF(GET.CELL(38,formula!A1)=3,"Yes","Neither"))

到 引用位置 文本框中。點擊確定。
copy and paste the formula into the New Name dialog box

Formula!A1 表示名為 formula 的工作表中的單元格 A1，10 和 3 是顏色編號，您可以根據需要更改它們。更多顏色編號，請參閱此網站：http://dmcritchie.mvps.org/excel/colors.htm

現在，在填充了顏色的單元格中，您可以輸入此公式

=Mycolor

按下 Enter 鍵，然後您將根據單元格填充顏色返回文字。
enter a formula to get the result

使用便捷工具根據單元格填充顏色自動填寫文字

使用定義名稱的方法，每次都需要重新在單元格中輸入公式，這很麻煩。這裡使用 Kutools for Excel，一套 Excel 工具，其 選擇類似格式單元格 功能可以快速選擇所有具有相同背景色的單元格，然後您可以批量輸入指定的文字。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 在兩個未使用的單元格中分別填充背景色。假設，在這種情況下，我想將文字“Go”填入藍色單元格，將文字“Stop”填入橙色單元格，我會將橙色和藍色分別填入單元格 A1 和 B1。
fill background color to cells

2. 然後選擇您想要根據填充顏色輸入文字的單元格，點擊 Kutools > 選擇 > 選擇類似格式單元格。
click Select Cells with Format feature of kutools

3. 在 選擇類似格式單元格 對話框中，點擊 從單元格選擇格式 按鈕，然後在彈出的對話框中選擇 A1，該單元格已填充了您想要查找的顏色。
click Choose Format From Cell button and select a cell with color to find cells based on

點擊確定回到主對話框，取消勾選除填充複選框外的所有選項，並取消勾選 忽略空白單元格 選項。點擊確定 > 是以選擇所有填充了藍色的單元格。
uncheck all except the Fill checkbox in the dialog box all cells filled with specific color are selected

4. 現在在公式欄中輸入特定文字，按 Ctrl + Enter 鍵以將所有選中的單元格填充相同的文字。
type the specific text, press Ctrl + Enter key to fill all selected cells

使用定義的函數根據另一列中單元格填充顏色自動填寫文字

如果您想根據另一列中單元格填充顏色來填寫文字，可以使用定義函數。

1. 按 Alt +F11 鍵啟動 Microsoft Visual Basic for Applications 窗口。

2. 點擊插入 > 模塊在窗口中插入一個空白腳本，然後複製並粘貼下面的代碼。

VBA：根據另一個單元格的填充顏色填寫單元格

Function GetRangeColor(xRg As Range)
'UpdatebyKutools20191125
    If (xRg.Count > 1) Then
       GetRangeColor = "Only work for single cell"
    End If
    Select Case xRg.Interior.Color
    Case RGB(255, 0, 0)
        GetRangeColor = "Play"
    Case RGB(0, 255, 0)
        GetRangeColor = "Stop"
    Case Else
      GetRangeColor = "Neither"
    End Select
End Function

在代碼中，RGB(255, 0, 0) 和 RGB(0, 255, 0) 是顏色編號，您可以根據需要更改它們。更多顏色編號，請參閱此網站：http://dmcritchie.mvps.org/excel/colors.html

3. 保存此代碼並關閉窗口返回工作表。然後在單元格中輸入公式

=GetRangeColor(A1)

按下 Enter 鍵，然後拖動填充柄覆蓋單元格以填充此公式。

A1 是您希望根據其填充顏色填寫文字的單元格。
type the formula to fill text based on its filled color