KutoolsforOffice — 一套方案，五大工具。事半功倍。

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

作者Sun修改日期

假设有一列单元格已填充为红色或绿色背景，您希望根据其填充颜色自动输入对应文本：红色单元格填入“Yes”，绿色单元格填入“No”，其余既非红色也非绿色的单元格则填入“Neither”。
根据单元格填充颜色自动填充文本

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

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

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

示例文件

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

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

1. 选择一个单元格（例如 A1），点击已定义名称组中的公式> 定义名称。
点击公式 > 定义名称

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

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

在引用位置框中输入以下公式，然后单击确定。
将公式复制并粘贴到“新建名称”对话框中

Formula!A1 表示名为 Formula 的工作表中的 A1 单元格，10 和 3 是颜色编号，您可以根据需要修改。更多颜色编号，请参阅此网站：http://dmcritchie.mvps.org/excel/colors.htm

现在，在已填充颜色的单元格中，您可以输入以下公式：

=Mycolor

按下 Enter 键，即可根据单元格的填充颜色返回相应文本。
输入公式以获取结果

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

使用定义名称的方法每次都需要重新输入公式，较为繁琐。而 Kutools for Excel（一套 Excel 工具）的选择类似格式单元格功能，可快速选中所有相同背景颜色的单元格，轻松批量输入指定文本。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

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

1. 在两个未使用的单元格中分别填充背景颜色。例如，本例中我希望将蓝色单元格标记为“Go”，橙色单元格标记为“Stop”，因此我会在 A1 和 B1 单元格中分别填充橙色和蓝色。
为单元格填充背景色

2. 然后选中您要根据填充颜色输入文本的单元格，单击 Kutools > 选择 > 选择类似格式单元格。
点击 Kutools 的“选择具有格式的单元格”功能

3. 在选择类似格式单元格对话框中，单击从单元格选择格式按钮，然后在弹出的对话框中选择已填充目标颜色的单元格 A1.
点击“从单元格选择格式”按钮，并选择一个带颜色的单元格作为查找依据

单击确定返回主对话框，仅勾选填充复选框，并取消勾选忽略空白单元格选项。单击确定后，再单击是，即可选中所有填充蓝色的单元格。
所有填充了特定颜色的单元格均被选中所有填充了特定颜色的单元格均被选中

4. 现在在编辑栏中输入特定文本，按下 Ctrl + Enter 键，即可将相同内容快速填充到所有选中单元格中！
输入指定文本，按 Ctrl + Enter 键填充所有选中的单元格

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

如果您希望根据另一列中单元格的填充颜色来设置文本格式，可以使用自定义函数。

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 是您希望以其填充颜色来填充文本的单元格。
输入公式，根据单元格填充颜色来填充文本

示例文件

点击下载示例文件

其他操作（文章）

如何在 Excel 中根据分组交替设置行颜色？
在 Excel 中，为每隔一行着色对大多数人来说或许轻而易举，但您是否尝试过根据某一列的值变化来交替着色行——例如下图 A 列所示的效果？本文将为您详细介绍如何在 Excel 中实现按分组交替设置行颜色。

如何在多个单元格中应用颜色渐变填充？
在 Excel 中，我们可以轻松为单个或多个单元格填充背景色，但有时需要实现如下图所示的渐变填充效果。那么，如何在 Excel 的单个或多个单元格中实现颜色渐变呢？

如何在 Excel 中为行或列添加彩色条纹？
本文将为您介绍在 Excel 中为行或列添加彩色条纹的三种方法，请按以下步骤操作。

如何在 Excel 中为奇数或偶数行/列设置交替上色？
在设计工作表时，许多人喜欢为奇数或偶数行/列设置交替上色，以提升视觉效果。本文将为您介绍两种在 Excel 中实现奇偶行/列交替上色的方法。

  • 超级编辑栏（轻松编辑多行文本和公式）；阅读版式（轻松阅读和编辑大量单元格）；粘贴到筛选范围……
  • 合并单元格/行/列并保留数据；分割单元格内容；合并重复行并求和/求平均值……防止重复项单元格；比较区域……
  • 选择重复或唯一行；选择空白行（所有单元格均为空）；超级查找和模糊查找多个工作簿中的内容；随机选择……
  • 精准公式复制多个单元格而不更改公式引用；自动创建引用到多个工作表；插入项目符号、复选框等更多功能……
  • 收藏并快速插入公式、区域、图表和图片；加密单元格并设置密码；创建邮件列表并发送电子邮件……
  • 提取文本、添加文本、删除某位置字符、删除空格；创建并打印数据分页统计；在单元格内容与批注之间转换……
  • 超级筛选（保存并应用筛选方案到其他工作表）；高级排序按月/周/日、频率等分组；特殊筛选按加粗、倾斜等格式……
  • 合并工作簿和工作表；汇总表格基于关键列；分割数据到多个工作表；批量转换 xls、xlsx 和 PDF……
  • 数据透视表按周数、星期几等分组……显示未锁定、选区锁定并以不同颜色标识；高亮显示包含公式/名称的单元格……
kte tab 201905
  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑与阅读，大幅提升多文档操作效率！
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中操作。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！
officetab bottom