在Excel中使用公式或定义的函数根据单元格填充颜色自动填充文本

Author: Sun Last Modified: 2025-05-07

假设有一个列表，其中的单元格背景颜色为红色或绿色，现在您希望根据单元格的填充颜色来填充文本。例如，如下截图所示，将填充红色的单元格填入“是”，填充绿色的单元格填入“否”，既不是红色也不是绿色的单元格则填入“都不是”。
auto fill text based on the cell filled color

使用公式根据单元格填充颜色自动填充文本

使用便捷工具根据单元格填充颜色自动填充文本

使用定义的函数根据另一列中的单元格填充颜色自动填充文本

示例文件

使用公式根据单元格填充颜色自动填充文本

要使用公式根据单元格填充颜色自动填充特定文本，首先需要定义一个名称。

1. 选择一个单元格，假设为A1，点击公式 > 定义名称 在 已定义名称 组中。
click Formulas > Define Name

2. 在新建名称对话框中，在名称框中输入Mycolor，并输入以下公式

=IF(GET.CELL(38,formula!A1)=10,"否",IF(GET.CELL(38,formula!A1)=3,"是","都不是"))

到 引用位置 文本框中。点击确定.
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

使用便捷工具根据单元格填充颜色自动填充文本

使用定义名称的方法时，每次都需要重新在单元格中输入公式，这很麻烦。这里借助 Excel 工具集合 Kutools for Excel，其“选择格式相似的单元格”功能可以快速选择所有具有相同背景色的单元格，然后您可以批量输入指定的文本。

Kutools for Excel 提供了超过 300 种高级功能，简化复杂任务，提升创造力与效率。 通过集成 AI 能力，Kutools 能够精准自动执行任务，让数据管理变得轻松简单。Kutools for Excel 的详细信息... 免费试用...

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 在两个未使用的单元格中分别填充背景颜色。假设在这种情况下，我想在蓝色单元格中填入“前进”，在橙色单元格中填入“停止”，我将在单元格 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