求助：用VBA获取Excel条件格式单元格的RGB颜色代码

你的问题出在**Interior.Color只能读取单元格的基础填充色**，而条件格式是动态应用的显示样式，不会改变单元格本身的基础颜色，所以你拿到的都是白色（255,255,255）。要获取条件格式生效后的实际显示颜色，得用DisplayFormat.Interior.Color属性。

下面是修正后的代码，直接把RGB代码输出到A列相邻的B列，格式符合你要的RRR, GGG, BBB：

Sub GetConditionalFormatRGB()
    Dim cell As Range
    Dim cColor As Long, cRed As Integer, cGreen As Integer, cBlue As Integer
    
    ' 遍历Sheet1中A列从第2行开始的非空单元格
    For Each cell In Sheet1.Range("A2:A" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row)
        ' 获取条件格式生效后的实际显示颜色
        cColor = cell.DisplayFormat.Interior.Color
        ' 拆分RGB分量
        cRed = cColor Mod 256
        cGreen = (cColor \ 256) Mod 256
        cBlue = (cColor \ 65536) Mod 256
        ' 输出到相邻的B列，格式为RRR, GGG, BBB
        cell.Offset(0, 1).Value = cRed & ", " & cGreen & ", " & cBlue
    Next cell
End Sub

关键说明： #

• DisplayFormat：这个属性专门用于获取单元格当前实际显示的格式（包括条件格式、表格样式等动态应用的格式），是读取条件格式颜色的核心。
• 循环优化：用For Each遍历非空单元格比Do While更简洁，也避免了变量冗余。
• 输出位置：用Offset(0,1)直接定位到当前单元格右侧的B列，符合你“在A列旁边输出”的需求。

如果你的条件格式是字体颜色而非填充色，只需要把DisplayFormat.Interior.Color改成DisplayFormat.Font.Color即可。

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