最新版Excel如何使用单元格内的十六进制颜色值自动填充该单元格

1. Microsoft Excel / WPS 表格（VBA宏方案） #

• 选中你规划为Hex列的对应单元格范围，比如Hex色号存放在B列，就选中B列需要生效的单元格区域
• 按下Alt + F11打开VBA编辑器，双击左侧面板中当前工作表的名称，粘贴下方代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim HexRng As Range
    ' 此处修改为你实际的Hex列范围，示例为B列全列生效
    Set HexRng = Me.Range("B:B")
    If Not Intersect(Target, HexRng) Is Nothing Then
        On Error Resume Next
        ' 自动清除色号前的#号
        Dim HexCode As String
        HexCode = Replace(Target.Value, "#", "")
        ' 校验是否为6位合法十六进制字符
        If Len(HexCode) = 6 And IsNumeric("&H" & HexCode) Then
            ' 转换为RGB值赋值背景色
            Target.Interior.Color = RGB( _
                Application.Hex2Dec(Left(HexCode, 2)), _
                Application.Hex2Dec(Mid(HexCode, 3, 2)), _
                Application.Hex2Dec(Right(HexCode, 2)) _
            )
            ' 可选逻辑：根据背景亮度自动切换字体颜色，避免文字看不清
            Dim Brightness As Double
            Brightness = (0.299 * Application.Hex2Dec(Left(HexCode, 2)) + 0.587 * Application.Hex2Dec(Mid(HexCode, 3, 2)) + 0.114 * Application.Hex2Dec(Right(HexCode, 2))) / 255
            If Brightness < 0.5 Then
                Target.Font.Color = RGB(255, 255, 255)
            Else
                Target.Font.Color = RGB(0, 0, 0)
            End If
        Else
            ' 输入内容不符合色号规则时清空背景色
            Target.Interior.ColorIndex = xlColorIndexNone
            Target.Font.ColorIndex = xlColorIndexAutomatic
        End If
        On Error GoTo 0
    End If
End Sub

• 保存文件时选择启用宏的工作簿（.xlsm / .et）格式即可，后续在指定列输入带#或不带#的6位Hex色号，就会自动填充对应背景色。

2. Google Sheets（条件格式+自定义函数方案） #

• 选中Hex列需要生效的单元格范围，点击顶部菜单「格式」-「条件格式」
• 右侧规则设置面板中，格式规则选择「自定义公式为」，输入如下公式：
  =AND(LEN(SUBSTITUTE(A1,"#",""))=6, ISNUMBER(HEX2DEC(SUBSTITUTE(A1,"#",""))))
  注意将公式中的A1替换为你选中范围的首个单元格坐标
• 点击「填充颜色」旁的自定义颜色输入框，输入下方自定义函数调用即可完成绑定：

=HEX2RGB(SUBSTITUTE(A1,"#",""))

• 保存规则后，后续在对应单元格输入色号就会自动匹配背景色。

通用注意事项 #

• 如果需要支持3位简写Hex色号，可自行在代码/公式中增加3位补全6位的逻辑，例如将abc补为aabbcc
• 若想同时保留色号文本可读性、单独显示色块，可额外增加一列专门用于展示色块，引用Hex列的数值做背景填充即可，不会影响原数据列的内容。

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