在我们的工作过程中，很多时候遇到，Excel应用条件格式了，单元格也变色了。

但是我们想把条件格式的颜色，应用到其他表格或者区域，发现，颜色是无法copy的，也没法直接看单元格的颜色RGB颜色值的，那该肿么办呢？

比如下图，我在A1：A17设置了：条件格式-》色阶，A1单元格也变成绿色了，但是我们在单元格格式的界面里，看不到RGB颜色的具体数值，那就没办法把这些颜色应用到其他表或者图里了，肿么办？

http://s9/mw690/5d61647ctcf4e0801fb28&690VBA 读取条件格式 颜色值" TITLE="Excel VBA 读取条件格式 颜色值" />
以下是最终解决方法……看帖要顶啊

用英文谷歌搜了好多论坛，在某篇帖子里提到：把excel单元格复制到word，再从word粘回excel就能得到一个以该色阶颜色作为背景色的单元格。
受了启发，做了点小改动：把整个区域粘到word里，直接遍历word表格里的每个单元格，把颜色直接赋回对应的excel单元格，跳过复制回excel的步骤
Sub cclr()
Dim wdap As Word.Application
Set wdap = New Word.Application
Sheet2.UsedRange.Copy
With wdap
.DisplayAlerts = wdAlertsNone
.Visible = True
.Documents.Add.Content.Paste
End With
For i = 1 To wdap.ActiveDocument.Tables(1).Rows.Count
For j = 1 To wdap.ActiveDocument.Tables(1).Columns.Count
Sheet2.Cells(i, j).Font.Color = wdap.ActiveDocument.Tables(1).Cell(i, j).Shading.BackgroundPatternColor
Next j
Next i
wdap.ActiveWindow.Close wdDoNotSaveChanges
wdap.Quit
End Sub

希望对有些人有用，哈哈。