根据你的需求，以下是几种无需VBA宏的实现方案，适用于Excel环境：

核心前提：计算颜色相似度 #

首先需要量化候选颜色与目标颜色的色差，最常用的是RGB欧氏距离公式——数值越小，颜色越接近。
假设目标RGB值在A1（红）、B1（绿）、C1（蓝），候选RGB列表在A3:C10：
在D3输入公式，下拉填充到所有候选行：

=SQRT(($A$1-A3)^2 + ($B$1-B3)^2 + ($C$1-C3)^2)

方案一：手动联动更新（适合低频修改场景） #

这是最直接的无宏方案，仅需手动同步填充色：

1. 定位最佳匹配：在空白单元格（如E1）输入公式，获取最小色差的候选行号：

   =MATCH(MIN(D:D), D:D, 0)
   

2. 设置目标色填充：选中A1:C1，点击「填充颜色」→「更多颜色」→「自定义」，输入A1的红值、B1的绿值、C1的蓝值，确定。
3. 设置最佳匹配色填充：根据E1返回的行号，找到对应候选行（如第5行的A5:C5），同样在自定义颜色面板输入该行的RGB值完成填充。
4. 更新规则：若目标RGB或候选列表变动，重新计算色差后，重复步骤2-3即可。

方案二：利用名称管理器+宏表函数（接近自动，无需VBA宏） #

该方案借助Excel的宏表函数实现填充色与RGB值的联动，无需编写VBA代码：

1. 定义名称：点击「公式」→「名称管理器」→「新建」，添加两个名称：
   • 名称：TargetRGB，引用位置：=Sheet1!$A$1&","&Sheet1!$B$1&","&Sheet1!$C$1
   • 名称：BestMatchRGB，引用位置：=INDEX(Sheet1!$A$3:$C$10,MATCH(MIN(Sheet1!$D$3:$D$10),Sheet1!$D$3:$D$10,0),1)&","&INDEX(Sheet1!$A$3:$C$10,MATCH(MIN(Sheet1!$D$3:$D$10),Sheet1!$D$3:$D$10,0),2)&","&INDEX(Sheet1!$A$3:$C$10,MATCH(MIN(Sheet1!$D$3:$D$10),Sheet1!$D$3:$D$10,0),3)
2. 设置填充色联动：
   • 目标单元格A1:C1：选中后，打开「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」，输入公式=TRUE，然后设置自定义填充色为A1、B1、C1的RGB值。
   • 最佳匹配行：选中候选区域A3:C10，新建条件格式规则，公式输入=D3=MIN($D$3:$D$10)，设置自定义填充色为对应行的RGB值。
   • 注：当RGB值变动时，色差会自动更新，条件格式会自动选中新的最佳匹配行，仅需手动重新设置一次填充色即可同步。

方案三：Excel 365动态数组简化定位 #

如果你使用的是Excel 365，可借助动态数组快速提取最佳匹配的RGB值：

1. 计算色差同核心前提步骤。
2. 提取最佳匹配RGB：在F1:H1输入公式，自动返回最佳匹配的红、绿、蓝值：

   =INDEX(A3:C10, MATCH(MIN(D3:D10), D3:D10, 0), 0)
   

3. 后续填充色设置同方案一，仅需参考F1:H1的数值快速设置即可。

内容的提问来源于stack exchange，提问作者Enantiomeer