Excel表格中如何快速提取单元格的背景颜色代码

可通过vba自定义函数获取excel单元格背景色的rgb或十六进制代码：一、启用开发工具并插入模块，粘贴getcellcolorcode函数提取rgb值；二、用=getcellcolorcode(a1)调用；三、新增getcellhexcolor函数输出#rrggbb格式；四、对条件格式颜色，改用displayformat属性并添加错误处理。

工作中你是不是也遇到过这个难题：精心设置好Excel表格的配色后，想在其他地方复用相同的背景色，却怎么也找不到那个精确的RGB值？Excel的内置函数库对此确实束手无策，但别担心，我们有更强力的工具——VBA自定义函数。下面这份实操指南，能让你一键获取单元格的背景色代码。

一、启用Excel开发工具并插入VBA模块

想调用自定义函数，第一步得先请出Excel的“开发工具”。之后创建一个VBA函数，它的核心任务就是读取单元格的填充色属性，并把它翻译成我们熟悉的RGB格式。

操作路径其实很清晰：首先，点击“文件”菜单，进入“选项”，找到“自定义功能区”。在这里，勾选上“开发工具”的复选框，确认即可。

接着，在新增的“开发工具”选项卡里，点击“Visual Basic”按钮，编辑器窗口就会打开。在编辑器左侧的“工程资源管理器”中，右键点击你的工作簿名称或“Normal”，选择“插入”一个“模块”。

最后，把下面这段代码粘贴到新模块的编辑窗口中：

Function GetCellColorCode(cell As Range) As String Dim r As Long, g As Long, b As Long r = cell.Interior.Color Mod 256 g = (cell.Interior.Color \ 256) Mod 256 b = (cell.Interior.Color \ 65536) Mod 256 GetCellColorCode = “RGB(” & r & “,” & g & “,” & b & “)” End Function

二、在工作表中调用自定义函数

函数定义好之后，用起来就和普通公式一样简单。它能实时响应当前单元格的背景色变化，并返回标准的RGB字符串。

回到Excel工作表界面，找个空白单元格，输入公式：=GetCellColorCode(A1)。这里A1只是一个例子，把引用换成你想查看颜色的那个单元格就行。

按下回车，结果立刻显现，格式类似“RGB(255,204,0)”。如果目标单元格是默认的无填充状态（白色），函数会返回“RGB(255,255,255)”。有意思的是，如果单元格是真正的“透明”未着色状态，函数则会返回“RGB(0,0,0)”，这是因为在Excel的底层逻辑里，无色对应的ColorIndex值就是0。

三、扩展支持十六进制颜色代码输出

RGB格式很通用，但在网页设计或某些编程场景里，大家更习惯使用#RRGGBB这样的十六进制码。原函数不支持这个，所以我们需要一个“升级版”。

再次打开VBA编辑器，就在刚才那个模块里，紧接着之前函数的下方，粘贴另一段新代码：

Function GetCellHexColor(cell As Range) As String Dim clr As Long clr = cell.Interior.Color GetCellHexColor = “#” & Right(“00” & Hex(clr Mod 256), 2) & _ Right(“00” & Hex((clr \ 256) Mod 256), 2) & _ Right(“00” & Hex(clr \ 65536), 2) End Function

这个函数通过位运算精准提取颜色通道，并格式化为两位的十六进制数。保存后回到工作表，输入=GetCellHexColor(B2)，就能得到像“#CCFF99”这样的六位颜色码了。

四、处理条件格式导致的颜色不可读问题

到这里，你可能发现了一个盲区：如果单元格颜色是条件格式动态生成的，上面的函数就失灵了。这是因为“.Interior.Color”属性只认手动设置的填充色，对条件格式渲染出的颜色视而不见。

解决办法是改用“.DisplayFormat”这个属性，它能获取单元格在屏幕上实际显示的样子。当然，为了代码更健壮，最好加上错误处理。可以创建第三个函数：

Function GetDisplayedColorCode(cell As Range) As String Dim r As Long, g As Long, b As Long On Error Resume Next r = cell.DisplayFormat.Interior.Color Mod 256 g = (cell.DisplayFormat.Interior.Color \ 256) Mod 256 b = (cell.DisplayFormat.Interior.Color \ 65536) Mod 256 If Err.Number <> 0 Then GetDisplayedColorCode = “N/A (Conditional Format Active)” Else GetDisplayedColorCode = “RGB(” & r & “,” & g & “,” & b & “)” End If On Error GoTo 0 End Function

在工作表中调用 =GetDisplayedColorCode(C3)。当目标单元格的颜色由条件格式控制且无手动填充时，它会友好地返回“N/A (Conditional Format Active)”，清楚地告诉你这个颜色无法直接捕获。